home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1997-02-14 | 38.0 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| MMFW data (other/mmfwData)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 07 00 4d 6f 64 65 6c 4d | 61 6b 65 72 4d 6f 64 65 |..ModelM|akerMode|
|00000010| 6c 00 00 00 00 da 3f 26 | 41 06 54 4d 6f 64 65 6c |l.....?&|A.TModel|
|00000020| dc 00 00 00 0d 54 45 64 | 69 74 61 62 6c 65 4c 69 |.....TEd|itableLi|
|00000030| 73 74 01 02 01 01 10 00 | 08 54 4d 4d 43 6c 61 73 |st......|.TMMClas|
|00000040| 73 ff ff 00 00 ff ff ff | ff 00 00 17 00 00 00 0b |s.......|........|
|00000050| 54 43 6f 6c 6c 65 63 74 | 69 6f 6e 01 00 fe ff ff |TCollect|ion.....|
|00000060| ff 13 00 00 00 08 54 4d | 4d 43 6c 61 73 73 ff ff |......TM|MClass..|
|00000070| 00 00 ff ff ff ff 00 00 | 04 00 00 00 0a 54 43 6f |........|.....TCo|
|00000080| 6d 70 6f 6e 65 6e 74 01 | 00 fe ff ff ff 03 00 00 |mponent.|........|
|00000090| 00 08 54 4d 4d 43 6c 61 | 73 73 ff ff 00 00 ff ff |..TMMCla|ss......|
|000000a0| ff ff 00 00 13 00 00 00 | 0a 54 43 6f 6e 74 61 69 |........|.TContai|
|000000b0| 6e 65 72 01 00 fe ff ff | ff 10 00 00 00 08 54 4d |ner.....|......TM|
|000000c0| 4d 43 6c 61 73 73 00 00 | 00 00 ff ff ff ff 00 00 |MClass..|........|
|000000d0| 52 00 00 00 12 54 44 65 | 73 69 67 6e 65 72 44 65 |R....TDe|signerDe|
|000000e0| 63 6f 72 61 74 6f 72 00 | 00 51 00 00 00 43 00 00 |corator.|.Q...C..|
|000000f0| 00 08 54 4d 4d 43 6c 61 | 73 73 ff ff 00 00 ff ff |..TMMCla|ss......|
|00000100| ff ff 00 00 43 00 00 00 | 0d 54 46 6f 72 6d 44 65 |....C...|.TFormDe|
|00000110| 73 69 67 6e 65 72 01 00 | fe ff ff ff 00 00 00 00 |signer..|........|
|00000120| 08 54 4d 4d 43 6c 61 73 | 73 ff ff 00 00 ff ff ff |.TMMClas|s.......|
|00000130| ff 00 00 05 00 00 00 05 | 54 4c 69 73 74 01 00 fe |........|TList...|
|00000140| ff ff ff 03 00 00 00 08 | 54 4d 4d 43 6c 61 73 73 |........|TMMClass|
|00000150| ff ff 00 00 ff ff ff ff | 00 00 0c 00 00 00 09 54 |........|.......T|
|00000160| 4d 4d 45 64 69 74 6f 72 | 01 00 fe ff ff ff 00 00 |MMEditor|........|
|00000170| 00 00 08 54 4d 4d 43 6c | 61 73 73 ff ff 00 00 ff |...TMMCl|ass.....|
|00000180| ff ff ff 00 00 b4 00 00 | 00 09 54 4e 61 6d 65 52 |........|..TNameR|
|00000190| 75 6c 65 00 00 fe ff ff | ff 00 00 00 00 08 54 4d |ule.....|......TM|
|000001a0| 4d 43 6c 61 73 73 ff ff | 00 00 ff ff ff ff 00 00 |MClass..|........|
|000001b0| a3 00 00 00 0d 54 4e 61 | 6d 65 52 75 6c 65 4c 69 |.....TNa|meRuleLi|
|000001c0| 73 74 00 00 fe ff ff ff | 17 00 00 00 08 54 4d 4d |st......|.....TMM|
|000001d0| 43 6c 61 73 73 00 00 00 | 00 ff ff ff ff 00 00 00 |Class...|........|
|000001e0| 00 00 00 07 54 4f 62 6a | 65 63 74 01 00 fd ff ff |....TObj|ect.....|
|000001f0| ff ff ff ff ff 08 54 4d | 4d 43 6c 61 73 73 ff ff |......TM|MClass..|
|00000200| 00 00 ff ff ff ff 00 00 | 03 00 00 00 0b 54 50 65 |........|.....TPe|
|00000210| 72 73 69 73 74 65 6e 74 | 01 00 fe ff ff ff 00 00 |rsistent|........|
|00000220| 00 00 08 54 4d 4d 43 6c | 61 73 73 ff ff 00 00 ff |...TMMCl|ass.....|
|00000230| ff ff ff 00 00 79 00 00 | 00 08 54 52 65 6e 61 6d |.....y..|..TRenam|
|00000240| 65 72 00 00 fe ff ff ff | 04 00 00 00 08 54 4d 4d |er......|.....TMM|
|00000250| 43 6c 61 73 73 ff ff 00 | 00 ff ff ff ff 00 00 0b |Class...|........|
|00000260| 00 00 00 07 54 53 74 72 | 65 61 6d 01 00 fe ff ff |....TStr|eam.....|
|00000270| ff 00 00 00 00 08 54 4d | 4d 43 6c 61 73 73 ff ff |......TM|MClass..|
|00000280| 00 00 ff ff ff ff 00 00 | 10 00 00 00 0b 54 53 74 |........|.....TSt|
|00000290| 72 65 61 6d 61 62 6c 65 | 01 00 fe ff ff ff 00 00 |reamable|........|
|000002a0| 00 00 08 54 4d 4d 43 6c | 61 73 73 ff ff 00 00 ff |...TMMCl|ass.....|
|000002b0| ff ff ff 00 00 07 00 00 | 00 0b 54 53 74 72 69 6e |........|..TStrin|
|000002c0| 67 4c 69 73 74 01 00 fe | ff ff ff 06 00 00 00 08 |gList...|........|
|000002d0| 54 4d 4d 43 6c 61 73 73 | ff ff 00 00 ff ff ff ff |TMMClass|........|
|000002e0| 00 00 06 00 00 00 08 54 | 53 74 72 69 6e 67 73 01 |.......T|Strings.|
|000002f0| 00 fe ff ff ff 03 00 00 | 00 08 54 4d 4d 43 6c 61 |........|..TMMCla|
|00000300| 73 73 0e 54 4d 6f 64 65 | 6c 50 61 72 74 4c 69 73 |ss.TMode|lPartLis|
|00000310| 74 01 02 00 01 71 00 07 | 54 4d 65 74 68 6f 64 00 |t....q..|TMethod.|
|00000320| 00 00 00 ff ff ff ff 74 | 00 01 00 00 00 06 43 72 |.......t|......Cr|
|00000330| 65 61 74 65 00 00 fd ff | ff ff 00 00 00 00 04 56 |eate....|.......V|
|00000340| 6f 69 64 1f 03 01 00 00 | 00 00 0c 54 4d 65 74 68 |oid.....|...TMeth|
|00000350| 6f 64 46 6c 65 73 68 0b | 54 43 6f 6c 6c 65 63 74 |odFlesh.|TCollect|
|00000360| 69 6f 6e 00 01 00 00 00 | 00 0a 54 43 6f 64 65 4c |ion.....|..TCodeL|
|00000370| 69 6e 65 73 ff ff ff ff | fe ff ff ff 00 00 0b 54 |ines....|.......T|
|00000380| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 00 00 |Collecti|on......|
|00000390| ff ff ff ff 00 07 54 4d | 65 74 68 6f 64 00 00 00 |......TM|ethod...|
|000003a0| 00 ff ff ff ff 74 00 02 | 00 00 00 07 44 65 73 74 |.....t..|....Dest|
|000003b0| 72 6f 79 00 00 fd ff ff | ff 00 00 00 00 04 56 6f |roy.....|......Vo|
|000003c0| 69 64 1f 03 02 00 01 01 | 00 0c 54 4d 65 74 68 6f |id......|..TMetho|
|000003d0| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|000003e0| 6f 6e 00 01 00 00 00 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|000003f0| 6e 65 73 ff ff ff ff fe | ff ff ff 00 00 0b 54 43 |nes.....|......TC|
|00000400| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 00 00 ff |ollectio|n.......|
|00000410| ff ff ff 00 07 54 4d 65 | 74 68 6f 64 ff ff 00 00 |.....TMe|thod....|
|00000420| ff ff ff ff 74 00 08 00 | 00 00 10 44 65 66 69 6e |....t...|...Defin|
|00000430| 65 50 72 6f 70 65 72 74 | 69 65 73 00 00 fe ff ff |ePropert|ies.....|
|00000440| ff 03 00 00 00 04 56 6f | 69 64 1f 02 03 00 02 01 |......Vo|id......|
|00000450| 0d 46 69 6c 65 72 3a 20 | 54 46 69 6c 65 72 0c 54 |.Filer: |TFiler.T|
|00000460| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00000470| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 0a 54 43 |lection.|......TC|
|00000480| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00000490| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|000004a0| 00 00 00 00 ff ff ff ff | 00 07 54 4d 65 74 68 6f |........|..TMetho|
|000004b0| 64 ff ff 00 00 ff ff ff | ff 74 00 09 00 00 00 06 |d.......|.t......|
|000004c0| 43 72 65 61 74 65 00 00 | fe ff ff ff 04 00 00 00 |Create..|........|
|000004d0| 04 56 6f 69 64 1f 03 01 | 00 00 01 12 41 4f 77 6e |.Void...|....AOwn|
|000004e0| 65 72 3a 20 54 43 6f 6d | 70 6f 6e 65 6e 74 0c 54 |er: TCom|ponent.T|
|000004f0| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00000500| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 0a 54 43 |lection.|......TC|
|00000510| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00000520| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|00000530| 00 00 00 00 ff ff ff ff | 00 07 54 4d 65 74 68 6f |........|..TMetho|
|00000540| 64 ff ff 00 00 ff ff ff | ff 74 00 0a 00 00 00 0c |d.......|.t......|
|00000550| 4e 6f 74 69 66 69 63 61 | 74 69 6f 6e 00 00 fe ff |Notifica|tion....|
|00000560| ff ff 04 00 00 00 04 56 | 6f 69 64 1f 02 03 00 02 |.......V|oid.....|
|00000570| 01 2d 41 43 6f 6d 70 6f | 6e 65 6e 74 3a 20 54 43 |.-ACompo|nent: TC|
|00000580| 6f 6d 70 6f 6e 65 6e 74 | 3b 20 4f 70 65 72 61 74 |omponent|; Operat|
|00000590| 69 6f 6e 3a 20 54 4f 70 | 65 72 61 74 69 6f 6e 0c |ion: TOp|eration.|
|000005a0| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|000005b0| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 0a 54 |llection|.......T|
|000005c0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|000005d0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|000005e0| 01 00 00 00 00 ff ff ff | ff 00 07 54 4d 65 74 68 |........|...TMeth|
|000005f0| 6f 64 ff ff 00 00 00 00 | 00 00 74 00 0d 00 00 00 |od......|..t.....|
|00000600| 06 43 72 65 61 74 65 02 | 00 fe ff ff ff 0c 00 00 |.Create.|........|
|00000610| 00 04 56 6f 69 64 1f 03 | 03 00 00 01 11 50 61 72 |..Void..|.....Par|
|00000620| 74 3a 20 54 4d 4d 45 64 | 69 74 61 62 6c 65 0c 54 |t: TMMEd|itable.T|
|00000630| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00000640| 6c 65 63 74 69 6f 6e 00 | 01 00 00 01 00 0a 54 43 |lection.|......TC|
|00000650| 6f 64 65 4c 69 6e 65 73 | fc ff ff ff 0d 00 00 00 |odeLines|........|
|00000660| 01 00 11 69 6e 68 65 72 | 69 74 65 64 20 43 72 65 |...inher|ited Cre|
|00000670| 61 74 65 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |ate;.TCo|deLines.|
|00000680| ff ff ff fe ff ff ff 00 | 00 0b 54 43 6f 6c 6c 65 |........|..TColle|
|00000690| 63 74 69 6f 6e 00 01 00 | 00 00 00 ff ff ff ff 00 |ction...|........|
|000006a0| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 00 00 00 00 |.TMethod|........|
|000006b0| 74 00 0e 00 00 00 0a 45 | 64 69 74 6f 72 54 79 70 |t......E|ditorTyp|
|000006c0| 65 01 00 fe ff ff ff 0c | 00 00 00 04 57 6f 72 64 |e.......|....Word|
|000006d0| 05 03 03 00 03 01 00 0c | 54 4d 65 74 68 6f 64 46 |........|TMethodF|
|000006e0| 6c 65 73 68 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |lesh.TCo|llection|
|000006f0| 00 01 00 00 00 00 0a 54 | 43 6f 64 65 4c 69 6e 65 |.......T|CodeLine|
|00000700| 73 ff ff ff ff fe ff ff | ff 00 00 0b 54 43 6f 6c |s.......|....TCol|
|00000710| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 ff ff ff |lection.|........|
|00000720| ff 00 07 54 4d 65 74 68 | 6f 64 ff ff 00 00 00 00 |...TMeth|od......|
|00000730| 00 00 74 00 0f 00 00 00 | 07 45 78 65 63 75 74 65 |..t.....|.Execute|
|00000740| 00 00 fe ff ff ff 0c 00 | 00 00 07 42 6f 6f 6c 65 |........|...Boole|
|00000750| 61 6e 07 03 03 00 03 01 | 00 0c 54 4d 65 74 68 6f |an......|..TMetho|
|00000760| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00000770| 6f 6e 00 01 00 00 00 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00000780| 6e 65 73 ff ff ff ff fe | ff ff ff 00 00 0b 54 43 |nes.....|......TC|
|00000790| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 00 00 ff |ollectio|n.......|
|000007a0| ff ff ff 00 07 54 4d 65 | 74 68 6f 64 ff ff 00 00 |.....TMe|thod....|
|000007b0| 00 00 00 00 04 00 11 00 | 00 00 04 4c 6f 61 64 00 |........|...Load.|
|000007c0| 00 fe ff ff ff 10 00 00 | 00 04 56 6f 69 64 1f 03 |........|..Void..|
|000007d0| 01 00 00 01 0f 46 69 6c | 74 65 72 3a 20 54 46 69 |.....Fil|ter: TFi|
|000007e0| 6c 74 65 72 0c 54 4d 65 | 74 68 6f 64 46 6c 65 73 |lter.TMe|thodFles|
|000007f0| 68 0b 54 43 6f 6c 6c 65 | 63 74 69 6f 6e 00 01 00 |h.TColle|ction...|
|00000800| 00 00 00 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |....TCod|eLines..|
|00000810| ff ff fe ff ff ff 00 00 | 0b 54 43 6f 6c 6c 65 63 |........|.TCollec|
|00000820| 74 69 6f 6e 00 01 00 00 | 00 00 ff ff ff ff 00 07 |tion....|........|
|00000830| 54 4d 65 74 68 6f 64 ff | ff 00 00 00 00 00 00 04 |TMethod.|........|
|00000840| 00 12 00 00 00 05 53 74 | 6f 72 65 00 00 fe ff ff |......St|ore.....|
|00000850| ff 10 00 00 00 04 56 6f | 69 64 1f 03 03 00 02 01 |......Vo|id......|
|00000860| 0f 46 69 6c 74 65 72 3a | 20 54 46 69 6c 74 65 72 |.Filter:| TFilter|
|00000870| 0c 54 4d 65 74 68 6f 64 | 46 6c 65 73 68 0b 54 43 |.TMethod|Flesh.TC|
|00000880| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 00 00 0a |ollectio|n.......|
|00000890| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff fe ff |TCodeLin|es......|
|000008a0| ff ff 00 00 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |.....TCo|llection|
|000008b0| 00 01 00 00 00 00 ff ff | ff ff 00 07 54 4d 65 74 |........|....TMet|
|000008c0| 68 6f 64 ff ff 00 00 00 | 00 00 00 74 00 14 00 00 |hod.....|...t....|
|000008d0| 00 07 43 6f 6d 70 61 72 | 65 00 00 fe ff ff ff 13 |..Compar|e.......|
|000008e0| 00 00 00 07 49 6e 74 65 | 67 65 72 00 03 03 00 03 |....Inte|ger.....|
|000008f0| 01 13 4b 65 79 31 2c 20 | 4b 65 79 32 3a 20 50 6f |..Key1, |Key2: Po|
|00000900| 69 6e 74 65 72 0c 54 4d | 65 74 68 6f 64 46 6c 65 |inter.TM|ethodFle|
|00000910| 73 68 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |sh.TColl|ection..|
|00000920| 00 00 00 00 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |.....TCo|deLines.|
|00000930| ff ff ff fe ff ff ff 00 | 00 0b 54 43 6f 6c 6c 65 |........|..TColle|
|00000940| 63 74 69 6f 6e 00 01 00 | 00 00 00 ff ff ff ff 00 |ction...|........|
|00000950| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 00 00 00 00 |.TMethod|........|
|00000960| 74 00 15 00 00 00 08 46 | 72 65 65 49 74 65 6d 00 |t......F|reeItem.|
|00000970| 00 fe ff ff ff 13 00 00 | 00 04 56 6f 69 64 1f 02 |........|..Void..|
|00000980| 03 00 02 01 0d 49 74 65 | 6d 3a 20 50 6f 69 6e 74 |.....Ite|m: Point|
|00000990| 65 72 0c 54 4d 65 74 68 | 6f 64 46 6c 65 73 68 0b |er.TMeth|odFlesh.|
|000009a0| 54 43 6f 6c 6c 65 63 74 | 69 6f 6e 00 01 00 00 00 |TCollect|ion.....|
|000009b0| 00 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |..TCodeL|ines....|
|000009c0| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|000009d0| 6f 6e 00 01 00 00 00 00 | ff ff ff ff 00 07 54 4d |on......|......TM|
|000009e0| 65 74 68 6f 64 ff ff 00 | 00 00 00 00 00 74 00 16 |ethod...|.....t..|
|000009f0| 00 00 00 05 4b 65 79 4f | 66 00 00 fe ff ff ff 13 |....KeyO|f.......|
|00000a00| 00 00 00 07 50 6f 69 6e | 74 65 72 1b 03 03 00 03 |....Poin|ter.....|
|00000a10| 01 11 49 6e 73 74 61 6e | 63 65 3a 20 50 6f 69 6e |..Instan|ce: Poin|
|00000a20| 74 65 72 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ter.TMet|hodFlesh|
|00000a30| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00000a40| 00 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|00000a50| ff fe ff ff ff 00 00 0b | 54 43 6f 6c 6c 65 63 74 |........|TCollect|
|00000a60| 69 6f 6e 00 01 00 00 00 | 00 ff ff ff ff 00 07 54 |ion.....|.......T|
|00000a70| 4d 65 74 68 6f 64 ff ff | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|00000a80| 44 00 00 00 0c 43 72 65 | 61 74 65 4d 65 74 68 6f |D....Cre|ateMetho|
|00000a90| 64 00 00 fe ff ff ff 43 | 00 00 00 07 54 4d 65 74 |d......C|....TMet|
|00000aa0| 68 6f 64 1e 03 03 00 03 | 01 24 63 6f 6e 73 74 20 |hod.....|.$const |
|00000ab0| 4e 61 6d 65 3a 73 74 72 | 69 6e 67 3b 54 79 70 65 |Name:str|ing;Type|
|00000ac0| 44 61 74 61 3a 50 54 79 | 70 65 44 61 74 61 0c 54 |Data:PTy|peData.T|
|00000ad0| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00000ae0| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 0a 54 43 |lection.|......TC|
|00000af0| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00000b00| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|00000b10| 00 00 00 00 ff ff ff ff | 00 07 54 4d 65 74 68 6f |........|..TMetho|
|00000b20| 64 ff ff 00 00 ff ff ff | ff 74 00 45 00 00 00 0d |d.......|.t.E....|
|00000b30| 47 65 74 4d 65 74 68 6f | 64 4e 61 6d 65 00 00 fe |GetMetho|dName...|
|00000b40| ff ff ff 43 00 00 00 06 | 73 74 72 69 6e 67 11 03 |...C....|string..|
|00000b50| 03 00 03 01 15 63 6f 6e | 73 74 20 4d 65 74 68 6f |.....con|st Metho|
|00000b60| 64 3a 20 54 4d 65 74 68 | 6f 64 0c 54 4d 65 74 68 |d: TMeth|od.TMeth|
|00000b70| 6f 64 46 6c 65 73 68 0b | 54 43 6f 6c 6c 65 63 74 |odFlesh.|TCollect|
|00000b80| 69 6f 6e 00 01 00 00 00 | 00 0a 54 43 6f 64 65 4c |ion.....|..TCodeL|
|00000b90| 69 6e 65 73 ff ff ff ff | fe ff ff ff 00 00 0b 54 |ines....|.......T|
|00000ba0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 00 00 |Collecti|on......|
|00000bb0| ff ff ff ff 00 07 54 4d | 65 74 68 6f 64 ff ff 00 |......TM|ethod...|
|00000bc0| 00 ff ff ff ff 74 00 46 | 00 00 00 0a 47 65 74 4d |.....t.F|....GetM|
|00000bd0| 65 74 68 6f 64 73 00 00 | fe ff ff ff 43 00 00 00 |ethods..|....C...|
|00000be0| 04 56 6f 69 64 1f 03 03 | 00 02 01 26 54 79 70 65 |.Void...|...&Type|
|00000bf0| 44 61 74 61 3a 20 50 54 | 79 70 65 44 61 74 61 3b |Data: PT|ypeData;|
|00000c00| 20 50 72 6f 63 3a 20 54 | 47 65 74 53 74 72 50 72 | Proc: T|GetStrPr|
|00000c10| 6f 63 0c 54 4d 65 74 68 | 6f 64 46 6c 65 73 68 0b |oc.TMeth|odFlesh.|
|00000c20| 54 43 6f 6c 6c 65 63 74 | 69 6f 6e 00 01 00 00 00 |TCollect|ion.....|
|00000c30| 00 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |..TCodeL|ines....|
|00000c40| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|00000c50| 6f 6e 00 01 00 00 00 00 | ff ff ff ff 00 07 54 4d |on......|......TM|
|00000c60| 65 74 68 6f 64 ff ff 00 | 00 ff ff ff ff 74 00 47 |ethod...|.....t.G|
|00000c70| 00 00 00 13 47 65 74 50 | 72 69 76 61 74 65 44 69 |....GetP|rivateDi|
|00000c80| 72 65 63 74 6f 72 79 00 | 00 fe ff ff ff 43 00 00 |rectory.|.....C..|
|00000c90| 00 06 73 74 72 69 6e 67 | 11 03 03 00 03 01 00 0c |..string|........|
|00000ca0| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|00000cb0| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 0a 54 |llection|.......T|
|00000cc0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00000cd0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|00000ce0| 01 00 00 00 00 ff ff ff | ff 00 07 54 4d 65 74 68 |........|...TMeth|
|00000cf0| 6f 64 ff ff 00 00 ff ff | ff ff 74 00 48 00 00 00 |od......|..t.H...|
|00000d00| 0b 49 73 44 65 73 69 67 | 6e 4d 73 67 00 00 fe ff |.IsDesig|nMsg....|
|00000d10| ff ff 43 00 00 00 07 42 | 6f 6f 6c 65 61 6e 07 03 |..C....B|oolean..|
|00000d20| 03 00 03 01 27 53 65 6e | 64 65 72 3a 20 54 43 6f |....'Sen|der: TCo|
|00000d30| 6e 74 72 6f 6c 3b 20 76 | 61 72 20 4d 65 73 73 61 |ntrol; v|ar Messa|
|00000d40| 67 65 3a 20 54 4d 65 73 | 73 61 67 65 0c 54 4d 65 |ge: TMes|sage.TMe|
|00000d50| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00000d60| 63 74 69 6f 6e 00 01 00 | 00 00 00 0a 54 43 6f 64 |ction...|....TCod|
|00000d70| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 00 00 |eLines..|........|
|00000d80| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00000d90| 00 00 ff ff ff ff 00 07 | 54 4d 65 74 68 6f 64 ff |........|TMethod.|
|00000da0| ff 00 00 ff ff ff ff 74 | 00 49 00 00 00 0c 4d 65 |.......t|.I....Me|
|00000db0| 74 68 6f 64 45 78 69 73 | 74 73 00 00 fe ff ff ff |thodExis|ts......|
|00000dc0| 43 00 00 00 07 42 6f 6f | 6c 65 61 6e 07 03 03 00 |C....Boo|lean....|
|00000dd0| 03 01 13 63 6f 6e 73 74 | 20 41 4e 61 6d 65 3a 20 |...const| AName: |
|00000de0| 73 74 72 69 6e 67 0c 54 | 4d 65 74 68 6f 64 46 6c |string.T|MethodFl|
|00000df0| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00000e00| 01 00 00 00 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00000e10| ff ff ff ff fe ff ff ff | 00 00 0b 54 43 6f 6c 6c |........|...TColl|
|00000e20| 65 63 74 69 6f 6e 00 01 | 00 00 00 00 ff ff ff ff |ection..|........|
|00000e30| 00 07 54 4d 65 74 68 6f | 64 ff ff 00 00 ff ff ff |..TMetho|d.......|
|00000e40| ff 74 00 4a 00 00 00 08 | 4d 6f 64 69 66 69 65 64 |.t.J....|Modified|
|00000e50| 00 00 fe ff ff ff 43 00 | 00 00 04 56 6f 69 64 1f |......C.|...Void.|
|00000e60| 03 03 00 02 01 00 0c 54 | 4d 65 74 68 6f 64 46 6c |.......T|MethodFl|
|00000e70| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00000e80| 01 00 00 01 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00000e90| ff ff ff ff fe ff ff ff | 00 00 0a 54 43 6f 64 65 |........|...TCode|
|00000ea0| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 00 00 0b |Lines...|........|
|00000eb0| 54 43 6f 6c 6c 65 63 74 | 69 6f 6e 00 01 00 00 00 |TCollect|ion.....|
|00000ec0| 00 ff ff ff ff 00 07 54 | 4d 65 74 68 6f 64 ff ff |.......T|Method..|
|00000ed0| 00 00 ff ff ff ff 74 00 | 4b 00 00 00 0c 4e 6f 74 |......t.|K....Not|
|00000ee0| 69 66 69 63 61 74 69 6f | 6e 00 00 fe ff ff ff 43 |ificatio|n......C|
|00000ef0| 00 00 00 04 56 6f 69 64 | 1f 03 03 00 02 01 2d 41 |....Void|......-A|
|00000f00| 43 6f 6d 70 6f 6e 65 6e | 74 3a 20 54 43 6f 6d 70 |Componen|t: TComp|
|00000f10| 6f 6e 65 6e 74 3b 20 4f | 70 65 72 61 74 69 6f 6e |onent; O|peration|
|00000f20| 3a 20 54 4f 70 65 72 61 | 74 69 6f 6e 0c 54 4d 65 |: TOpera|tion.TMe|
|00000f30| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00000f40| 63 74 69 6f 6e 00 01 00 | 00 00 00 0a 54 43 6f 64 |ction...|....TCod|
|00000f50| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 00 00 |eLines..|........|
|00000f60| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00000f70| 00 00 ff ff ff ff 00 07 | 54 4d 65 74 68 6f 64 ff |........|TMethod.|
|00000f80| ff 00 00 ff ff ff ff 74 | 00 4c 00 00 00 09 50 61 |.......t|.L....Pa|
|00000f90| 69 6e 74 47 72 69 64 00 | 00 fe ff ff ff 43 00 00 |intGrid.|.....C..|
|00000fa0| 00 04 56 6f 69 64 1f 03 | 03 00 02 01 00 0c 54 4d |..Void..|......TM|
|00000fb0| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00000fc0| 65 63 74 69 6f 6e 00 01 | 00 00 00 00 0a 54 43 6f |ection..|.....TCo|
|00000fd0| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 00 |deLines.|........|
|00000fe0| 00 0b 54 43 6f 6c 6c 65 | 63 74 69 6f 6e 00 01 00 |..TColle|ction...|
|00000ff0| 00 00 00 ff ff ff ff 00 | 07 54 4d 65 74 68 6f 64 |........|.TMethod|
|00001000| ff ff 00 00 ff ff ff ff | 74 00 4d 00 00 00 0c 52 |........|t.M....R|
|00001010| 65 6e 61 6d 65 4d 65 74 | 68 6f 64 00 00 fe ff ff |enameMet|hod.....|
|00001020| ff 43 00 00 00 04 56 6f | 69 64 1f 03 03 00 02 01 |.C....Vo|id......|
|00001030| 1e 63 6f 6e 73 74 20 43 | 75 72 4e 61 6d 65 2c 20 |.const C|urName, |
|00001040| 4e 65 77 4e 61 6d 65 3a | 20 73 74 72 69 6e 67 0c |NewName:| string.|
|00001050| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|00001060| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 0a 54 |llection|.......T|
|00001070| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00001080| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|00001090| 01 00 00 00 00 ff ff ff | ff 00 07 54 4d 65 74 68 |........|...TMeth|
|000010a0| 6f 64 ff ff 00 00 ff ff | ff ff 74 00 4e 00 00 00 |od......|..t.N...|
|000010b0| 0a 53 68 6f 77 4d 65 74 | 68 6f 64 00 00 fe ff ff |.ShowMet|hod.....|
|000010c0| ff 43 00 00 00 04 56 6f | 69 64 1f 03 03 00 02 01 |.C....Vo|id......|
|000010d0| 12 63 6f 6e 73 74 20 4e | 61 6d 65 3a 20 73 74 72 |.const N|ame: str|
|000010e0| 69 6e 67 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ing.TMet|hodFlesh|
|000010f0| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00001100| 00 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|00001110| ff fe ff ff ff 00 00 0b | 54 43 6f 6c 6c 65 63 74 |........|TCollect|
|00001120| 69 6f 6e 00 01 00 00 00 | 00 ff ff ff ff 00 07 54 |ion.....|.......T|
|00001130| 4d 65 74 68 6f 64 ff ff | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|00001140| 4f 00 00 00 0e 56 61 6c | 69 64 61 74 65 52 65 6e |O....Val|idateRen|
|00001150| 61 6d 65 00 00 fe ff ff | ff 43 00 00 00 04 56 6f |ame.....|.C....Vo|
|00001160| 69 64 1f 03 03 00 02 01 | 36 41 43 6f 6d 70 6f 6e |id......|6ACompon|
|00001170| 65 6e 74 3a 20 54 43 6f | 6d 70 6f 6e 65 6e 74 3b |ent: TCo|mponent;|
|00001180| 20 63 6f 6e 73 74 20 43 | 75 72 4e 61 6d 65 2c 20 | const C|urName, |
|00001190| 4e 65 77 4e 61 6d 65 3a | 20 73 74 72 69 6e 67 0c |NewName:| string.|
|000011a0| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|000011b0| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 0a 54 |llection|.......T|
|000011c0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|000011d0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|000011e0| 01 00 00 00 00 ff ff ff | ff 00 07 54 4d 65 74 68 |........|...TMeth|
|000011f0| 6f 64 ff fb 00 00 ff ff | ff ff 74 00 53 00 00 00 |od......|..t.S...|
|00001200| 06 43 72 65 61 74 65 06 | 00 51 00 00 00 52 00 00 |.Create.|.Q...R..|
|00001210| 00 04 56 6f 69 64 1f 03 | 01 00 00 00 00 0c 54 4d |..Void..|......TM|
|00001220| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00001230| 65 63 74 69 6f 6e 00 01 | 00 00 01 00 0a 54 43 6f |ection..|.....TCo|
|00001240| 64 65 4c 69 6e 65 73 fc | ff ff ff 53 00 00 00 01 |deLines.|...S....|
|00001250| 00 11 69 6e 68 65 72 69 | 74 65 64 20 43 72 65 61 |..inheri|ted Crea|
|00001260| 74 65 3b 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |te;.TCod|eLines..|
|00001270| ff ff fe ff ff ff 00 00 | 0b 54 43 6f 6c 6c 65 63 |........|.TCollec|
|00001280| 74 69 6f 6e 00 01 00 00 | 00 00 01 00 00 00 00 07 |tion....|........|
|00001290| 54 4d 65 74 68 6f 64 ff | ff 00 00 ff ff ff ff 74 |TMethod.|.......t|
|000012a0| 00 54 00 00 00 07 44 65 | 73 74 72 6f 79 06 00 51 |.T....De|stroy..Q|
|000012b0| 00 00 00 52 00 00 00 04 | 56 6f 69 64 1f 03 02 00 |...R....|Void....|
|000012c0| 01 03 00 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |....TMet|hodFlesh|
|000012d0| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|000012e0| 03 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|000012f0| ff fe ff ff ff 01 00 07 | 55 6e 68 6f 6f 6b 3b 0a |........|Unhook;.|
|00001300| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff 51 00 |TCodeLin|es....Q.|
|00001310| 00 00 01 00 10 44 65 73 | 69 67 6e 65 72 20 3a 3d |.....Des|igner :=|
|00001320| 20 6e 69 6c 3b 0a 54 43 | 6f 64 65 4c 69 6e 65 73 | nil;.TC|odeLines|
|00001330| fc ff ff ff 54 00 00 00 | 01 00 12 69 6e 68 65 72 |....T...|...inher|
|00001340| 69 74 65 64 20 44 65 73 | 74 72 6f 79 3b 0a 54 43 |ited Des|troy;.TC|
|00001350| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00001360| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|00001370| 00 00 00 00 02 00 00 00 | 00 09 54 50 72 6f 70 65 |........|..TPrope|
|00001380| 72 74 79 10 00 00 00 ff | ff ff ff 64 00 55 00 00 |rty.....|...d.U..|
|00001390| 00 08 44 65 73 69 67 6e | 65 72 04 00 51 00 00 00 |..Design|er..Q...|
|000013a0| 52 00 00 00 0d 54 46 6f | 72 6d 44 65 73 69 67 6e |R....TFo|rmDesign|
|000013b0| 65 72 1c 03 04 43 00 00 | 00 00 00 02 56 00 00 00 |er...C..|....V...|
|000013c0| 58 00 00 00 02 57 00 00 | 00 00 00 00 ff ff ff ff |X....W..|........|
|000013d0| 00 00 ff ff ff ff 07 54 | 4d 65 74 68 6f 64 31 02 |.......T|Method1.|
|000013e0| 00 00 ff ff ff ff 74 00 | 56 00 00 00 0b 47 65 74 |......t.|V....Get|
|000013f0| 44 65 73 69 67 6e 65 72 | 08 00 55 00 00 00 52 00 |Designer|..U...R.|
|00001400| 00 00 0d 54 46 6f 72 6d | 44 65 73 69 67 6e 65 72 |...TForm|Designer|
|00001410| 1c 02 03 43 00 00 00 00 | 03 00 00 0c 54 4d 65 74 |...C....|....TMet|
|00001420| 68 6f 64 46 6c 65 73 68 | 0b 54 43 6f 6c 6c 65 63 |hodFlesh|.TCollec|
|00001430| 74 69 6f 6e 00 01 00 00 | 01 00 0a 54 43 6f 64 65 |tion....|...TCode|
|00001440| 4c 69 6e 65 73 ff ff ff | ff 51 00 00 00 01 00 14 |Lines...|.Q......|
|00001450| 52 65 73 75 6c 74 20 3a | 3d 20 46 44 65 73 69 67 |Result :|= FDesig|
|00001460| 6e 65 72 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |ner;.TCo|deLines.|
|00001470| ff ff ff fe ff ff ff 00 | 00 0b 54 43 6f 6c 6c 65 |........|..TColle|
|00001480| 63 74 69 6f 6e 00 01 00 | 00 00 00 ff ff ff ff 00 |ction...|........|
|00001490| 07 54 4d 65 74 68 6f 64 | 31 02 00 00 ff ff ff ff |.TMethod|1.......|
|000014a0| 74 00 57 00 00 00 0b 53 | 65 74 44 65 73 69 67 6e |t.W....S|etDesign|
|000014b0| 65 72 08 00 55 00 00 00 | 52 00 00 00 04 56 6f 69 |er..U...|R....Voi|
|000014c0| 64 1f 02 03 00 02 00 14 | 56 61 6c 75 65 3a 20 54 |d.......|Value: T|
|000014d0| 46 6f 72 6d 44 65 73 69 | 67 6e 65 72 0c 54 4d 65 |FormDesi|gner.TMe|
|000014e0| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|000014f0| 63 74 69 6f 6e 00 01 00 | 00 01 00 0a 54 43 6f 64 |ction...|....TCod|
|00001500| 65 4c 69 6e 65 73 ff ff | ff ff 51 00 00 00 05 00 |eLines..|..Q.....|
|00001510| 1a 69 66 20 56 61 6c 75 | 65 20 3c 3e 20 46 44 65 |.if Valu|e <> FDe|
|00001520| 73 69 67 6e 65 72 20 74 | 68 65 6e 05 62 65 67 69 |signer t|hen.begi|
|00001530| 6e 26 20 20 69 66 20 4f | 77 6e 73 44 65 73 69 67 |n& if O|wnsDesig|
|00001540| 6e 65 72 20 74 68 65 6e | 20 46 44 65 73 69 67 6e |ner then| FDesign|
|00001550| 65 72 2e 46 72 65 65 3b | 15 20 20 46 44 65 73 69 |er.Free;|. FDesi|
|00001560| 67 6e 65 72 20 3a 3d 20 | 56 61 6c 75 65 3b 04 65 |gner := |Value;.e|
|00001570| 6e 64 3b 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |nd;.TCod|eLines..|
|00001580| ff ff fe ff ff ff 00 00 | 0b 54 43 6f 6c 6c 65 63 |........|.TCollec|
|00001590| 74 69 6f 6e 00 01 00 00 | 00 00 ff ff ff ff 00 06 |tion....|........|
|000015a0| 54 46 69 65 6c 64 31 00 | 00 00 ff ff ff ff 04 00 |TField1.|........|
|000015b0| 58 00 00 00 09 46 44 65 | 73 69 67 6e 65 72 00 00 |X....FDe|signer..|
|000015c0| 55 00 00 00 52 00 00 00 | 0d 54 46 6f 72 6d 44 65 |U...R...|.TFormDe|
|000015d0| 73 69 67 6e 65 72 1c 01 | 00 43 00 00 00 00 09 54 |signer..|.C.....T|
|000015e0| 50 72 6f 70 65 72 74 79 | 10 00 00 00 ff ff ff ff |Property|........|
|000015f0| 64 00 59 00 00 00 0c 4f | 77 6e 73 44 65 73 69 67 |d.Y....O|wnsDesig|
|00001600| 6e 65 72 04 00 51 00 00 | 00 52 00 00 00 07 42 6f |ner..Q..|.R....Bo|
|00001610| 6f 6c 65 61 6e 07 03 04 | 00 00 01 ff ff ff ff 5a |olean...|.......Z|
|00001620| 00 00 00 01 ff ff ff ff | 00 00 00 ff ff ff ff 00 |........|........|
|00001630| 00 ff ff ff ff 06 54 46 | 69 65 6c 64 31 00 00 00 |......TF|ield1...|
|00001640| ff ff ff ff 04 00 5a 00 | 00 00 0d 46 4f 77 6e 73 |......Z.|...FOwns|
|00001650| 44 65 73 69 67 6e 65 72 | 00 00 59 00 00 00 52 00 |Designer|..Y...R.|
|00001660| 00 00 07 42 6f 6f 6c 65 | 61 6e 07 01 00 00 07 54 |...Boole|an.....T|
|00001670| 4d 65 74 68 6f 64 00 00 | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|00001680| 5b 00 00 00 0c 43 72 65 | 61 74 65 4d 65 74 68 6f |[....Cre|ateMetho|
|00001690| 64 04 00 51 00 00 00 52 | 00 00 00 07 54 4d 65 74 |d..Q...R|....TMet|
|000016a0| 68 6f 64 1e 03 03 00 03 | 03 24 63 6f 6e 73 74 20 |hod.....|.$const |
|000016b0| 4e 61 6d 65 3a 73 74 72 | 69 6e 67 3b 54 79 70 65 |Name:str|ing;Type|
|000016c0| 44 61 74 61 3a 50 54 79 | 70 65 44 61 74 61 0c 54 |Data:PTy|peData.T|
|000016d0| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|000016e0| 6c 65 63 74 69 6f 6e 00 | 01 00 00 02 00 0a 54 43 |lection.|......TC|
|000016f0| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00001700| 03 00 18 69 66 20 28 44 | 65 73 69 67 6e 65 72 20 |...if (D|esigner |
|00001710| 3d 20 6e 69 6c 29 20 74 | 68 65 6e 25 20 20 46 69 |= nil) t|hen% Fi|
|00001720| 6c 6c 43 68 61 72 28 52 | 65 73 75 6c 74 2c 20 53 |llChar(R|esult, S|
|00001730| 69 7a 65 4f 66 28 52 65 | 73 75 6c 74 29 2c 20 30 |izeOf(Re|sult), 0|
|00001740| 29 04 65 6c 73 65 0a 54 | 43 6f 64 65 4c 69 6e 65 |).else.T|CodeLine|
|00001750| 73 ff ff ff ff 51 00 00 | 00 01 00 32 20 20 52 65 |s....Q..|...2 Re|
|00001760| 73 75 6c 74 20 3a 3d 20 | 44 65 73 69 67 6e 65 72 |sult := |Designer|
|00001770| 2e 43 72 65 61 74 65 4d | 65 74 68 6f 64 28 4e 61 |.CreateM|ethod(Na|
|00001780| 6d 65 2c 20 54 79 70 65 | 44 61 74 61 29 3b 0a 54 |me, Type|Data);.T|
|00001790| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|000017a0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|000017b0| 01 00 00 00 00 44 00 00 | 00 00 07 54 4d 65 74 68 |.....D..|...TMeth|
|000017c0| 6f 64 00 00 00 00 ff ff | ff ff 74 00 5c 00 00 00 |od......|..t.\...|
|000017d0| 0d 47 65 74 4d 65 74 68 | 6f 64 4e 61 6d 65 04 00 |.GetMeth|odName..|
|000017e0| 51 00 00 00 52 00 00 00 | 06 73 74 72 69 6e 67 11 |Q...R...|.string.|
|000017f0| 03 03 00 03 03 15 63 6f | 6e 73 74 20 4d 65 74 68 |......co|nst Meth|
|00001800| 6f 64 3a 20 54 4d 65 74 | 68 6f 64 0c 54 4d 65 74 |od: TMet|hod.TMet|
|00001810| 68 6f 64 46 6c 65 73 68 | 0b 54 43 6f 6c 6c 65 63 |hodFlesh|.TCollec|
|00001820| 74 69 6f 6e 00 01 00 00 | 02 00 0a 54 43 6f 64 65 |tion....|...TCode|
|00001830| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 03 00 18 |Lines...|........|
|00001840| 69 66 20 28 44 65 73 69 | 67 6e 65 72 20 3d 20 6e |if (Desi|gner = n|
|00001850| 69 6c 29 20 74 68 65 6e | 0e 20 20 52 65 73 75 6c |il) then|. Resul|
|00001860| 74 20 3a 3d 20 27 27 04 | 65 6c 73 65 0a 54 43 6f |t := ''.|else.TCo|
|00001870| 64 65 4c 69 6e 65 73 ff | ff ff ff 51 00 00 00 01 |deLines.|...Q....|
|00001880| 00 2b 20 20 52 65 73 75 | 6c 74 20 3a 3d 20 44 65 |.+ Resu|lt := De|
|00001890| 73 69 67 6e 65 72 2e 47 | 65 74 4d 65 74 68 6f 64 |signer.G|etMethod|
|000018a0| 4e 61 6d 65 28 4d 65 74 | 68 6f 64 29 3b 0a 54 43 |Name(Met|hod);.TC|
|000018b0| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|000018c0| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|000018d0| 00 00 00 00 45 00 00 00 | 00 07 54 4d 65 74 68 6f |....E...|..TMetho|
|000018e0| 64 00 00 00 00 ff ff ff | ff 74 00 5d 00 00 00 0a |d.......|.t.]....|
|000018f0| 47 65 74 4d 65 74 68 6f | 64 73 04 00 51 00 00 00 |GetMetho|ds..Q...|
|00001900| 52 00 00 00 04 56 6f 69 | 64 1f 03 03 00 02 03 26 |R....Voi|d......&|
|00001910| 54 79 70 65 44 61 74 61 | 3a 20 50 54 79 70 65 44 |TypeData|: PTypeD|
|00001920| 61 74 61 3b 20 50 72 6f | 63 3a 20 54 47 65 74 53 |ata; Pro|c: TGetS|
|00001930| 74 72 50 72 6f 63 0c 54 | 4d 65 74 68 6f 64 46 6c |trProc.T|MethodFl|
|00001940| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00001950| 01 00 00 02 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00001960| ff ff ff ff fe ff ff ff | 01 00 19 69 66 20 28 44 |........|...if (D|
|00001970| 65 73 69 67 6e 65 72 20 | 3c 3e 20 6e 69 6c 29 20 |esigner |<> nil) |
|00001980| 74 68 65 6e 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |then.TCo|deLines.|
|00001990| ff ff ff 51 00 00 00 01 | 00 26 20 20 44 65 73 69 |...Q....|.& Desi|
|000019a0| 67 6e 65 72 2e 47 65 74 | 4d 65 74 68 6f 64 73 28 |gner.Get|Methods(|
|000019b0| 54 79 70 65 44 61 74 61 | 2c 20 50 72 6f 63 29 3b |TypeData|, Proc);|
|000019c0| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|000019d0| ff ff ff 00 00 0b 54 43 | 6f 6c 6c 65 63 74 69 6f |......TC|ollectio|
|000019e0| 6e 00 01 00 00 00 00 46 | 00 00 00 00 07 54 4d 65 |n......F|.....TMe|
|000019f0| 74 68 6f 64 00 00 00 00 | ff ff ff ff 74 00 5e 00 |thod....|....t.^.|
|00001a00| 00 00 13 47 65 74 50 72 | 69 76 61 74 65 44 69 72 |...GetPr|ivateDir|
|00001a10| 65 63 74 6f 72 79 04 00 | 51 00 00 00 52 00 00 00 |ectory..|Q...R...|
|00001a20| 06 73 74 72 69 6e 67 11 | 03 03 00 03 03 00 0c 54 |.string.|.......T|
|00001a30| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00001a40| 6c 65 63 74 69 6f 6e 00 | 01 00 00 02 00 0a 54 43 |lection.|......TC|
|00001a50| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00001a60| 03 00 18 69 66 20 28 44 | 65 73 69 67 6e 65 72 20 |...if (D|esigner |
|00001a70| 3d 20 6e 69 6c 29 20 74 | 68 65 6e 0e 20 20 52 65 |= nil) t|hen. Re|
|00001a80| 73 75 6c 74 20 3a 3d 20 | 27 27 04 65 6c 73 65 0a |sult := |''.else.|
|00001a90| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff 51 00 |TCodeLin|es....Q.|
|00001aa0| 00 00 01 00 29 20 20 52 | 65 73 75 6c 74 20 3a 3d |....) R|esult :=|
|00001ab0| 20 44 65 73 69 67 6e 65 | 72 2e 47 65 74 50 72 69 | Designe|r.GetPri|
|00001ac0| 76 61 74 65 44 69 72 65 | 63 74 6f 72 79 3b 0a 54 |vateDire|ctory;.T|
|00001ad0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00001ae0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|00001af0| 01 00 00 00 00 47 00 00 | 00 00 07 54 4d 65 74 68 |.....G..|...TMeth|
|00001b00| 6f 64 00 00 00 00 ff ff | ff ff 74 00 5f 00 00 00 |od......|..t._...|
|00001b10| 0b 49 73 44 65 73 69 67 | 6e 4d 73 67 04 00 51 00 |.IsDesig|nMsg..Q.|
|00001b20| 00 00 52 00 00 00 07 42 | 6f 6f 6c 65 61 6e 07 03 |..R....B|oolean..|
|00001b30| 03 00 03 03 27 53 65 6e | 64 65 72 3a 20 54 43 6f |....'Sen|der: TCo|
|00001b40| 6e 74 72 6f 6c 3b 20 76 | 61 72 20 4d 65 73 73 61 |ntrol; v|ar Messa|
|00001b50| 67 65 3a 20 54 4d 65 73 | 73 61 67 65 0c 54 4d 65 |ge: TMes|sage.TMe|
|00001b60| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00001b70| 63 74 69 6f 6e 00 01 00 | 00 02 00 0a 54 43 6f 64 |ction...|....TCod|
|00001b80| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 03 00 |eLines..|........|
|00001b90| 18 69 66 20 28 44 65 73 | 69 67 6e 65 72 20 3d 20 |.if (Des|igner = |
|00001ba0| 6e 69 6c 29 20 74 68 65 | 6e 11 20 20 52 65 73 75 |nil) the|n. Resu|
|00001bb0| 6c 74 20 3a 3d 20 46 61 | 6c 73 65 04 65 6c 73 65 |lt := Fa|lse.else|
|00001bc0| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff 51 |.TCodeLi|nes....Q|
|00001bd0| 00 00 00 01 00 32 20 20 | 52 65 73 75 6c 74 20 3a |.....2 |Result :|
|00001be0| 3d 20 44 65 73 69 67 6e | 65 72 2e 49 73 44 65 73 |= Design|er.IsDes|
|00001bf0| 69 67 6e 4d 73 67 28 53 | 65 6e 64 65 72 2c 20 4d |ignMsg(S|ender, M|
|00001c00| 65 73 73 61 67 65 29 3b | 0a 54 43 6f 64 65 4c 69 |essage);|.TCodeLi|
|00001c10| 6e 65 73 ff ff ff ff fe | ff ff ff 00 00 0b 54 43 |nes.....|......TC|
|00001c20| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 00 00 48 |ollectio|n......H|
|00001c30| 00 00 00 00 07 54 4d 65 | 74 68 6f 64 00 00 00 00 |.....TMe|thod....|
|00001c40| ff ff ff ff 74 00 60 00 | 00 00 0c 4d 65 74 68 6f |....t.`.|...Metho|
|00001c50| 64 45 78 69 73 74 73 04 | 00 51 00 00 00 52 00 00 |dExists.|.Q...R..|
|00001c60| 00 07 42 6f 6f 6c 65 61 | 6e 07 03 03 00 03 03 13 |..Boolea|n.......|
|00001c70| 63 6f 6e 73 74 20 41 4e | 61 6d 65 3a 20 73 74 72 |const AN|ame: str|
|00001c80| 69 6e 67 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ing.TMet|hodFlesh|
|00001c90| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00001ca0| 02 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|00001cb0| ff fe ff ff ff 03 00 18 | 69 66 20 28 44 65 73 69 |........|if (Desi|
|00001cc0| 67 6e 65 72 20 3d 20 6e | 69 6c 29 20 74 68 65 6e |gner = n|il) then|
|00001cd0| 11 20 20 52 65 73 75 6c | 74 20 3a 3d 20 46 61 6c |. Resul|t := Fal|
|00001ce0| 73 65 04 65 6c 73 65 0a | 54 43 6f 64 65 4c 69 6e |se.else.|TCodeLin|
|00001cf0| 65 73 ff ff ff ff 51 00 | 00 00 01 00 29 20 20 52 |es....Q.|....) R|
|00001d00| 65 73 75 6c 74 20 3a 3d | 20 44 65 73 69 67 6e 65 |esult :=| Designe|
|00001d10| 72 2e 4d 65 74 68 6f 64 | 45 78 69 73 74 73 28 41 |r.Method|Exists(A|
|00001d20| 4e 61 6d 65 29 3b 0a 54 | 43 6f 64 65 4c 69 6e 65 |Name);.T|CodeLine|
|00001d30| 73 ff ff ff ff fe ff ff | ff 00 00 0b 54 43 6f 6c |s.......|....TCol|
|00001d40| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 49 00 00 |lection.|.....I..|
|00001d50| 00 00 07 54 4d 65 74 68 | 6f 64 00 00 00 00 ff ff |...TMeth|od......|
|00001d60| ff ff 74 00 61 00 00 00 | 08 4d 6f 64 69 66 69 65 |..t.a...|.Modifie|
|00001d70| 64 04 00 51 00 00 00 52 | 00 00 00 04 56 6f 69 64 |d..Q...R|....Void|
|00001d80| 1f 03 03 00 02 03 00 0c | 54 4d 65 74 68 6f 64 46 |........|TMethodF|
|00001d90| 6c 65 73 68 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |lesh.TCo|llection|
|00001da0| 00 01 00 00 02 00 0a 54 | 43 6f 64 65 4c 69 6e 65 |.......T|CodeLine|
|00001db0| 73 ff ff ff ff fe ff ff | ff 01 00 19 69 66 20 28 |s.......|....if (|
|00001dc0| 44 65 73 69 67 6e 65 72 | 20 3c 3e 20 6e 69 6c 29 |Designer| <> nil)|
|00001dd0| 20 74 68 65 6e 0a 54 43 | 6f 64 65 4c 69 6e 65 73 | then.TC|odeLines|
|00001de0| ff ff ff ff 51 00 00 00 | 01 00 14 20 20 44 65 73 |....Q...|... Des|
|00001df0| 69 67 6e 65 72 2e 4d 6f | 64 69 66 69 65 64 3b 0a |igner.Mo|dified;.|
|00001e00| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff fe ff |TCodeLin|es......|
|00001e10| ff ff 00 00 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |.....TCo|llection|
|00001e20| 00 01 00 00 00 00 4a 00 | 00 00 00 07 54 4d 65 74 |......J.|....TMet|
|00001e30| 68 6f 64 00 00 00 00 ff | ff ff ff 74 00 62 00 00 |hod.....|...t.b..|
|00001e40| 00 0c 4e 6f 74 69 66 69 | 63 61 74 69 6f 6e 04 00 |..Notifi|cation..|
|00001e50| 51 00 00 00 52 00 00 00 | 04 56 6f 69 64 1f 03 03 |Q...R...|.Void...|
|00001e60| 00 02 03 2d 41 43 6f 6d | 70 6f 6e 65 6e 74 3a 20 |...-ACom|ponent: |
|00001e70| 54 43 6f 6d 70 6f 6e 65 | 6e 74 3b 20 4f 70 65 72 |TCompone|nt; Oper|
|00001e80| 61 74 69 6f 6e 3a 20 54 | 4f 70 65 72 61 74 69 6f |ation: T|Operatio|
|00001e90| 6e 0c 54 4d 65 74 68 6f | 64 46 6c 65 73 68 0b 54 |n.TMetho|dFlesh.T|
|00001ea0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 03 00 |Collecti|on......|
|00001eb0| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|00001ec0| ff ff ff 01 00 19 69 66 | 20 28 44 65 73 69 67 6e |......if| (Design|
|00001ed0| 65 72 20 3c 3e 20 6e 69 | 6c 29 20 74 68 65 6e 0a |er <> ni|l) then.|
|00001ee0| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff 51 00 |TCodeLin|es....Q.|
|00001ef0| 00 00 01 00 2f 20 20 44 | 65 73 69 67 6e 65 72 2e |..../ D|esigner.|
|00001f00| 4e 6f 74 69 66 69 63 61 | 74 69 6f 6e 28 41 43 6f |Notifica|tion(ACo|
|00001f10| 6d 70 6f 6e 65 6e 74 2c | 20 4f 70 65 72 61 74 69 |mponent,| Operati|
|00001f20| 6f 6e 29 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |on);.TCo|deLines.|
|00001f30| ff ff ff fe ff ff ff 02 | 00 21 69 66 20 41 73 73 |........|.!if Ass|
|00001f40| 69 67 6e 65 64 28 46 4f | 6e 4e 6f 74 69 66 69 63 |igned(FO|nNotific|
|00001f50| 61 74 69 6f 6e 29 20 74 | 68 65 6e 2f 20 20 46 4f |ation) t|hen/ FO|
|00001f60| 6e 4e 6f 74 69 66 69 63 | 61 74 69 6f 6e 28 53 65 |nNotific|ation(Se|
|00001f70| 6c 66 2c 20 41 43 6f 6d | 70 6f 6e 65 6e 74 2c 20 |lf, ACom|ponent, |
|00001f80| 4f 70 65 72 61 74 69 6f | 6e 29 3b 0a 54 43 6f 64 |Operatio|n);.TCod|
|00001f90| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 00 00 |eLines..|........|
|00001fa0| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00001fb0| 00 00 4b 00 00 00 00 07 | 54 4d 65 74 68 6f 64 00 |..K.....|TMethod.|
|00001fc0| 00 00 00 ff ff ff ff 74 | 00 63 00 00 00 09 50 61 |.......t|.c....Pa|
|00001fd0| 69 6e 74 47 72 69 64 04 | 00 51 00 00 00 52 00 00 |intGrid.|.Q...R..|
|00001fe0| 00 04 56 6f 69 64 1f 03 | 03 00 02 03 00 0c 54 4d |..Void..|......TM|
|00001ff0| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00002000| 65 63 74 69 6f 6e 00 01 | 00 00 02 00 0a 54 43 6f |ection..|.....TCo|
|00002010| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 01 |deLines.|........|
|00002020| 00 19 69 66 20 28 44 65 | 73 69 67 6e 65 72 20 3c |..if (De|signer <|
|00002030| 3e 20 6e 69 6c 29 20 74 | 68 65 6e 0a 54 43 6f 64 |> nil) t|hen.TCod|
|00002040| 65 4c 69 6e 65 73 ff ff | ff ff 51 00 00 00 01 00 |eLines..|..Q.....|
|00002050| 15 20 20 44 65 73 69 67 | 6e 65 72 2e 50 61 69 6e |. Desig|ner.Pain|
|00002060| 74 47 72 69 64 3b 0a 54 | 43 6f 64 65 4c 69 6e 65 |tGrid;.T|CodeLine|
|00002070| 73 ff ff ff ff fe ff ff | ff 00 00 0b 54 43 6f 6c |s.......|....TCol|
|00002080| 6c 65 63 74 69 6f 6e 00 | 01 00 00 00 00 4c 00 00 |lection.|.....L..|
|00002090| 00 00 07 54 4d 65 74 68 | 6f 64 00 00 00 00 ff ff |...TMeth|od......|
|000020a0| ff ff 74 00 64 00 00 00 | 0c 52 65 6e 61 6d 65 4d |..t.d...|.RenameM|
|000020b0| 65 74 68 6f 64 04 00 51 | 00 00 00 52 00 00 00 04 |ethod..Q|...R....|
|000020c0| 56 6f 69 64 1f 03 03 00 | 02 03 1e 63 6f 6e 73 74 |Void....|...const|
|000020d0| 20 43 75 72 4e 61 6d 65 | 2c 20 4e 65 77 4e 61 6d | CurName|, NewNam|
|000020e0| 65 3a 20 73 74 72 69 6e | 67 0c 54 4d 65 74 68 6f |e: strin|g.TMetho|
|000020f0| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00002100| 6f 6e 00 01 00 00 02 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00002110| 6e 65 73 ff ff ff ff fe | ff ff ff 01 00 19 69 66 |nes.....|......if|
|00002120| 20 28 44 65 73 69 67 6e | 65 72 20 3c 3e 20 6e 69 | (Design|er <> ni|
|00002130| 6c 29 20 74 68 65 6e 0a | 54 43 6f 64 65 4c 69 6e |l) then.|TCodeLin|
|00002140| 65 73 ff ff ff ff 51 00 | 00 00 01 00 2a 20 20 44 |es....Q.|....* D|
|00002150| 65 73 69 67 6e 65 72 2e | 52 65 6e 61 6d 65 4d 65 |esigner.|RenameMe|
|00002160| 74 68 6f 64 28 43 75 72 | 4e 61 6d 65 2c 20 4e 65 |thod(Cur|Name, Ne|
|00002170| 77 4e 61 6d 65 29 3b 0a | 54 43 6f 64 65 4c 69 6e |wName);.|TCodeLin|
|00002180| 65 73 ff ff ff ff fe ff | ff ff 00 00 0b 54 43 6f |es......|.....TCo|
|00002190| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 4d 00 |llection|......M.|
|000021a0| 00 00 00 07 54 4d 65 74 | 68 6f 64 00 00 00 00 ff |....TMet|hod.....|
|000021b0| ff ff ff 74 00 65 00 00 | 00 0a 53 68 6f 77 4d 65 |...t.e..|..ShowMe|
|000021c0| 74 68 6f 64 04 00 51 00 | 00 00 52 00 00 00 04 56 |thod..Q.|..R....V|
|000021d0| 6f 69 64 1f 03 03 00 02 | 03 12 63 6f 6e 73 74 20 |oid.....|..const |
|000021e0| 4e 61 6d 65 3a 20 73 74 | 72 69 6e 67 0c 54 4d 65 |Name: st|ring.TMe|
|000021f0| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00002200| 63 74 69 6f 6e 00 01 00 | 00 02 00 0a 54 43 6f 64 |ction...|....TCod|
|00002210| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 01 00 |eLines..|........|
|00002220| 19 69 66 20 28 44 65 73 | 69 67 6e 65 72 20 3c 3e |.if (Des|igner <>|
|00002230| 20 6e 69 6c 29 20 74 68 | 65 6e 0a 54 43 6f 64 65 | nil) th|en.TCode|
|00002240| 4c 69 6e 65 73 ff ff ff | ff 51 00 00 00 01 00 1c |Lines...|.Q......|
|00002250| 20 20 44 65 73 69 67 6e | 65 72 2e 53 68 6f 77 4d | Design|er.ShowM|
|00002260| 65 74 68 6f 64 28 4e 61 | 6d 65 29 3b 0a 54 43 6f |ethod(Na|me);.TCo|
|00002270| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 00 |deLines.|........|
|00002280| 00 0b 54 43 6f 6c 6c 65 | 63 74 69 6f 6e 00 01 00 |..TColle|ction...|
|00002290| 00 00 00 4e 00 00 00 00 | 07 54 4d 65 74 68 6f 64 |...N....|.TMethod|
|000022a0| 00 00 00 00 ff ff ff ff | 74 00 66 00 00 00 0e 56 |........|t.f....V|
|000022b0| 61 6c 69 64 61 74 65 52 | 65 6e 61 6d 65 04 00 51 |alidateR|ename..Q|
|000022c0| 00 00 00 52 00 00 00 04 | 56 6f 69 64 1f 03 03 00 |...R....|Void....|
|000022d0| 02 03 36 41 43 6f 6d 70 | 6f 6e 65 6e 74 3a 20 54 |..6AComp|onent: T|
|000022e0| 43 6f 6d 70 6f 6e 65 6e | 74 3b 20 63 6f 6e 73 74 |Componen|t; const|
|000022f0| 20 43 75 72 4e 61 6d 65 | 2c 20 4e 65 77 4e 61 6d | CurName|, NewNam|
|00002300| 65 3a 20 73 74 72 69 6e | 67 0c 54 4d 65 74 68 6f |e: strin|g.TMetho|
|00002310| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00002320| 6f 6e 00 01 00 00 03 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00002330| 6e 65 73 ff ff ff ff fe | ff ff ff 01 00 19 69 66 |nes.....|......if|
|00002340| 20 28 44 65 73 69 67 6e | 65 72 20 3c 3e 20 6e 69 | (Design|er <> ni|
|00002350| 6c 29 20 74 68 65 6e 0a | 54 43 6f 64 65 4c 69 6e |l) then.|TCodeLin|
|00002360| 65 73 ff ff ff ff 51 00 | 00 00 01 00 38 20 20 44 |es....Q.|....8 D|
|00002370| 65 73 69 67 6e 65 72 2e | 56 61 6c 69 64 61 74 65 |esigner.|Validate|
|00002380| 52 65 6e 61 6d 65 28 41 | 43 6f 6d 70 6f 6e 65 6e |Rename(A|Componen|
|00002390| 74 2c 20 43 75 72 4e 61 | 6d 65 2c 20 4e 65 77 4e |t, CurNa|me, NewN|
|000023a0| 61 6d 65 29 3b 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |ame);.TC|odeLines|
|000023b0| ff ff ff ff fe ff ff ff | 02 00 23 69 66 20 41 73 |........|..#if As|
|000023c0| 73 69 67 6e 65 64 28 46 | 4f 6e 56 61 6c 69 64 61 |signed(F|OnValida|
|000023d0| 74 65 52 65 6e 61 6d 65 | 29 20 74 68 65 6e 38 20 |teRename|) then8 |
|000023e0| 20 46 4f 6e 56 61 6c 69 | 64 61 74 65 52 65 6e 61 | FOnVali|dateRena|
|000023f0| 6d 65 28 53 65 6c 66 2c | 20 41 43 6f 6d 70 6f 6e |me(Self,| ACompon|
|00002400| 65 6e 74 2c 20 43 75 72 | 4e 61 6d 65 2c 20 4e 65 |ent, Cur|Name, Ne|
|00002410| 77 4e 61 6d 65 29 3b 0a | 54 43 6f 64 65 4c 69 6e |wName);.|TCodeLin|
|00002420| 65 73 ff ff ff ff fe ff | ff ff 00 00 0b 54 43 6f |es......|.....TCo|
|00002430| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 4f 00 |llection|......O.|
|00002440| 00 00 00 09 54 50 72 6f | 70 65 72 74 79 ff ff 00 |....TPro|perty...|
|00002450| 00 ff ff ff ff 64 00 72 | 00 00 00 09 49 73 43 6f |.....d.r|....IsCo|
|00002460| 6e 74 72 6f 6c 00 00 fe | ff ff ff 43 00 00 00 07 |ntrol...|...C....|
|00002470| 42 6f 6f 6c 65 61 6e 07 | 03 04 00 00 01 ff ff ff |Boolean.|........|
|00002480| ff 73 00 00 00 01 ff ff | ff ff 00 00 00 ff ff ff |.s......|........|
|00002490| ff 00 00 ff ff ff ff 06 | 54 46 69 65 6c 64 31 00 |........|TField1.|
|000024a0| 00 00 ff ff ff ff 04 00 | 73 00 00 00 0a 46 49 73 |........|s....FIs|
|000024b0| 43 6f 6e 74 72 6f 6c 00 | 00 72 00 00 00 43 00 00 |Control.|.r...C..|
|000024c0| 00 07 42 6f 6f 6c 65 61 | 6e 07 01 00 00 09 54 50 |..Boolea|n.....TP|
|000024d0| 72 6f 70 65 72 74 79 ff | ff 00 00 ff ff ff ff 64 |roperty.|.......d|
|000024e0| 00 74 00 00 00 09 49 73 | 43 6f 6e 74 72 6f 6c 20 |.t....Is|Control |
|000024f0| 00 fe ff ff ff 52 00 00 | 00 07 42 6f 6f 6c 65 61 |.....R..|..Boolea|
|00002500| 6e 07 03 04 00 00 02 75 | 00 00 00 ff ff ff ff 02 |n......u|........|
|00002510| 76 00 00 00 00 00 00 ff | ff ff ff 00 00 72 00 00 |v.......|.....r..|
|00002520| 00 07 54 4d 65 74 68 6f | 64 31 02 00 00 ff ff ff |..TMetho|d1......|
|00002530| ff 74 00 75 00 00 00 0c | 47 65 74 49 73 43 6f 6e |.t.u....|GetIsCon|
|00002540| 74 72 6f 6c 08 00 74 00 | 00 00 52 00 00 00 07 42 |trol..t.|..R....B|
|00002550| 6f 6f 6c 65 61 6e 07 02 | 03 00 03 00 00 0c 54 4d |oolean..|......TM|
|00002560| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00002570| 65 63 74 69 6f 6e 00 01 | 00 00 01 00 0a 54 43 6f |ection..|.....TCo|
|00002580| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 04 |deLines.|........|
|00002590| 00 18 69 66 20 28 44 65 | 73 69 67 6e 65 72 20 3d |..if (De|signer =|
|000025a0| 20 6e 69 6c 29 20 74 68 | 65 6e 11 20 20 52 65 73 | nil) th|en. Res|
|000025b0| 75 6c 74 20 3a 3d 20 46 | 61 6c 73 65 04 65 6c 73 |ult := F|alse.els|
|000025c0| 65 1f 20 20 52 65 73 75 | 6c 74 20 3a 3d 20 44 65 |e. Resu|lt := De|
|000025d0| 73 69 67 6e 65 72 2e 49 | 73 43 6f 6e 74 72 6f 6c |signer.I|sControl|
|000025e0| 3b 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |;.TCodeL|ines....|
|000025f0| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|00002600| 6f 6e 00 01 00 00 00 00 | ff ff ff ff 00 07 54 4d |on......|......TM|
|00002610| 65 74 68 6f 64 31 02 00 | 00 ff ff ff ff 74 00 76 |ethod1..|.....t.v|
|00002620| 00 00 00 0c 53 65 74 49 | 73 43 6f 6e 74 72 6f 6c |....SetI|sControl|
|00002630| 08 00 74 00 00 00 52 00 | 00 00 04 56 6f 69 64 1f |..t...R.|...Void.|
|00002640| 02 03 00 02 00 0e 56 61 | 6c 75 65 3a 20 42 6f 6f |......Va|lue: Boo|
|00002650| 6c 65 61 6e 0c 54 4d 65 | 74 68 6f 64 46 6c 65 73 |lean.TMe|thodFles|
|00002660| 68 0b 54 43 6f 6c 6c 65 | 63 74 69 6f 6e 00 01 00 |h.TColle|ction...|
|00002670| 00 01 00 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |....TCod|eLines..|
|00002680| ff ff fe ff ff ff 01 00 | 33 69 66 20 44 65 73 69 |........|3if Desi|
|00002690| 67 6e 65 72 20 3c 3e 20 | 6e 69 6c 20 74 68 65 6e |gner <> |nil then|
|000026a0| 20 44 65 73 69 67 6e 65 | 72 2e 49 73 43 6f 6e 74 | Designe|r.IsCont|
|000026b0| 72 6f 6c 20 3a 3d 20 56 | 61 6c 75 65 0a 54 43 6f |rol := V|alue.TCo|
|000026c0| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 00 |deLines.|........|
|000026d0| 00 0b 54 43 6f 6c 6c 65 | 63 74 69 6f 6e 00 01 00 |..TColle|ction...|
|000026e0| 00 00 00 ff ff ff ff 00 | 09 54 50 72 6f 70 65 72 |........|.TProper|
|000026f0| 74 79 ff ff 00 00 ff ff | ff ff 64 00 7a 00 00 00 |ty......|..d.z...|
|00002700| 08 44 65 73 69 67 6e 65 | 72 00 00 fe ff ff ff 79 |.Designe|r......y|
|00002710| 00 00 00 12 54 44 65 73 | 69 67 6e 65 72 44 65 63 |....TDes|ignerDec|
|00002720| 6f 72 61 74 6f 72 1c 03 | 04 52 00 00 00 00 00 01 |orator..|.R......|
|00002730| ff ff ff ff 7b 00 00 00 | 00 ff ff ff ff 00 00 00 |....{...|........|
|00002740| ff ff ff ff 00 00 ff ff | ff ff 06 54 46 69 65 6c |........|...TFiel|
|00002750| 64 31 00 00 00 ff ff ff | ff 04 00 7b 00 00 00 09 |d1......|...{....|
|00002760| 46 44 65 73 69 67 6e 65 | 72 05 00 7a 00 00 00 79 |FDesigne|r..z...y|
|00002770| 00 00 00 12 54 44 65 73 | 69 67 6e 65 72 44 65 63 |....TDes|ignerDec|
|00002780| 6f 72 61 74 6f 72 1c 01 | 00 52 00 00 00 00 07 54 |orator..|.R.....T|
|00002790| 4d 65 74 68 6f 64 ff ff | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|000027a0| 7c 00 00 00 06 43 72 65 | 61 74 65 06 00 fe ff ff ||....Cre|ate.....|
|000027b0| ff 79 00 00 00 04 56 6f | 69 64 1f 03 01 00 00 03 |.y....Vo|id......|
|000027c0| 12 41 4f 77 6e 65 72 3a | 20 54 43 6f 6d 70 6f 6e |.AOwner:| TCompon|
|000027d0| 65 6e 74 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ent.TMet|hodFlesh|
|000027e0| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|000027f0| 03 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 fc ff ff |...TCode|Lines...|
|00002800| ff 7c 00 00 00 01 00 19 | 69 6e 68 65 72 69 74 65 |.|......|inherite|
|00002810| 64 20 43 72 65 61 74 65 | 28 41 4f 77 6e 65 72 29 |d Create|(AOwner)|
|00002820| 3b 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |;.TCodeL|ines....|
|00002830| fb ff ff ff 04 00 27 46 | 44 65 73 69 67 6e 65 72 |......'F|Designer|
|00002840| 20 3a 3d 20 54 44 65 73 | 69 67 6e 65 72 44 65 63 | := TDes|ignerDec|
|00002850| 6f 72 61 74 6f 72 2e 43 | 72 65 61 74 65 3b 16 46 |orator.C|reate;.F|
|00002860| 4c 69 73 74 20 3a 3d 20 | 54 4c 69 73 74 2e 43 72 |List := |TList.Cr|
|00002870| 65 61 74 65 3b 1f 46 52 | 75 6c 65 73 20 3a 3d 20 |eate;.FR|ules := |
|00002880| 54 4e 61 6d 65 52 75 6c | 65 4c 69 73 74 2e 43 72 |TNameRul|eList.Cr|
|00002890| 65 61 74 65 3b 1e 46 54 | 69 6d 65 72 20 3a 3d 20 |eate;.FT|imer := |
|000028a0| 54 54 69 6d 65 72 2e 43 | 72 65 61 74 65 28 53 65 |TTimer.C|reate(Se|
|000028b0| 6c 66 29 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |lf);.TCo|deLines.|
|000028c0| ff ff ff fe ff ff ff 0a | 00 0d 57 69 72 65 44 65 |........|..WireDe|
|000028d0| 73 69 67 6e 65 72 3b 27 | 46 69 6c 65 4e 61 6d 65 |signer;'|FileName|
|000028e0| 20 3a 3d 20 43 6f 6d 6d | 61 6e 64 50 61 74 68 20 | := Comm|andPath |
|000028f0| 2b 20 52 75 6c 65 46 69 | 6c 65 4e 61 6d 65 3b 1c |+ RuleFi|leName;.|
|00002900| 46 54 69 6d 65 72 2e 4f | 6e 54 69 6d 65 72 20 3a |FTimer.O|nTimer :|
|00002910| 3d 20 54 69 6d 65 72 54 | 69 63 6b 3b 16 46 54 69 |= TimerT|ick;.FTi|
|00002920| 6d 65 72 2e 49 6e 74 65 | 72 76 61 6c 20 3a 3d 20 |mer.Inte|rval := |
|00002930| 35 35 3b 2f 7b 20 55 73 | 65 20 74 68 65 20 66 69 |55;/{ Us|e the fi|
|00002940| 72 73 74 20 74 69 63 6b | 20 74 6f 20 6c 6f 67 20 |rst tick| to log |
|00002950| 74 68 65 20 63 75 72 72 | 65 6e 74 20 72 75 6c 65 |the curr|ent rule|
|00002960| 73 20 7d 17 46 54 69 6d | 65 72 2e 45 6e 61 62 6c |s }.FTim|er.Enabl|
|00002970| 65 64 20 3a 3d 20 54 72 | 75 65 3b 19 7b 20 68 6f |ed := Tr|ue;.{ ho|
|00002980| 6f 6b 20 6f 6e 20 74 6f | 20 74 68 65 20 73 63 72 |ok on to| the scr|
|00002990| 65 65 6e 20 7d 33 46 50 | 72 65 76 41 63 74 69 76 |een }3FP|revActiv|
|000029a0| 65 46 6f 72 6d 43 68 61 | 6e 67 65 20 3a 3d 20 53 |eFormCha|nge := S|
|000029b0| 63 72 65 65 6e 2e 4f 6e | 41 63 74 69 76 65 46 6f |creen.On|ActiveFo|
|000029c0| 72 6d 43 68 61 6e 67 65 | 3b 2e 53 63 72 65 65 6e |rmChange|;.Screen|
|000029d0| 2e 4f 6e 41 63 74 69 76 | 65 46 6f 72 6d 43 68 61 |.OnActiv|eFormCha|
|000029e0| 6e 67 65 20 3a 3d 20 41 | 63 74 69 76 65 46 6f 72 |nge := A|ctiveFor|
|000029f0| 6d 43 68 61 6e 67 65 3b | 16 46 53 63 72 65 65 6e |mChange;|.FScreen|
|00002a00| 48 6f 6f 6b 65 64 20 3a | 3d 20 54 72 75 65 3b 0a |Hooked :|= True;.|
|00002a10| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff fe ff |TCodeLin|es......|
|00002a20| ff ff 00 00 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |.....TCo|llection|
|00002a30| 00 01 00 00 00 00 09 00 | 00 00 00 07 54 4d 65 74 |........|....TMet|
|00002a40| 68 6f 64 ff ff 00 00 ff | ff ff ff 74 00 7d 00 00 |hod.....|...t.}..|
|00002a50| 00 07 44 65 73 74 72 6f | 79 06 00 fe ff ff ff 79 |..Destro|y......y|
|00002a60| 00 00 00 04 56 6f 69 64 | 1f 03 02 00 01 03 00 0c |....Void|........|
|00002a70| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|00002a80| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 03 00 0a 54 |llection|.......T|
|00002a90| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00002aa0| ff 0a 00 03 74 72 79 17 | 20 20 69 66 20 46 53 63 |....try.| if FSc|
|00002ab0| 72 65 65 6e 48 6f 6f 6b | 65 64 20 74 68 65 6e 37 |reenHook|ed then7|
|00002ac0| 20 20 20 20 53 63 72 65 | 65 6e 2e 4f 6e 41 63 74 | Scre|en.OnAct|
|00002ad0| 69 76 65 46 6f 72 6d 43 | 68 61 6e 67 65 20 3a 3d |iveFormC|hange :=|
|00002ae0| 20 46 50 72 65 76 41 63 | 74 69 76 65 46 6f 72 6d | FPrevAc|tiveForm|
|00002af0| 43 68 61 6e 67 65 3b 06 | 65 78 63 65 70 74 52 20 |Change;.|exceptR |
|00002b00| 20 7b 20 53 63 72 65 65 | 6e 20 61 6c 72 65 61 73 | { Scree|n alreas|
|00002b10| 79 20 67 6f 6e 65 2c 20 | 74 68 65 72 65 66 6f 72 |y gone, |therefor|
|00002b20| 65 20 6e 6f 20 6e 65 65 | 64 20 74 6f 20 75 6e 68 |e no nee|d to unh|
|00002b30| 6f 6f 6b 20 61 6e 64 20 | 77 65 20 63 61 6e 20 69 |ook and |we can i|
|00002b40| 67 6e 6f 72 65 20 45 47 | 50 46 61 75 6c 74 73 20 |gnore EG|PFaults |
|00002b50| 7d 11 20 20 6f 6e 20 45 | 47 50 46 61 75 6c 74 20 |}. on E|GPFault |
|00002b60| 64 6f 3b 04 65 6e 64 3b | 18 46 54 69 6d 65 72 2e |do;.end;|.FTimer.|
|00002b70| 45 6e 61 62 6c 65 64 20 | 3a 3d 20 46 61 6c 73 65 |Enabled |:= False|
|00002b80| 3b 0c 46 4c 69 73 74 2e | 43 6c 65 61 72 3b 0f 55 |;.FList.|Clear;.U|
|00002b90| 6e 77 69 72 65 44 65 73 | 69 67 6e 65 72 3b 0a 54 |nwireDes|igner;.T|
|00002ba0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fb ff ff |CodeLine|s.......|
|00002bb0| ff 03 00 0f 46 44 65 73 | 69 67 6e 65 72 2e 46 72 |....FDes|igner.Fr|
|00002bc0| 65 65 3b 0b 46 4c 69 73 | 74 2e 46 72 65 65 3b 0c |ee;.FLis|t.Free;.|
|00002bd0| 46 52 75 6c 65 73 2e 46 | 72 65 65 3b 0a 54 43 6f |FRules.F|ree;.TCo|
|00002be0| 64 65 4c 69 6e 65 73 fc | ff ff ff 7d 00 00 00 01 |deLines.|...}....|
|00002bf0| 00 12 69 6e 68 65 72 69 | 74 65 64 20 44 65 73 74 |..inheri|ted Dest|
|00002c00| 72 6f 79 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |roy;.TCo|deLines.|
|00002c10| ff ff ff fe ff ff ff 00 | 00 0b 54 43 6f 6c 6c 65 |........|..TColle|
|00002c20| 63 74 69 6f 6e 00 01 00 | 00 00 00 02 00 00 00 00 |ction...|........|
|00002c30| 09 54 50 72 6f 70 65 72 | 74 79 ff ff 00 00 ff ff |.TProper|ty......|
|00002c40| ff ff 64 00 83 00 00 00 | 0a 41 63 74 69 76 65 46 |..d.....|.ActiveF|
|00002c50| 6f 72 6d 00 00 fe ff ff | ff 79 00 00 00 05 54 46 |orm.....|.y....TF|
|00002c60| 6f 72 6d 1c 03 04 ff ff | ff ff 00 00 01 ff ff ff |orm.....|........|
|00002c70| ff 84 00 00 00 02 87 00 | 00 00 00 00 00 ff ff ff |........|........|
|00002c80| ff 00 00 ff ff ff ff 06 | 54 46 69 65 6c 64 31 00 |........|TField1.|
|00002c90| 00 00 ff ff ff ff 04 00 | 84 00 00 00 0b 46 41 63 |........|.....FAc|
|00002ca0| 74 69 76 65 46 6f 72 6d | 00 00 83 00 00 00 79 00 |tiveForm|......y.|
|00002cb0| 00 00 05 54 46 6f 72 6d | 1c 01 00 ff ff ff ff 00 |...TForm|........|
|00002cc0| 07 54 4d 65 74 68 6f 64 | 31 02 00 00 ff ff ff ff |.TMethod|1.......|
|00002cd0| 74 00 87 00 00 00 0d 53 | 65 74 41 63 74 69 76 65 |t......S|etActive|
|00002ce0| 46 6f 72 6d 08 00 83 00 | 00 00 79 00 00 00 04 56 |Form....|..y....V|
|00002cf0| 6f 69 64 1f 02 03 00 02 | 00 0c 56 61 6c 75 65 3a |oid.....|..Value:|
|00002d00| 20 54 46 6f 72 6d 0c 54 | 4d 65 74 68 6f 64 46 6c | TForm.T|MethodFl|
|00002d10| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00002d20| 01 00 00 01 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00002d30| ff ff ff ff fe ff ff ff | 08 00 1c 69 66 20 56 61 |........|...if Va|
|00002d40| 6c 75 65 20 3c 3e 20 46 | 41 63 74 69 76 65 46 6f |lue <> F|ActiveFo|
|00002d50| 72 6d 20 74 68 65 6e 05 | 62 65 67 69 6e 33 20 20 |rm then.|begin3 |
|00002d60| 7b 20 64 6f 20 6e 6f 74 | 20 61 66 66 65 63 74 20 |{ do not| affect |
|00002d70| 63 6f 6d 70 6f 6e 65 6e | 74 73 20 61 6e 79 20 6d |componen|ts any m|
|00002d80| 6f 72 65 3a 20 63 6c 65 | 61 72 20 6c 69 73 74 20 |ore: cle|ar list |
|00002d90| 7d 0e 20 20 46 4c 69 73 | 74 2e 43 6c 65 61 72 3b |}. FLis|t.Clear;|
|00002da0| 1a 20 20 46 54 69 6d 65 | 72 2e 45 6e 61 62 6c 65 |. FTime|r.Enable|
|00002db0| 64 20 3a 3d 20 46 61 6c | 73 65 3b 17 20 20 46 41 |d := Fal|se;. FA|
|00002dc0| 63 74 69 76 65 46 6f 72 | 6d 20 3a 3d 20 56 61 6c |ctiveFor|m := Val|
|00002dd0| 75 65 3b 1d 20 20 44 65 | 73 69 67 6e 65 72 2e 48 |ue;. De|signer.H|
|00002de0| 6f 6f 6b 28 46 41 63 74 | 69 76 65 46 6f 72 6d 29 |ook(FAct|iveForm)|
|00002df0| 3b 04 65 6e 64 3b 0a 54 | 43 6f 64 65 4c 69 6e 65 |;.end;.T|CodeLine|
|00002e00| 73 ff ff ff ff fe ff ff | ff 00 00 0b 54 43 6f 6c |s.......|....TCol|
|00002e10| 6c 65 63 74 69 6f 6e 00 | 01 00 00 01 00 09 54 4c |lection.|......TL|
|00002e20| 6f 63 61 6c 56 61 72 ff | ff ff ff fe ff ff ff 06 |ocalVar.|........|
|00002e30| 73 74 72 69 6e 67 11 03 | 53 74 72 ff ff ff ff 00 |string..|Str.....|
|00002e40| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 ff ff ff ff |.TMethod|........|
|00002e50| 74 00 88 00 00 00 10 55 | 70 64 61 74 65 41 63 74 |t......U|pdateAct|
|00002e60| 69 76 65 46 6f 72 6d 00 | 00 fe ff ff ff 79 00 00 |iveForm.|.....y..|
|00002e70| 00 04 56 6f 69 64 1f 02 | 03 00 02 00 00 0c 54 4d |..Void..|......TM|
|00002e80| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00002e90| 65 63 74 69 6f 6e 00 01 | 00 00 01 00 0a 54 43 6f |ection..|.....TCo|
|00002ea0| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 05 |deLines.|........|
|00002eb0| 00 17 46 20 3a 3d 20 53 | 63 72 65 65 6e 2e 41 63 |..F := S|creen.Ac|
|00002ec0| 74 69 76 65 46 6f 72 6d | 3b 3a 69 66 20 41 73 73 |tiveForm|;:if Ass|
|00002ed0| 69 67 6e 65 64 28 46 29 | 20 61 6e 64 20 28 63 73 |igned(F)| and (cs|
|00002ee0| 44 65 73 69 67 6e 69 6e | 67 20 69 6e 20 46 2e 43 |Designin|g in F.C|
|00002ef0| 6f 6d 70 6f 6e 65 6e 74 | 53 74 61 74 65 29 20 20 |omponent|State) |
|00002f00| 74 68 65 6e 11 20 20 41 | 63 74 69 76 65 46 6f 72 |then. A|ctiveFor|
|00002f10| 6d 20 3a 3d 20 46 04 65 | 6c 73 65 14 20 20 41 63 |m := F.e|lse. Ac|
|00002f20| 74 69 76 65 46 6f 72 6d | 20 3a 3d 20 6e 69 6c 3b |tiveForm| := nil;|
|00002f30| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|00002f40| ff ff ff 00 00 0b 54 43 | 6f 6c 6c 65 63 74 69 6f |......TC|ollectio|
|00002f50| 6e 00 01 00 00 01 00 09 | 54 4c 6f 63 61 6c 56 61 |n.......|TLocalVa|
|00002f60| 72 ff ff ff ff fe ff ff | ff 05 54 46 6f 72 6d 1c |r.......|..TForm.|
|00002f70| 01 46 ff ff ff ff 00 06 | 54 46 69 65 6c 64 31 00 |.F......|TField1.|
|00002f80| 00 00 ff ff ff ff 04 00 | 93 00 00 00 0f 46 4f 6e |........|.....FOn|
|00002f90| 4e 6f 74 69 66 69 63 61 | 74 69 6f 6e 00 00 94 00 |Notifica|tion....|
|00002fa0| 00 00 52 00 00 00 12 54 | 4e 6f 74 69 66 69 63 61 |..R....T|Notifica|
|00002fb0| 74 69 6f 6e 45 76 65 6e | 74 1e 01 00 00 06 54 45 |tionEven|t.....TE|
|00002fc0| 76 65 6e 74 ff ff 00 00 | ff ff ff ff 64 00 94 00 |vent....|....d...|
|00002fd0| 00 00 0e 4f 6e 4e 6f 74 | 69 66 69 63 61 74 69 6f |...OnNot|ificatio|
|00002fe0| 6e 04 00 fe ff ff ff 52 | 00 00 00 12 54 4e 6f 74 |n......R|....TNot|
|00002ff0| 69 66 69 63 61 74 69 6f | 6e 45 76 65 6e 74 1e 03 |ificatio|nEvent..|
|00003000| 04 00 00 01 ff ff ff ff | 93 00 00 00 01 ff ff ff |........|........|
|00003010| ff 00 00 00 ff ff ff ff | 00 00 ff ff ff ff ff ff |........|........|
|00003020| ff ff 09 00 00 00 06 54 | 46 69 65 6c 64 31 00 00 |.......T|Field1..|
|00003030| 00 ff ff ff ff 04 00 95 | 00 00 00 11 46 4f 6e 56 |........|....FOnV|
|00003040| 61 6c 69 64 61 74 65 52 | 65 6e 61 6d 65 00 00 96 |alidateR|ename...|
|00003050| 00 00 00 52 00 00 00 14 | 54 56 61 6c 69 64 61 74 |...R....|TValidat|
|00003060| 65 52 65 6e 61 6d 65 45 | 76 65 6e 74 1e 01 00 00 |eRenameE|vent....|
|00003070| 06 54 45 76 65 6e 74 ff | ff 00 00 ff ff ff ff 64 |.TEvent.|.......d|
|00003080| 00 96 00 00 00 10 4f 6e | 56 61 6c 69 64 61 74 65 |......On|Validate|
|00003090| 52 65 6e 61 6d 65 04 00 | fe ff ff ff 52 00 00 00 |Rename..|....R...|
|000030a0| 14 54 56 61 6c 69 64 61 | 74 65 52 65 6e 61 6d 65 |.TValida|teRename|
|000030b0| 45 76 65 6e 74 1e 03 04 | 00 00 01 ff ff ff ff 95 |Event...|........|
|000030c0| 00 00 00 01 ff ff ff ff | 00 00 00 ff ff ff ff 00 |........|........|
|000030d0| 00 ff ff ff ff ff ff ff | ff 0a 00 00 00 07 54 4d |........|......TM|
|000030e0| 65 74 68 6f 64 ff ff 00 | 00 94 00 00 00 74 00 9a |ethod...|.....t..|
|000030f0| 00 00 00 14 44 65 73 69 | 67 6e 65 72 4e 6f 74 69 |....Desi|gnerNoti|
|00003100| 66 69 63 61 74 69 6f 6e | 00 00 99 00 00 00 79 00 |fication|......y.|
|00003110| 00 00 04 56 6f 69 64 1f | 02 03 00 02 00 3e 53 65 |...Void.|.....>Se|
|00003120| 6e 64 65 72 3a 20 54 4f | 62 6a 65 63 74 3b 20 41 |nder: TO|bject; A|
|00003130| 43 6f 6d 70 6f 6e 65 6e | 74 3a 20 54 43 6f 6d 70 |Componen|t: TComp|
|00003140| 6f 6e 65 6e 74 3b 20 4f | 70 65 72 61 74 69 6f 6e |onent; O|peration|
|00003150| 3a 20 54 4f 70 65 72 61 | 74 69 6f 6e 0c 54 4d 65 |: TOpera|tion.TMe|
|00003160| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00003170| 63 74 69 6f 6e 00 01 00 | 00 01 00 0a 54 43 6f 64 |ction...|....TCod|
|00003180| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 05 00 |eLines..|........|
|00003190| 1c 69 66 20 4f 70 65 72 | 61 74 69 6f 6e 20 3d 20 |.if Oper|ation = |
|000031a0| 6f 70 52 65 6d 6f 76 65 | 20 74 68 65 6e 05 62 65 |opRemove| then.be|
|000031b0| 67 69 6e 1b 20 20 46 4c | 69 73 74 2e 52 65 6d 6f |gin. FL|ist.Remo|
|000031c0| 76 65 28 41 43 6f 6d 70 | 6f 6e 65 6e 74 29 3b 0e |ve(AComp|onent);.|
|000031d0| 20 20 55 70 64 61 74 65 | 54 69 6d 65 72 3b 04 65 | Update|Timer;.e|
|000031e0| 6e 64 3b 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |nd;.TCod|eLines..|
|000031f0| ff ff fe ff ff ff 00 00 | 0b 54 43 6f 6c 6c 65 63 |........|.TCollec|
|00003200| 74 69 6f 6e 00 01 00 00 | 00 00 ff ff ff ff 00 07 |tion....|........|
|00003210| 54 4d 65 74 68 6f 64 ff | ff 00 00 96 00 00 00 74 |TMethod.|.......t|
|00003220| 00 9b 00 00 00 16 44 65 | 73 69 67 6e 65 72 56 61 |......De|signerVa|
|00003230| 6c 69 64 61 74 65 52 65 | 6e 61 6d 65 00 00 99 00 |lidateRe|name....|
|00003240| 00 00 79 00 00 00 04 56 | 6f 69 64 1f 02 03 00 02 |..y....V|oid.....|
|00003250| 00 47 53 65 6e 64 65 72 | 3a 20 54 4f 62 6a 65 63 |.GSender|: TObjec|
|00003260| 74 3b 20 41 43 6f 6d 70 | 6f 6e 65 6e 74 3a 20 54 |t; AComp|onent: T|
|00003270| 43 6f 6d 70 6f 6e 65 6e | 74 3b 20 63 6f 6e 73 74 |Componen|t; const|
|00003280| 20 43 75 72 4e 61 6d 65 | 2c 20 4e 65 77 4e 61 6d | CurName|, NewNam|
|00003290| 65 3a 20 73 74 72 69 6e | 67 0c 54 4d 65 74 68 6f |e: strin|g.TMetho|
|000032a0| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|000032b0| 6f 6e 00 01 00 00 01 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|000032c0| 6e 65 73 ff ff ff ff fe | ff ff ff 09 00 4e 7b 20 |nes.....|.....N{ |
|000032d0| 64 6f 20 4e 4f 54 20 74 | 72 69 67 67 65 72 20 6f |do NOT t|rigger o|
|000032e0| 6e 20 69 6e 73 65 72 74 | 69 6f 6e 2c 20 69 6e 73 |n insert|ion, ins|
|000032f0| 74 65 61 64 20 74 72 69 | 67 67 65 72 20 6f 6e 20 |tead tri|gger on |
|00003300| 74 68 65 20 49 44 45 20 | 72 65 6e 61 6d 69 6e 67 |the IDE |renaming|
|00003310| 20 61 20 63 6f 6d 70 6f | 6e 65 6e 74 2a 20 20 77 | a compo|nent* w|
|00003320| 68 69 63 68 20 72 65 73 | 75 6c 74 73 20 69 6e 20 |hich res|ults in |
|00003330| 61 20 56 61 6c 69 64 61 | 74 65 52 65 6e 61 6d 65 |a Valida|teRename|
|00003340| 20 63 61 6c 6c 20 7d 48 | 69 66 20 28 4c 65 6e 67 | call }H|if (Leng|
|00003350| 74 68 28 43 75 72 4e 61 | 6d 65 29 20 3d 20 30 29 |th(CurNa|me) = 0)|
|00003360| 20 61 6e 64 20 28 4c 65 | 6e 67 74 68 28 4e 65 77 | and (Le|ngth(New|
|00003370| 4e 61 6d 65 29 20 3e 20 | 30 29 20 61 6e 64 20 53 |Name) > |0) and S|
|00003380| 74 61 6e 64 61 72 64 4e | 61 6d 65 20 74 68 65 6e |tandardN|ame then|
|00003390| 0b 7b 20 74 72 69 67 67 | 65 72 20 7d 28 20 20 69 |.{ trigg|er }( i|
|000033a0| 66 20 46 4c 69 73 74 2e | 49 6e 64 65 78 4f 66 28 |f FList.|IndexOf(|
|000033b0| 41 43 6f 6d 70 6f 6e 65 | 6e 74 29 20 3d 20 2d 31 |ACompone|nt) = -1|
|000033c0| 20 74 68 65 6e 07 20 20 | 62 65 67 69 6e 1a 20 20 | then. |begin. |
|000033d0| 20 20 46 4c 69 73 74 2e | 41 64 64 28 41 43 6f 6d | FList.|Add(ACom|
|000033e0| 70 6f 6e 65 6e 74 29 3b | 10 20 20 20 20 55 70 64 |ponent);|. Upd|
|000033f0| 61 74 65 54 69 6d 65 72 | 3b 06 20 20 65 6e 64 3b |ateTimer|;. end;|
|00003400| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|00003410| ff ff ff 04 00 1f 66 75 | 6e 63 74 69 6f 6e 20 53 |......fu|nction S|
|00003420| 74 61 6e 64 61 72 64 4e | 61 6d 65 3a 20 42 6f 6f |tandardN|ame: Boo|
|00003430| 6c 65 61 6e 3b 05 62 65 | 67 69 6e 58 20 20 52 65 |lean;.be|ginX Re|
|00003440| 73 75 6c 74 20 3a 3d 20 | 28 43 6f 6d 70 61 72 65 |sult := |(Compare|
|00003450| 54 65 78 74 28 43 6f 70 | 79 28 41 43 6f 6d 70 6f |Text(Cop|y(ACompo|
|00003460| 6e 65 6e 74 2e 43 6c 61 | 73 73 4e 61 6d 65 2c 20 |nent.Cla|ssName, |
|00003470| 32 2c 20 32 35 35 29 2c | 20 47 65 74 54 65 6d 70 |2, 255),| GetTemp|
|00003480| 6c 61 74 65 28 4e 65 77 | 4e 61 6d 65 29 29 20 3d |late(New|Name)) =|
|00003490| 20 30 29 3b 04 65 6e 64 | 3b 0b 54 43 6f 6c 6c 65 | 0);.end|;.TColle|
|000034a0| 63 74 69 6f 6e 00 01 00 | 00 00 00 ff ff ff ff 00 |ction...|........|
|000034b0| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 ff ff ff ff |.TMethod|........|
|000034c0| 74 00 9c 00 00 00 0c 57 | 69 72 65 44 65 73 69 67 |t......W|ireDesig|
|000034d0| 6e 65 72 00 00 99 00 00 | 00 79 00 00 00 04 56 6f |ner.....|.y....Vo|
|000034e0| 69 64 1f 02 03 00 02 00 | 00 0c 54 4d 65 74 68 6f |id......|..TMetho|
|000034f0| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00003500| 6f 6e 00 01 00 00 03 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00003510| 6e 65 73 94 00 00 00 99 | 00 00 00 01 00 31 46 44 |nes.....|.....1FD|
|00003520| 65 73 69 67 6e 65 72 2e | 4f 6e 4e 6f 74 69 66 69 |esigner.|OnNotifi|
|00003530| 63 61 74 69 6f 6e 20 3a | 3d 20 44 65 73 69 67 6e |cation :|= Design|
|00003540| 65 72 4e 6f 74 69 66 69 | 63 61 74 69 6f 6e 3b 0a |erNotifi|cation;.|
|00003550| 54 43 6f 64 65 4c 69 6e | 65 73 96 00 00 00 99 00 |TCodeLin|es......|
|00003560| 00 00 01 00 35 46 44 65 | 73 69 67 6e 65 72 2e 4f |....5FDe|signer.O|
|00003570| 6e 56 61 6c 69 64 61 74 | 65 52 65 6e 61 6d 65 20 |nValidat|eRename |
|00003580| 3a 3d 20 44 65 73 69 67 | 6e 65 72 56 61 6c 69 64 |:= Desig|nerValid|
|00003590| 61 74 65 52 65 6e 61 6d | 65 3b 0a 54 43 6f 64 65 |ateRenam|e;.TCode|
|000035a0| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 01 00 2f |Lines...|......./|
|000035b0| 46 44 65 73 69 67 6e 65 | 72 2e 4f 6e 55 6e 68 6f |FDesigne|r.OnUnho|
|000035c0| 6f 6b 45 72 72 6f 72 20 | 3a 3d 20 44 65 73 69 67 |okError |:= Desig|
|000035d0| 6e 65 72 55 6e 68 6f 6f | 6b 45 72 72 6f 72 3b 0a |nerUnhoo|kError;.|
|000035e0| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff fe ff |TCodeLin|es......|
|000035f0| ff ff 00 00 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |.....TCo|llection|
|00003600| 00 01 00 00 00 00 ff ff | ff ff 00 07 54 4d 65 74 |........|....TMet|
|00003610| 68 6f 64 ff ff 00 00 ff | ff ff ff 74 00 9d 00 00 |hod.....|...t....|
|00003620| 00 0e 55 6e 77 69 72 65 | 44 65 73 69 67 6e 65 72 |..Unwire|Designer|
|00003630| 00 00 99 00 00 00 79 00 | 00 00 04 56 6f 69 64 1f |......y.|...Void.|
|00003640| 02 03 00 02 00 00 0c 54 | 4d 65 74 68 6f 64 46 6c |.......T|MethodFl|
|00003650| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00003660| 01 00 00 03 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00003670| 94 00 00 00 99 00 00 00 | 01 00 20 46 44 65 73 69 |........|.. FDesi|
|00003680| 67 6e 65 72 2e 4f 6e 4e | 6f 74 69 66 69 63 61 74 |gner.OnN|otificat|
|00003690| 69 6f 6e 20 3a 3d 20 6e | 69 6c 3b 0a 54 43 6f 64 |ion := n|il;.TCod|
|000036a0| 65 4c 69 6e 65 73 96 00 | 00 00 99 00 00 00 01 00 |eLines..|........|
|000036b0| 22 46 44 65 73 69 67 6e | 65 72 2e 4f 6e 56 61 6c |"FDesign|er.OnVal|
|000036c0| 69 64 61 74 65 52 65 6e | 61 6d 65 20 3a 3d 20 6e |idateRen|ame := n|
|000036d0| 69 6c 3b 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |il;.TCod|eLines..|
|000036e0| ff ff fe ff ff ff 01 00 | 1f 46 44 65 73 69 67 6e |........|.FDesign|
|000036f0| 65 72 2e 4f 6e 55 6e 68 | 6f 6f 6b 45 72 72 6f 72 |er.OnUnh|ookError|
|00003700| 20 3a 3d 20 6e 69 6c 3b | 0a 54 43 6f 64 65 4c 69 | := nil;|.TCodeLi|
|00003710| 6e 65 73 ff ff ff ff fe | ff ff ff 00 00 0b 54 43 |nes.....|......TC|
|00003720| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 00 00 ff |ollectio|n.......|
|00003730| ff ff ff 00 06 54 46 69 | 65 6c 64 ff ff 00 00 ff |.....TFi|eld.....|
|00003740| ff ff ff 04 00 9e 00 00 | 00 05 46 4c 69 73 74 05 |........|..FList.|
|00003750| 00 fe ff ff ff 79 00 00 | 00 05 54 4c 69 73 74 1c |.....y..|..TList.|
|00003760| 01 00 05 00 00 00 00 06 | 54 46 69 65 6c 64 ff ff |........|TField..|
|00003770| 00 00 ff ff ff ff 04 00 | 9f 00 00 00 06 46 54 69 |........|.....FTi|
|00003780| 6d 65 72 04 00 fe ff ff | ff 79 00 00 00 06 54 54 |mer.....|.y....TT|
|00003790| 69 6d 65 72 1c 01 00 ff | ff ff ff 00 09 54 50 72 |imer....|.....TPr|
|000037a0| 6f 70 65 72 74 79 ff ff | 00 00 ff ff ff ff 64 00 |operty..|......d.|
|000037b0| a0 00 00 00 05 52 75 6c | 65 73 00 00 fe ff ff ff |.....Rul|es......|
|000037c0| 79 00 00 00 0d 54 4e 61 | 6d 65 52 75 6c 65 4c 69 |y....TNa|meRuleLi|
|000037d0| 73 74 1c 03 04 a3 00 00 | 00 00 00 01 ff ff ff ff |st......|........|
|000037e0| a1 00 00 00 00 ff ff ff | ff 00 00 00 ff ff ff ff |........|........|
|000037f0| 00 00 ff ff ff ff 06 54 | 46 69 65 6c 64 31 00 00 |.......T|Field1..|
|00003800| 00 ff ff ff ff 04 00 a1 | 00 00 00 06 46 52 75 6c |........|....FRul|
|00003810| 65 73 05 00 a0 00 00 00 | 79 00 00 00 0d 54 4e 61 |es......|y....TNa|
|00003820| 6d 65 52 75 6c 65 4c 69 | 73 74 1c 01 00 a3 00 00 |meRuleLi|st......|
|00003830| 00 00 09 54 50 72 6f 70 | 65 72 74 79 ff ff 00 00 |...TProp|erty....|
|00003840| ff ff ff ff 64 00 a4 00 | 00 00 08 46 69 6c 65 4e |....d...|...FileN|
|00003850| 61 6d 65 40 00 fe ff ff | ff 79 00 00 00 06 73 74 |ame@....|.y....st|
|00003860| 72 69 6e 67 11 04 04 00 | 00 01 ff ff ff ff a5 00 |ring....|........|
|00003870| 00 00 02 a6 00 00 00 00 | 00 00 ff ff ff ff 00 00 |........|........|
|00003880| ff ff ff ff 06 54 46 69 | 65 6c 64 31 00 00 00 ff |.....TFi|eld1....|
|00003890| ff ff ff 04 00 a5 00 00 | 00 09 46 46 69 6c 65 4e |........|..FFileN|
|000038a0| 61 6d 65 00 00 a4 00 00 | 00 79 00 00 00 06 73 74 |ame.....|.y....st|
|000038b0| 72 69 6e 67 11 01 00 00 | 07 54 4d 65 74 68 6f 64 |ring....|.TMethod|
|000038c0| 31 02 00 00 ff ff ff ff | 74 00 a6 00 00 00 0b 53 |1.......|t......S|
|000038d0| 65 74 46 69 6c 65 4e 61 | 6d 65 08 00 a4 00 00 00 |etFileNa|me......|
|000038e0| 79 00 00 00 04 56 6f 69 | 64 1f 02 03 00 02 00 13 |y....Voi|d.......|
|000038f0| 63 6f 6e 73 74 20 56 61 | 6c 75 65 3a 20 53 74 72 |const Va|lue: Str|
|00003900| 69 6e 67 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ing.TMet|hodFlesh|
|00003910| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00003920| 01 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|00003930| ff fe ff ff ff 05 00 1a | 69 66 20 46 46 69 6c 65 |........|if FFile|
|00003940| 4e 61 6d 65 20 3c 3e 20 | 56 61 6c 75 65 20 74 68 |Name <> |Value th|
|00003950| 65 6e 05 62 65 67 69 6e | 15 20 20 46 46 69 6c 65 |en.begin|. FFile|
|00003960| 4e 61 6d 65 20 3a 3d 20 | 56 61 6c 75 65 3b 21 20 |Name := |Value;! |
|00003970| 20 46 52 75 6c 65 73 2e | 4c 6f 61 64 46 72 6f 6d | FRules.|LoadFrom|
|00003980| 46 69 6c 65 28 46 46 69 | 6c 65 4e 61 6d 65 29 3b |File(FFi|leName);|
|00003990| 04 65 6e 64 3b 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |.end;.TC|odeLines|
|000039a0| ff ff ff ff fe ff ff ff | 00 00 0b 54 43 6f 6c 6c |........|...TColl|
|000039b0| 65 63 74 69 6f 6e 00 01 | 00 00 00 00 ff ff ff ff |ection..|........|
|000039c0| 00 07 54 4d 65 74 68 6f | 64 ff ff 00 00 ff ff ff |..TMetho|d.......|
|000039d0| ff 74 00 a7 00 00 00 09 | 54 69 6d 65 72 54 69 63 |.t......|TimerTic|
|000039e0| 6b 00 00 fe ff ff ff 79 | 00 00 00 04 56 6f 69 64 |k......y|....Void|
|000039f0| 1f 02 03 00 02 00 0f 53 | 65 6e 64 65 72 3a 20 54 |.......S|ender: T|
|00003a00| 4f 62 6a 65 63 74 0c 54 | 4d 65 74 68 6f 64 46 6c |Object.T|MethodFl|
|00003a10| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00003a20| 01 00 00 01 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00003a30| ff ff ff ff fe ff ff ff | 23 00 18 46 54 69 6d 65 |........|#..FTime|
|00003a40| 72 2e 45 6e 61 62 6c 65 | 64 20 3a 3d 20 46 61 6c |r.Enable|d := Fal|
|00003a50| 73 65 3b 04 4c 6f 67 3b | 12 4d 6f 64 69 66 69 65 |se;.Log;|.Modifie|
|00003a60| 64 20 3a 3d 20 46 61 6c | 73 65 3b 03 74 72 79 22 |d := Fal|se;.try"|
|00003a70| 20 20 66 6f 72 20 49 20 | 3a 3d 20 30 20 74 6f 20 | for I |:= 0 to |
|00003a80| 46 4c 69 73 74 2e 43 6f | 75 6e 74 20 2d 20 31 20 |FList.Co|unt - 1 |
|00003a90| 64 6f 07 20 20 62 65 67 | 69 6e 24 20 20 20 20 4e |do. beg|in$ N|
|00003aa0| 65 77 4e 61 6d 65 20 3a | 3d 20 55 6e 69 71 75 65 |ewName :|= Unique|
|00003ab0| 4e 61 6d 65 28 46 4c 69 | 73 74 5b 49 5d 29 3b 07 |Name(FLi|st[I]);.|
|00003ac0| 20 20 20 20 74 72 79 21 | 20 20 20 20 20 20 69 66 | try!| if|
|00003ad0| 20 4c 65 6e 67 74 68 28 | 4e 65 77 4e 61 6d 65 29 | Length(|NewName)|
|00003ae0| 20 3e 20 30 20 74 68 65 | 6e 0b 20 20 20 20 20 20 | > 0 the|n. |
|00003af0| 62 65 67 69 6e 25 20 20 | 20 20 20 20 20 20 43 6f |begin% | Co|
|00003b00| 6d 70 20 3a 3d 20 54 43 | 6f 6d 70 6f 6e 65 6e 74 |mp := TC|omponent|
|00003b10| 28 46 4c 69 73 74 5b 49 | 5d 29 3b 1d 20 20 20 20 |(FList[I|]);. |
|00003b20| 20 20 20 20 43 6f 6d 70 | 2e 4e 61 6d 65 20 3a 3d | Comp|.Name :=|
|00003b30| 20 4e 65 77 4e 61 6d 65 | 3b 54 20 20 20 20 20 20 | NewName|;T |
|00003b40| 20 20 69 66 20 28 43 6f | 6d 70 20 69 73 20 54 43 | if (Co|mp is TC|
|00003b50| 6f 6e 74 72 6f 6c 29 20 | 61 6e 64 20 28 63 73 53 |ontrol) |and (csS|
|00003b60| 65 74 43 61 70 74 69 6f | 6e 20 69 6e 20 54 43 6f |etCaptio|n in TCo|
|00003b70| 6e 74 72 6f 6c 28 43 6f | 6d 70 29 2e 43 6f 6e 74 |ntrol(Co|mp).Cont|
|00003b80| 72 6f 6c 53 74 79 6c 65 | 29 20 74 68 65 6e 0d 20 |rolStyle|) then. |
|00003b90| 20 20 20 20 20 20 20 62 | 65 67 69 6e 2b 20 20 20 | b|egin+ |
|00003ba0| 20 20 20 20 20 20 20 44 | 65 66 61 75 6c 74 43 61 | D|efaultCa|
|00003bb0| 70 74 69 6f 6e 20 3a 3d | 20 43 6f 6d 70 2e 43 6c |ption :=| Comp.Cl|
|00003bc0| 61 73 73 4e 61 6d 65 3b | 31 20 20 20 20 20 20 20 |assName;|1 |
|00003bd0| 20 20 20 69 66 20 44 65 | 66 61 75 6c 74 43 61 70 | if De|faultCap|
|00003be0| 74 69 6f 6e 5b 31 5d 20 | 69 6e 20 5b 27 74 27 2c |tion[1] |in ['t',|
|00003bf0| 20 27 54 27 5d 20 74 68 | 65 6e 29 20 20 20 20 20 | 'T'] th|en) |
|00003c00| 20 20 20 20 20 20 20 44 | 65 6c 65 74 65 28 44 65 | D|elete(De|
|00003c10| 66 61 75 6c 74 43 61 70 | 74 69 6f 6e 2c 20 31 2c |faultCap|tion, 1,|
|00003c20| 20 31 29 3b 48 20 20 20 | 20 20 20 20 20 20 20 69 | 1);H | i|
|00003c30| 66 20 43 6f 6d 70 61 72 | 65 54 65 78 74 28 47 65 |f Compar|eText(Ge|
|00003c40| 74 54 65 6d 70 6c 61 74 | 65 28 47 65 74 50 72 6f |tTemplat|e(GetPro|
|00003c50| 70 65 72 74 79 56 61 6c | 75 65 28 43 6f 6d 70 2c |pertyVal|ue(Comp,|
|00003c60| 20 27 43 61 70 74 69 6f | 6e 27 29 29 2c 31 20 20 | 'Captio|n')),1 |
|00003c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c80| 20 20 20 20 20 20 20 44 | 65 66 61 75 6c 74 43 61 | D|efaultCa|
|00003c90| 70 74 69 6f 6e 29 20 3d | 20 30 20 74 68 65 6e 0f |ption) =| 0 then.|
|00003ca0| 20 20 20 20 20 20 20 20 | 20 20 62 65 67 69 6e 40 | | begin@|
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 65 74 50 | | SetP|
|00003cc0| 72 6f 70 56 61 6c 75 65 | 28 54 4f 62 6a 65 63 74 |ropValue|(TObject|
|00003cd0| 28 46 4c 69 73 74 5b 49 | 5d 29 2c 20 27 43 61 70 |(FList[I|]), 'Cap|
|00003ce0| 74 69 6f 6e 27 2c 20 4e | 65 77 4e 61 6d 65 29 3b |tion', N|ewName);|
|00003cf0| 3d 20 20 20 20 20 20 20 | 20 20 20 20 20 53 65 74 |= | Set|
|00003d00| 50 72 6f 70 56 61 6c 75 | 65 28 54 4f 62 6a 65 63 |PropValu|e(TObjec|
|00003d10| 74 28 46 4c 69 73 74 5b | 49 5d 29 2c 20 27 54 65 |t(FList[|I]), 'Te|
|00003d20| 78 74 27 2c 20 4e 65 77 | 4e 61 6d 65 29 3b 0e 20 |xt', New|Name);. |
|00003d30| 20 20 20 20 20 20 20 20 | 20 65 6e 64 3b 0c 20 20 | | end;. |
|00003d40| 20 20 20 20 20 20 65 6e | 64 3b 19 20 20 20 20 20 | en|d;. |
|00003d50| 20 20 20 4d 6f 64 69 66 | 69 65 64 20 3a 3d 20 54 | Modif|ied := T|
|00003d60| 72 75 65 3b 0a 20 20 20 | 20 20 20 65 6e 64 3b 0b |rue;. | end;.|
|00003d70| 20 20 20 20 66 69 6e 61 | 6c 6c 79 16 20 20 20 20 | fina|lly. |
|00003d80| 20 20 46 4c 69 73 74 5b | 49 5d 20 3a 3d 20 6e 69 | FList[|I] := ni|
|00003d90| 6c 3b 08 20 20 20 20 65 | 6e 64 3b 06 20 20 65 6e |l;. e|nd;. en|
|00003da0| 64 3b 07 66 69 6e 61 6c | 6c 79 0d 20 20 46 4c 69 |d;.final|ly. FLi|
|00003db0| 73 74 2e 50 61 63 6b 3b | 26 20 20 69 66 20 4d 6f |st.Pack;|& if Mo|
|00003dc0| 64 69 66 69 65 64 20 74 | 68 65 6e 20 46 44 65 73 |dified t|hen FDes|
|00003dd0| 69 67 6e 65 72 2e 4d 6f | 64 69 66 69 65 64 3b 0e |igner.Mo|dified;.|
|00003de0| 20 20 55 70 64 61 74 65 | 54 69 6d 65 72 3b 04 65 | Update|Timer;.e|
|00003df0| 6e 64 3b 0a 54 43 6f 64 | 65 4c 69 6e 65 73 ff ff |nd;.TCod|eLines..|
|00003e00| ff ff fe ff ff ff 00 00 | 0b 54 43 6f 6c 6c 65 63 |........|.TCollec|
|00003e10| 74 69 6f 6e 00 01 00 00 | 05 00 09 54 4c 6f 63 61 |tion....|...TLoca|
|00003e20| 6c 56 61 72 ff ff ff ff | fe ff ff ff 07 42 6f 6f |lVar....|.....Boo|
|00003e30| 6c 65 61 6e 07 08 4d 6f | 64 69 66 69 65 64 09 54 |lean..Mo|dified.T|
|00003e40| 4c 6f 63 61 6c 56 61 72 | ff ff ff ff fe ff ff ff |LocalVar|........|
|00003e50| 07 49 6e 74 65 67 65 72 | 00 01 49 09 54 4c 6f 63 |.Integer|..I.TLoc|
|00003e60| 61 6c 56 61 72 ff ff ff | ff fe ff ff ff 06 73 74 |alVar...|......st|
|00003e70| 72 69 6e 67 11 07 4e 65 | 77 4e 61 6d 65 09 54 4c |ring..Ne|wName.TL|
|00003e80| 6f 63 61 6c 56 61 72 ff | ff ff ff fe ff ff ff 0a |ocalVar.|........|
|00003e90| 54 43 6f 6d 70 6f 6e 65 | 6e 74 1c 04 43 6f 6d 70 |TCompone|nt..Comp|
|00003ea0| 09 54 4c 6f 63 61 6c 56 | 61 72 ff ff ff ff fe ff |.TLocalV|ar......|
|00003eb0| ff ff 06 73 74 72 69 6e | 67 11 0e 44 65 66 61 75 |...strin|g..Defau|
|00003ec0| 6c 74 43 61 70 74 69 6f | 6e ff ff ff ff 00 07 54 |ltCaptio|n......T|
|00003ed0| 4d 65 74 68 6f 64 ff ff | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|00003ee0| a8 00 00 00 0c 4c 6f 61 | 64 46 72 6f 6d 46 69 6c |.....Loa|dFromFil|
|00003ef0| 65 00 00 fe ff ff ff a3 | 00 00 00 04 56 6f 69 64 |e.......|....Void|
|00003f00| 1f 03 03 00 02 00 16 63 | 6f 6e 73 74 20 46 69 6c |.......c|onst Fil|
|00003f10| 65 4e 61 6d 65 3a 20 73 | 74 72 69 6e 67 0c 54 4d |eName: s|tring.TM|
|00003f20| 65 74 68 6f 64 46 6c 65 | 73 68 0b 54 43 6f 6c 6c |ethodFle|sh.TColl|
|00003f30| 65 63 74 69 6f 6e 00 01 | 00 00 01 00 0a 54 43 6f |ection..|.....TCo|
|00003f40| 64 65 4c 69 6e 65 73 ff | ff ff ff fe ff ff ff 0e |deLines.|........|
|00003f50| 00 06 43 6c 65 61 72 3b | 1d 69 66 20 46 69 6c 65 |..Clear;|.if File|
|00003f60| 45 78 69 73 74 73 20 28 | 46 69 6c 65 4e 61 6d 65 |Exists (|FileName|
|00003f70| 29 20 74 68 65 6e 05 62 | 65 67 69 6e 27 20 20 49 |) then.b|egin' I|
|00003f80| 6e 69 46 69 6c 65 20 3a | 3d 20 54 49 6e 69 46 69 |niFile :|= TIniFi|
|00003f90| 6c 65 2e 43 72 65 61 74 | 65 28 46 69 6c 65 4e 61 |le.Creat|e(FileNa|
|00003fa0| 6d 65 29 3b 21 20 20 46 | 53 65 63 74 69 6f 6e 20 |me);! F|Section |
|00003fb0| 3a 3d 20 54 53 74 72 69 | 6e 67 4c 69 73 74 2e 43 |:= TStri|ngList.C|
|00003fc0| 72 65 61 74 65 3b 05 20 | 20 74 72 79 35 20 20 20 |reate;. | try5 |
|00003fd0| 20 49 6e 69 46 69 6c 65 | 2e 52 65 61 64 53 65 63 | IniFile|.ReadSec|
|00003fe0| 74 69 6f 6e 56 61 6c 75 | 65 73 28 27 4e 61 6d 65 |tionValu|es('Name|
|00003ff0| 52 75 6c 65 73 27 2c 20 | 46 53 65 63 74 69 6f 6e |Rules', |FSection|
|00004000| 29 3b 26 20 20 20 20 66 | 6f 72 20 49 20 3a 3d 20 |);& f|or I := |
|00004010| 30 20 74 6f 20 46 53 65 | 63 74 69 6f 6e 2e 43 6f |0 to FSe|ction.Co|
|00004020| 75 6e 74 20 2d 31 20 64 | 6f 1f 20 20 20 20 20 20 |unt -1 d|o. |
|00004030| 45 6e 74 72 79 54 6f 52 | 75 6c 65 28 46 53 65 63 |EntryToR|ule(FSec|
|00004040| 74 69 6f 6e 5b 49 5d 29 | 3b 09 20 20 66 69 6e 61 |tion[I])|;. fina|
|00004050| 6c 6c 79 12 20 20 20 20 | 46 53 65 63 74 69 6f 6e |lly. |FSection|
|00004060| 2e 46 72 65 65 3b 11 20 | 20 20 20 49 6e 69 46 69 |.Free;. | IniFi|
|00004070| 6c 65 2e 46 72 65 65 3b | 06 20 20 65 6e 64 3b 04 |le.Free;|. end;.|
|00004080| 65 6e 64 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |end;.TCo|deLines.|
|00004090| ff ff ff fe ff ff ff 11 | 00 25 70 72 6f 63 65 64 |........|.%proced|
|000040a0| 75 72 65 20 45 6e 74 72 | 79 54 6f 52 75 6c 65 28 |ure Entr|yToRule(|
|000040b0| 45 6e 74 72 79 3a 20 73 | 74 72 69 6e 67 29 3b 0f |Entry: s|tring);.|
|000040c0| 76 61 72 20 50 3a 20 49 | 6e 74 65 67 65 72 3b 17 |var P: I|nteger;.|
|000040d0| 20 20 20 20 52 75 6c 65 | 2c 20 4e 61 6d 65 3a 20 | Rule|, Name: |
|000040e0| 53 74 72 69 6e 67 3b 05 | 62 65 67 69 6e 20 20 20 |String;.|begin |
|000040f0| 45 6e 74 72 79 20 3a 3d | 20 44 65 6c 57 68 69 74 |Entry :=| DelWhit|
|00004100| 65 53 70 61 63 65 28 45 | 6e 74 72 79 29 3b 17 20 |eSpace(E|ntry);. |
|00004110| 20 50 20 3a 3d 20 50 6f | 73 28 27 3d 27 2c 20 45 | P := Po|s('=', E|
|00004120| 6e 74 72 79 29 3b 0f 20 | 20 69 66 20 50 20 3e 20 |ntry);. | if P > |
|00004130| 30 20 74 68 65 6e 07 20 | 20 62 65 67 69 6e 24 20 |0 then. | begin$ |
|00004140| 20 20 20 52 75 6c 65 20 | 3a 3d 20 43 6f 70 79 28 | Rule |:= Copy(|
|00004150| 45 6e 74 72 79 2c 20 50 | 20 2b 20 31 2c 20 32 35 |Entry, P| + 1, 25|
|00004160| 35 29 3b 22 20 20 20 20 | 4e 61 6d 65 20 3a 3d 20 |5);" |Name := |
|00004170| 43 6f 70 79 28 45 6e 74 | 72 79 2c 20 31 2c 20 50 |Copy(Ent|ry, 1, P|
|00004180| 20 2d 20 31 29 3b 38 20 | 20 20 20 69 66 20 49 73 | - 1);8 | if Is|
|00004190| 56 61 6c 69 64 49 64 65 | 6e 74 28 4e 61 6d 65 29 |ValidIde|nt(Name)|
|000041a0| 20 61 6e 64 20 28 43 68 | 65 63 6b 52 75 6c 65 28 | and (Ch|eckRule(|
|000041b0| 52 75 6c 65 29 20 3d 20 | 30 29 20 74 68 65 6e 2f |Rule) = |0) then/|
|000041c0| 20 20 20 20 20 20 69 66 | 20 43 6f 6d 70 61 72 65 | if| Compare|
|000041d0| 54 65 78 74 28 20 27 44 | 65 66 61 75 6c 74 27 2c |Text( 'D|efault',|
|000041e0| 20 4e 61 6d 65 29 20 3d | 20 30 20 74 68 65 6e 1b | Name) =| 0 then.|
|000041f0| 20 20 20 20 20 20 20 20 | 44 65 66 61 75 6c 74 52 | |DefaultR|
|00004200| 75 6c 65 20 3a 3d 20 52 | 75 6c 65 0a 20 20 20 20 |ule := R|ule. |
|00004210| 20 20 65 6c 73 65 2a 20 | 20 20 20 20 20 20 20 41 | else* | A|
|00004220| 64 64 28 54 4e 61 6d 65 | 52 75 6c 65 2e 43 72 65 |dd(TName|Rule.Cre|
|00004230| 61 74 65 28 4e 61 6d 65 | 2c 20 52 75 6c 65 29 29 |ate(Name|, Rule))|
|00004240| 3b 06 20 20 65 6e 64 3b | 04 65 6e 64 3b 0b 54 43 |;. end;|.end;.TC|
|00004250| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 03 00 09 |ollectio|n.......|
|00004260| 54 4c 6f 63 61 6c 56 61 | 72 ff ff ff ff fe ff ff |TLocalVa|r.......|
|00004270| ff 08 54 49 6e 69 46 69 | 6c 65 1c 07 49 6e 69 46 |..TIniFi|le..IniF|
|00004280| 69 6c 65 09 54 4c 6f 63 | 61 6c 56 61 72 ff ff ff |ile.TLoc|alVar...|
|00004290| ff fe ff ff ff 07 49 6e | 74 65 67 65 72 00 01 49 |......In|teger..I|
|000042a0| 09 54 4c 6f 63 61 6c 56 | 61 72 ff ff ff ff fe ff |.TLocalV|ar......|
|000042b0| ff ff 0b 54 53 74 72 69 | 6e 67 4c 69 73 74 1c 08 |...TStri|ngList..|
|000042c0| 46 53 65 63 74 69 6f 6e | ff ff ff ff 00 07 54 4d |FSection|......TM|
|000042d0| 65 74 68 6f 64 ff ff 00 | 00 ff ff ff ff 74 00 b1 |ethod...|.....t..|
|000042e0| 00 00 00 06 43 72 65 61 | 74 65 06 00 fe ff ff ff |....Crea|te......|
|000042f0| a3 00 00 00 04 56 6f 69 | 64 1f 03 01 00 00 00 00 |.....Voi|d.......|
|00004300| 0c 54 4d 65 74 68 6f 64 | 46 6c 65 73 68 0b 54 43 |.TMethod|Flesh.TC|
|00004310| 6f 6c 6c 65 63 74 69 6f | 6e 00 01 00 00 02 00 0a |ollectio|n.......|
|00004320| 54 43 6f 64 65 4c 69 6e | 65 73 fc ff ff ff b1 00 |TCodeLin|es......|
|00004330| 00 00 01 00 11 69 6e 68 | 65 72 69 74 65 64 20 43 |.....inh|erited C|
|00004340| 72 65 61 74 65 3b 0a 54 | 43 6f 64 65 4c 69 6e 65 |reate;.T|CodeLine|
|00004350| 73 ff ff ff ff fe ff ff | ff 05 00 10 43 61 6e 53 |s.......|....CanS|
|00004360| 6f 72 74 20 3a 3d 20 54 | 72 75 65 3b 13 4f 77 6e |ort := T|rue;.Own|
|00004370| 65 73 49 74 65 6d 73 20 | 3a 3d 20 54 72 75 65 3b |esItems |:= True;|
|00004380| 0f 53 6f 72 74 65 64 20 | 3a 3d 20 54 72 75 65 3b |.Sorted |:= True;|
|00004390| 21 44 75 70 6c 69 63 61 | 74 65 73 20 3a 3d 20 43 |!Duplica|tes := C|
|000043a0| 4f 4e 54 41 49 4e 52 2e | 64 75 70 41 63 63 65 70 |ONTAINR.|dupAccep|
|000043b0| 74 3b 16 44 65 66 61 75 | 6c 74 52 75 6c 65 20 3a |t;.Defau|ltRule :|
|000043c0| 3d 20 27 25 74 25 4e 27 | 3b 0a 54 43 6f 64 65 4c |= '%t%N'|;.TCodeL|
|000043d0| 69 6e 65 73 ff ff ff ff | fe ff ff ff 00 00 0b 54 |ines....|.......T|
|000043e0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 00 00 |Collecti|on......|
|000043f0| 01 00 00 00 00 07 54 4d | 65 74 68 6f 64 ff ff 00 |......TM|ethod...|
|00004400| 00 ff ff ff ff 74 00 b2 | 00 00 00 07 44 65 73 74 |.....t..|....Dest|
|00004410| 72 6f 79 06 00 fe ff ff | ff a3 00 00 00 04 56 6f |roy.....|......Vo|
|00004420| 69 64 1f 03 02 00 01 03 | 00 0c 54 4d 65 74 68 6f |id......|..TMetho|
|00004430| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00004440| 6f 6e 00 01 00 00 01 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00004450| 6e 65 73 fc ff ff ff b2 | 00 00 00 01 00 12 69 6e |nes.....|......in|
|00004460| 68 65 72 69 74 65 64 20 | 44 65 73 74 72 6f 79 3b |herited |Destroy;|
|00004470| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|00004480| ff ff ff 00 00 0b 54 43 | 6f 6c 6c 65 63 74 69 6f |......TC|ollectio|
|00004490| 6e 00 01 00 00 00 00 02 | 00 00 00 00 07 54 4d 65 |n.......|.....TMe|
|000044a0| 74 68 6f 64 ff ff 00 00 | ff ff ff ff 74 00 b3 00 |thod....|....t...|
|000044b0| 00 00 07 43 6f 6d 70 61 | 72 65 04 00 fe ff ff ff |...Compa|re......|
|000044c0| a3 00 00 00 07 49 6e 74 | 65 67 65 72 00 03 03 00 |.....Int|eger....|
|000044d0| 03 03 13 4b 65 79 31 2c | 20 4b 65 79 32 3a 20 50 |...Key1,| Key2: P|
|000044e0| 6f 69 6e 74 65 72 0c 54 | 4d 65 74 68 6f 64 46 6c |ointer.T|MethodFl|
|000044f0| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00004500| 01 00 00 01 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00004510| ff ff ff ff fe ff ff ff | 01 00 4e 52 65 73 75 6c |........|..NResul|
|00004520| 74 20 3a 3d 20 43 6f 6d | 70 61 72 65 54 65 78 74 |t := Com|pareText|
|00004530| 28 53 74 72 69 6e 67 56 | 61 6c 75 65 28 50 53 74 |(StringV|alue(PSt|
|00004540| 72 69 6e 67 28 4b 65 79 | 31 29 29 2c 20 53 74 72 |ring(Key|1)), Str|
|00004550| 69 6e 67 56 61 6c 75 65 | 28 50 53 74 72 69 6e 67 |ingValue|(PString|
|00004560| 28 4b 65 79 32 29 29 29 | 3b 0a 54 43 6f 64 65 4c |(Key2)))|;.TCodeL|
|00004570| 69 6e 65 73 ff ff ff ff | fe ff ff ff 00 00 0b 54 |ines....|.......T|
|00004580| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 00 00 |Collecti|on......|
|00004590| 14 00 00 00 00 09 54 50 | 72 6f 70 65 72 74 79 ff |......TP|roperty.|
|000045a0| ff 00 00 ff ff ff ff 64 | 00 b5 00 00 00 04 4e 61 |.......d|......Na|
|000045b0| 6d 65 dc 00 fe ff ff ff | b4 00 00 00 06 73 74 72 |me......|.....str|
|000045c0| 69 6e 67 11 03 04 00 00 | 02 b6 00 00 00 b8 00 00 |ing.....|........|
|000045d0| 00 02 b7 00 00 00 00 00 | 00 ff ff ff ff 00 00 ff |........|........|
|000045e0| ff ff ff 07 54 4d 65 74 | 68 6f 64 31 02 00 00 ff |....TMet|hod1....|
|000045f0| ff ff ff 74 00 b6 00 00 | 00 07 47 65 74 4e 61 6d |...t....|..GetNam|
|00004600| 65 08 00 b5 00 00 00 b4 | 00 00 00 06 73 74 72 69 |e.......|....stri|
|00004610| 6e 67 11 02 03 00 03 00 | 00 0c 54 4d 65 74 68 6f |ng......|..TMetho|
|00004620| 64 46 6c 65 73 68 0b 54 | 43 6f 6c 6c 65 63 74 69 |dFlesh.T|Collecti|
|00004630| 6f 6e 00 01 00 00 01 00 | 0a 54 43 6f 64 65 4c 69 |on......|.TCodeLi|
|00004640| 6e 65 73 ff ff ff ff b5 | 00 00 00 01 00 1d 52 65 |nes.....|......Re|
|00004650| 73 75 6c 74 20 3a 3d 20 | 53 74 72 69 6e 67 56 61 |sult := |StringVa|
|00004660| 6c 75 65 28 46 4e 61 6d | 65 29 3b 0a 54 43 6f 64 |lue(FNam|e);.TCod|
|00004670| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 00 00 |eLines..|........|
|00004680| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00004690| 00 00 ff ff ff ff 00 07 | 54 4d 65 74 68 6f 64 31 |........|TMethod1|
|000046a0| 02 00 00 ff ff ff ff 74 | 00 b7 00 00 00 07 53 65 |.......t|......Se|
|000046b0| 74 4e 61 6d 65 08 00 b5 | 00 00 00 b4 00 00 00 04 |tName...|........|
|000046c0| 56 6f 69 64 1f 02 03 00 | 02 00 13 63 6f 6e 73 74 |Void....|...const|
|000046d0| 20 56 61 6c 75 65 3a 20 | 53 74 72 69 6e 67 0c 54 | Value: |String.T|
|000046e0| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|000046f0| 6c 65 63 74 69 6f 6e 00 | 01 00 00 01 00 0a 54 43 |lection.|......TC|
|00004700| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff b5 00 00 00 |odeLines|........|
|00004710| 01 00 18 41 73 73 69 67 | 6e 53 74 72 28 46 4e 61 |...Assig|nStr(FNa|
|00004720| 6d 65 2c 20 56 61 6c 75 | 65 29 3b 0a 54 43 6f 64 |me, Valu|e);.TCod|
|00004730| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 00 00 |eLines..|........|
|00004740| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00004750| 00 00 ff ff ff ff 00 06 | 54 46 69 65 6c 64 31 00 |........|TField1.|
|00004760| 00 00 ff ff ff ff 04 00 | b8 00 00 00 05 46 4e 61 |........|.....FNa|
|00004770| 6d 65 01 00 b5 00 00 00 | b4 00 00 00 07 50 53 74 |me......|.....PSt|
|00004780| 72 69 6e 67 1a 01 00 00 | 09 54 50 72 6f 70 65 72 |ring....|.TProper|
|00004790| 74 79 ff ff 00 00 ff ff | ff ff 64 00 b9 00 00 00 |ty......|..d.....|
|000047a0| 04 52 75 6c 65 dc 00 fe | ff ff ff b4 00 00 00 06 |.Rule...|........|
|000047b0| 73 74 72 69 6e 67 11 03 | 04 00 00 02 ba 00 00 00 |string..|........|
|000047c0| bc 00 00 00 02 bb 00 00 | 00 00 00 00 ff ff ff ff |........|........|
|000047d0| 00 00 ff ff ff ff 07 54 | 4d 65 74 68 6f 64 31 02 |.......T|Method1.|
|000047e0| 00 00 ff ff ff ff 74 00 | ba 00 00 00 07 47 65 74 |......t.|.....Get|
|000047f0| 52 75 6c 65 08 00 b9 00 | 00 00 b4 00 00 00 06 73 |Rule....|.......s|
|00004800| 74 72 69 6e 67 11 02 03 | 00 03 00 00 0c 54 4d 65 |tring...|.....TMe|
|00004810| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00004820| 63 74 69 6f 6e 00 01 00 | 00 01 00 0a 54 43 6f 64 |ction...|....TCod|
|00004830| 65 4c 69 6e 65 73 ff ff | ff ff b9 00 00 00 01 00 |eLines..|........|
|00004840| 1d 52 65 73 75 6c 74 20 | 3a 3d 20 53 74 72 69 6e |.Result |:= Strin|
|00004850| 67 56 61 6c 75 65 28 46 | 52 75 6c 65 29 3b 0a 54 |gValue(F|Rule);.T|
|00004860| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00004870| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|00004880| 01 00 00 00 00 ff ff ff | ff 00 07 54 4d 65 74 68 |........|...TMeth|
|00004890| 6f 64 31 02 00 00 ff ff | ff ff 74 00 bb 00 00 00 |od1.....|..t.....|
|000048a0| 07 53 65 74 52 75 6c 65 | 08 00 b9 00 00 00 b4 00 |.SetRule|........|
|000048b0| 00 00 04 56 6f 69 64 1f | 02 03 00 02 00 13 63 6f |...Void.|......co|
|000048c0| 6e 73 74 20 56 61 6c 75 | 65 3a 20 53 74 72 69 6e |nst Valu|e: Strin|
|000048d0| 67 0c 54 4d 65 74 68 6f | 64 46 6c 65 73 68 0b 54 |g.TMetho|dFlesh.T|
|000048e0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 01 00 |Collecti|on......|
|000048f0| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff b9 |.TCodeLi|nes.....|
|00004900| 00 00 00 01 00 18 41 73 | 73 69 67 6e 53 74 72 28 |......As|signStr(|
|00004910| 46 52 75 6c 65 2c 20 56 | 61 6c 75 65 29 3b 0a 54 |FRule, V|alue);.T|
|00004920| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|00004930| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|00004940| 01 00 00 00 00 ff ff ff | ff 00 06 54 46 69 65 6c |........|...TFiel|
|00004950| 64 31 00 00 00 ff ff ff | ff 04 00 bc 00 00 00 05 |d1......|........|
|00004960| 46 52 75 6c 65 01 00 b9 | 00 00 00 b4 00 00 00 07 |FRule...|........|
|00004970| 50 53 74 72 69 6e 67 1a | 01 00 00 07 54 4d 65 74 |PString.|....TMet|
|00004980| 68 6f 64 ff ff 00 00 ff | ff ff ff 74 00 bd 00 00 |hod.....|...t....|
|00004990| 00 07 44 65 73 74 72 6f | 79 06 00 fe ff ff ff b4 |..Destro|y.......|
|000049a0| 00 00 00 04 56 6f 69 64 | 1f 03 02 00 01 03 00 0c |....Void|........|
|000049b0| 54 4d 65 74 68 6f 64 46 | 6c 65 73 68 0b 54 43 6f |TMethodF|lesh.TCo|
|000049c0| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 02 00 0a 54 |llection|.......T|
|000049d0| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fb ff ff |CodeLine|s.......|
|000049e0| ff 02 00 12 44 69 73 70 | 6f 73 65 53 74 72 28 46 |....Disp|oseStr(F|
|000049f0| 4e 61 6d 65 29 3b 12 44 | 69 73 70 6f 73 65 53 74 |Name);.D|isposeSt|
|00004a00| 72 28 46 52 75 6c 65 29 | 3b 0a 54 43 6f 64 65 4c |r(FRule)|;.TCodeL|
|00004a10| 69 6e 65 73 fc ff ff ff | bd 00 00 00 01 00 12 69 |ines....|.......i|
|00004a20| 6e 68 65 72 69 74 65 64 | 20 44 65 73 74 72 6f 79 |nherited| Destroy|
|00004a30| 3b 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |;.TCodeL|ines....|
|00004a40| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|00004a50| 6f 6e 00 01 00 00 00 00 | 02 00 00 00 00 07 54 4d |on......|......TM|
|00004a60| 65 74 68 6f 64 ff ff 00 | 00 ff ff ff ff 74 00 be |ethod...|.....t..|
|00004a70| 00 00 00 0a 55 6e 69 71 | 75 65 4e 61 6d 65 00 00 |....Uniq|ueName..|
|00004a80| fe ff ff ff 79 00 00 00 | 06 73 74 72 69 6e 67 11 |....y...|.string.|
|00004a90| 02 03 00 03 00 15 43 6f | 6d 70 6f 6e 65 6e 74 3a |......Co|mponent:|
|00004aa0| 20 54 43 6f 6d 70 6f 6e | 65 6e 74 0c 54 4d 65 74 | TCompon|ent.TMet|
|00004ab0| 68 6f 64 46 6c 65 73 68 | 0b 54 43 6f 6c 6c 65 63 |hodFlesh|.TCollec|
|00004ac0| 74 69 6f 6e 00 01 00 00 | 01 00 0a 54 43 6f 64 65 |tion....|...TCode|
|00004ad0| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 03 00 26 |Lines...|.......&|
|00004ae0| 52 65 73 75 6c 74 20 3a | 3d 20 46 52 75 6c 65 73 |Result :|= FRules|
|00004af0| 2e 46 69 6e 64 52 75 6c | 65 28 20 43 6f 6d 70 6f |.FindRul|e( Compo|
|00004b00| 6e 65 6e 74 29 3b 1b 69 | 66 20 4c 65 6e 67 74 68 |nent);.i|f Length|
|00004b10| 28 20 52 65 73 75 6c 74 | 29 20 3e 20 30 20 74 68 |( Result|) > 0 th|
|00004b20| 65 6e 2a 20 20 52 65 73 | 75 6c 74 20 3a 3d 20 41 |en* Res|ult := A|
|00004b30| 70 70 6c 79 52 75 6c 65 | 28 20 43 6f 6d 70 6f 6e |pplyRule|( Compon|
|00004b40| 65 6e 74 2c 20 52 65 73 | 75 6c 74 29 3b 0a 54 43 |ent, Res|ult);.TC|
|00004b50| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00004b60| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|00004b70| 00 00 00 00 ff ff ff ff | 00 07 54 4d 65 74 68 6f |........|..TMetho|
|00004b80| 64 ff ff 00 00 ff ff ff | ff 74 00 bf 00 00 00 08 |d.......|.t......|
|00004b90| 46 69 6e 64 52 75 6c 65 | 00 00 fe ff ff ff a3 00 |FindRule|........|
|00004ba0| 00 00 06 73 74 72 69 6e | 67 11 03 03 00 03 00 15 |...strin|g.......|
|00004bb0| 43 6f 6d 70 6f 6e 65 6e | 74 3a 20 54 43 6f 6d 70 |Componen|t: TComp|
|00004bc0| 6f 6e 65 6e 74 0c 54 4d | 65 74 68 6f 64 46 6c 65 |onent.TM|ethodFle|
|00004bd0| 73 68 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |sh.TColl|ection..|
|00004be0| 00 00 01 00 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |.....TCo|deLines.|
|00004bf0| ff ff ff fe ff ff ff 05 | 00 1c 4e 61 6d 65 20 3a |........|..Name :|
|00004c00| 3d 20 43 6f 6d 70 6f 6e | 65 6e 74 2e 43 6c 61 73 |= Compon|ent.Clas|
|00004c10| 73 4e 61 6d 65 3b 1d 69 | 66 20 46 69 6e 64 4b 65 |sName;.i|f FindKe|
|00004c20| 79 28 40 4e 61 6d 65 2c | 20 49 6e 64 65 78 29 20 |y(@Name,| Index) |
|00004c30| 74 68 65 6e 21 20 20 52 | 65 73 75 6c 74 20 3a 3d |then! R|esult :=|
|00004c40| 20 4e 61 6d 65 52 75 6c | 65 73 5b 49 6e 64 65 78 | NameRul|es[Index|
|00004c50| 5d 2e 52 75 6c 65 04 65 | 6c 73 65 18 20 20 52 65 |].Rule.e|lse. Re|
|00004c60| 73 75 6c 74 20 3a 3d 20 | 44 65 66 61 75 6c 74 52 |sult := |DefaultR|
|00004c70| 75 6c 65 3b 0a 54 43 6f | 64 65 4c 69 6e 65 73 ff |ule;.TCo|deLines.|
|00004c80| ff ff ff fe ff ff ff 00 | 00 0b 54 43 6f 6c 6c 65 |........|..TColle|
|00004c90| 63 74 69 6f 6e 00 01 00 | 00 02 00 09 54 4c 6f 63 |ction...|....TLoc|
|00004ca0| 61 6c 56 61 72 ff ff ff | ff fe ff ff ff 07 49 6e |alVar...|......In|
|00004cb0| 74 65 67 65 72 00 05 49 | 6e 64 65 78 09 54 4c 6f |teger..I|ndex.TLo|
|00004cc0| 63 61 6c 56 61 72 ff ff | ff ff fe ff ff ff 06 73 |calVar..|.......s|
|00004cd0| 74 72 69 6e 67 11 04 4e | 61 6d 65 ff ff ff ff 00 |tring..N|ame.....|
|00004ce0| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 ff ff ff ff |.TMethod|........|
|00004cf0| 74 00 c0 00 00 00 05 4b | 65 79 4f 66 04 00 fe ff |t......K|eyOf....|
|00004d00| ff ff a3 00 00 00 07 50 | 6f 69 6e 74 65 72 1b 03 |.......P|ointer..|
|00004d10| 03 00 03 03 11 49 6e 73 | 74 61 6e 63 65 3a 20 50 |.....Ins|tance: P|
|00004d20| 6f 69 6e 74 65 72 0c 54 | 4d 65 74 68 6f 64 46 6c |ointer.T|MethodFl|
|00004d30| 65 73 68 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |esh.TCol|lection.|
|00004d40| 01 00 00 01 00 0a 54 43 | 6f 64 65 4c 69 6e 65 73 |......TC|odeLines|
|00004d50| ff ff ff ff fe ff ff ff | 01 00 24 52 65 73 75 6c |........|..$Resul|
|00004d60| 74 20 3a 3d 20 54 4e 61 | 6d 65 52 75 6c 65 28 49 |t := TNa|meRule(I|
|00004d70| 6e 73 74 61 6e 63 65 29 | 2e 46 4e 61 6d 65 3b 0a |nstance)|.FName;.|
|00004d80| 54 43 6f 64 65 4c 69 6e | 65 73 ff ff ff ff fe ff |TCodeLin|es......|
|00004d90| ff ff 00 00 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |.....TCo|llection|
|00004da0| 00 01 00 00 00 00 16 00 | 00 00 00 09 54 50 72 6f |........|....TPro|
|00004db0| 70 65 72 74 79 ff ff 00 | 00 ff ff ff ff 64 00 c1 |perty...|.....d..|
|00004dc0| 00 00 00 09 4e 61 6d 65 | 52 75 6c 65 73 01 00 fe |....Name|Rules...|
|00004dd0| ff ff ff a3 00 00 00 09 | 54 4e 61 6d 65 52 75 6c |........|TNameRul|
|00004de0| 65 1c 03 04 b4 00 00 00 | 00 0e 49 6e 64 65 78 3a |e.......|..Index:|
|00004df0| 20 49 6e 74 65 67 65 72 | 02 c2 00 00 00 ff ff ff | Integer|........|
|00004e00| ff 00 ff ff ff ff 00 00 | 00 ff ff ff ff 00 00 ff |........|........|
|00004e10| ff ff ff 07 54 4d 65 74 | 68 6f 64 31 02 00 00 ff |....TMet|hod1....|
|00004e20| ff ff ff 74 00 c2 00 00 | 00 0c 47 65 74 4e 61 6d |...t....|..GetNam|
|00004e30| 65 52 75 6c 65 73 08 00 | c1 00 00 00 a3 00 00 00 |eRules..|........|
|00004e40| 09 54 4e 61 6d 65 52 75 | 6c 65 1c 02 03 b4 00 00 |.TNameRu|le......|
|00004e50| 00 00 03 00 0e 49 6e 64 | 65 78 3a 20 49 6e 74 65 |.....Ind|ex: Inte|
|00004e60| 67 65 72 0c 54 4d 65 74 | 68 6f 64 46 6c 65 73 68 |ger.TMet|hodFlesh|
|00004e70| 0b 54 43 6f 6c 6c 65 63 | 74 69 6f 6e 00 01 00 00 |.TCollec|tion....|
|00004e80| 01 00 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |...TCode|Lines...|
|00004e90| ff fe ff ff ff 01 00 22 | 52 65 73 75 6c 74 20 3a |......."|Result :|
|00004ea0| 3d 20 54 4e 61 6d 65 52 | 75 6c 65 28 49 74 65 6d |= TNameR|ule(Item|
|00004eb0| 73 5b 49 6e 64 65 78 5d | 29 3b 0a 54 43 6f 64 65 |s[Index]|);.TCode|
|00004ec0| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 00 00 0b |Lines...|........|
|00004ed0| 54 43 6f 6c 6c 65 63 74 | 69 6f 6e 00 01 00 00 00 |TCollect|ion.....|
|00004ee0| 00 ff ff ff ff 00 07 54 | 4d 65 74 68 6f 64 ff ff |.......T|Method..|
|00004ef0| 00 00 ff ff ff ff 74 00 | c3 00 00 00 09 41 70 70 |......t.|.....App|
|00004f00| 6c 79 52 75 6c 65 00 00 | fe ff ff ff 79 00 00 00 |lyRule..|....y...|
|00004f10| 06 73 74 72 69 6e 67 11 | 02 03 00 03 00 29 43 6f |.string.|.....)Co|
|00004f20| 6d 70 6f 6e 65 6e 74 3a | 20 54 43 6f 6d 70 6f 6e |mponent:| TCompon|
|00004f30| 65 6e 74 3b 20 63 6f 6e | 73 74 20 52 75 6c 65 3a |ent; con|st Rule:|
|00004f40| 20 73 74 72 69 6e 67 0c | 54 4d 65 74 68 6f 64 46 | string.|TMethodF|
|00004f50| 6c 65 73 68 0b 54 43 6f | 6c 6c 65 63 74 69 6f 6e |lesh.TCo|llection|
|00004f60| 00 01 00 00 01 00 0a 54 | 43 6f 64 65 4c 69 6e 65 |.......T|CodeLine|
|00004f70| 73 ff ff ff ff fe ff ff | ff 3e 00 12 4f 70 74 69 |s.......|.>..Opti|
|00004f80| 6f 6e 61 6c 20 3a 3d 20 | 46 61 6c 73 65 3b 0a 46 |onal := |False;.F|
|00004f90| 6d 74 20 3a 3d 20 27 27 | 3b 0d 52 65 73 75 6c 74 |mt := ''|;.Result|
|00004fa0| 20 3a 3d 20 27 27 3b 07 | 49 20 3a 3d 20 31 3b 19 | := '';.|I := 1;.|
|00004fb0| 77 68 69 6c 65 20 49 20 | 3c 20 4c 65 6e 67 74 68 |while I |< Length|
|00004fc0| 28 52 75 6c 65 29 20 64 | 6f 05 62 65 67 69 6e 30 |(Rule) d|o.begin0|
|00004fd0| 20 20 69 66 20 28 52 75 | 6c 65 5b 49 5d 20 3c 3e | if (Ru|le[I] <>|
|00004fe0| 20 27 25 27 29 20 6f 72 | 20 28 49 20 3d 20 4c 65 | '%') or| (I = Le|
|00004ff0| 6e 67 74 68 28 52 75 6c | 65 29 29 20 74 68 65 6e |ngth(Rul|e)) then|
|00005000| 1b 20 20 20 20 41 70 70 | 65 6e 64 53 74 72 28 46 |. App|endStr(F|
|00005010| 6d 74 2c 20 52 75 6c 65 | 5b 49 5d 29 06 20 20 65 |mt, Rule|[I]). e|
|00005020| 6c 73 65 07 20 20 62 65 | 67 69 6e 0b 20 20 20 20 |lse. be|gin. |
|00005030| 49 6e 63 28 49 29 3b 13 | 20 20 20 20 63 61 73 65 |Inc(I);.| case|
|00005040| 20 52 75 6c 65 5b 49 5d | 20 6f 66 1a 20 20 20 20 | Rule[I]| of. |
|00005050| 27 6e 27 3a 20 7b 20 75 | 6e 69 71 75 65 20 6e 75 |'n': { u|nique nu|
|00005060| 6d 62 65 72 20 7d 1b 20 | 20 20 20 20 20 41 70 70 |mber }. | App|
|00005070| 65 6e 64 53 74 72 28 46 | 6d 74 2c 20 27 25 64 27 |endStr(F|mt, '%d'|
|00005080| 29 3b 23 20 20 20 20 27 | 4e 27 3a 20 7b 20 6f 70 |);# '|N': { op|
|00005090| 74 69 6f 6e 61 6c 20 75 | 6e 69 71 75 65 20 6e 75 |tional u|nique nu|
|000050a0| 6d 62 65 72 20 7d 0b 20 | 20 20 20 20 20 62 65 67 |mber }. | beg|
|000050b0| 69 6e 1d 20 20 20 20 20 | 20 20 20 41 70 70 65 6e |in. | Appen|
|000050c0| 64 53 74 72 28 46 6d 74 | 2c 20 27 25 64 27 29 3b |dStr(Fmt|, '%d');|
|000050d0| 19 20 20 20 20 20 20 20 | 20 4f 70 74 69 6f 6e 61 |. | Optiona|
|000050e0| 6c 20 3a 3d 20 54 72 75 | 65 3b 0a 20 20 20 20 20 |l := Tru|e;. |
|000050f0| 20 65 6e 64 3b 2c 20 20 | 20 20 27 74 27 3a 20 7b | end;, | 't': {|
|00005100| 20 74 79 70 65 20 6e 61 | 6d 65 20 77 69 74 68 6f | type na|me witho|
|00005110| 75 74 20 74 68 65 20 6c | 65 61 64 69 6e 67 20 54 |ut the l|eading T|
|00005120| 20 7d 32 20 20 20 20 20 | 20 69 66 20 43 6f 6d 70 | }2 | if Comp|
|00005130| 6f 6e 65 6e 74 2e 43 6c | 61 73 73 4e 61 6d 65 5b |onent.Cl|assName[|
|00005140| 31 5d 20 69 6e 20 5b 27 | 74 27 2c 20 27 54 27 5d |1] in ['|t', 'T']|
|00005150| 20 74 68 65 6e 39 20 20 | 20 20 20 20 20 20 41 70 | then9 | Ap|
|00005160| 70 65 6e 64 53 74 72 28 | 46 6d 74 2c 20 43 6f 70 |pendStr(|Fmt, Cop|
|00005170| 79 28 43 6f 6d 70 6f 6e | 65 6e 74 2e 43 6c 61 73 |y(Compon|ent.Clas|
|00005180| 73 4e 61 6d 65 2c 20 32 | 2c 20 32 35 35 29 29 0a |sName, 2|, 255)).|
|00005190| 20 20 20 20 20 20 65 6c | 73 65 2c 20 20 20 20 20 | el|se, |
|000051a0| 20 20 20 41 70 70 65 6e | 64 53 74 72 28 46 6d 74 | Appen|dStr(Fmt|
|000051b0| 2c 20 43 6f 6d 70 6f 6e | 65 6e 74 2e 43 6c 61 73 |, Compon|ent.Clas|
|000051c0| 73 4e 61 6d 65 29 3b 1f | 20 20 20 20 27 54 27 3a |sName);.| 'T':|
|000051d0| 20 7b 20 63 6f 6d 70 6c | 65 74 65 20 74 79 70 65 | { compl|ete type|
|000051e0| 20 6e 61 6d 65 20 7d 2a | 20 20 20 20 20 20 41 70 | name }*| Ap|
|000051f0| 70 65 6e 64 53 74 72 28 | 46 6d 74 2c 20 43 6f 6d |pendStr(|Fmt, Com|
|00005200| 70 6f 6e 65 6e 74 2e 43 | 6c 61 73 73 4e 61 6d 65 |ponent.C|lassName|
|00005210| 29 3b 08 20 20 20 20 65 | 6c 73 65 24 20 20 20 20 |);. e|lse$ |
|00005220| 20 20 41 70 70 65 6e 64 | 53 74 72 28 46 6d 74 2c | Append|Str(Fmt,|
|00005230| 20 27 25 27 20 2b 20 52 | 75 6c 65 5b 49 5d 29 3b | '%' + R|ule[I]);|
|00005240| 08 20 20 20 20 65 6e 64 | 3b 06 20 20 65 6e 64 3b |. end|;. end;|
|00005250| 09 20 20 49 6e 63 28 49 | 29 3b 0e 65 6e 64 3b 20 |. Inc(I|);.end; |
|00005260| 7b 20 77 68 69 6c 65 20 | 7d 00 30 7b 20 52 65 6d |{ while |}.0{ Rem|
|00005270| 6f 76 65 20 61 6c 6c 20 | 69 6e 76 61 6c 69 64 20 |ove all |invalid |
|00005280| 63 68 61 72 61 63 74 65 | 72 73 20 66 72 6f 6d 20 |characte|rs from |
|00005290| 74 68 65 20 6e 61 6d 65 | 2e 20 7d 17 46 6d 74 20 |the name|. }.Fmt |
|000052a0| 3a 3d 20 46 69 6c 74 65 | 72 4e 61 6d 65 28 46 6d |:= Filte|rName(Fm|
|000052b0| 74 29 3b 00 4d 7b 20 49 | 66 20 74 68 65 72 65 20 |t);.M{ I|f there |
|000052c0| 69 73 20 6e 6f 20 25 64 | 20 69 6e 20 74 68 65 20 |is no %d| in the |
|000052d0| 66 6f 72 6d 61 74 2c 20 | 74 68 65 6e 20 61 70 70 |format, |then app|
|000052e0| 65 6e 64 20 69 74 2c 20 | 62 75 74 20 6d 61 72 6b |end it, |but mark|
|000052f0| 20 69 74 20 61 73 20 6f | 70 74 69 6f 6e 61 6c 2e | it as o|ptional.|
|00005300| 20 7d 1a 69 66 20 50 6f | 73 28 27 25 64 27 2c 20 | }.if Po|s('%d', |
|00005310| 46 6d 74 29 20 3d 20 30 | 20 74 68 65 6e 05 62 65 |Fmt) = 0| then.be|
|00005320| 67 69 6e 17 20 20 41 70 | 70 65 6e 64 53 74 72 28 |gin. Ap|pendStr(|
|00005330| 46 6d 74 2c 20 27 25 64 | 27 29 3b 13 20 20 4f 70 |Fmt, '%d|');. Op|
|00005340| 74 69 6f 6e 61 6c 20 3a | 3d 20 54 72 75 65 3b 04 |tional :|= True;.|
|00005350| 65 6e 64 3b 00 45 7b 20 | 4e 6f 77 20 74 72 79 20 |end;.E{ |Now try |
|00005360| 74 6f 20 67 65 6e 65 72 | 61 74 65 20 61 20 75 6e |to gener|ate a un|
|00005370| 69 71 75 65 20 6e 61 6d | 65 2e 20 49 66 20 74 68 |ique nam|e. If th|
|00005380| 65 20 25 64 20 69 73 20 | 6f 70 74 69 6f 6e 61 6c |e %d is |optional|
|00005390| 2c 20 66 69 72 73 74 20 | 74 72 79 43 20 20 77 69 |, first |tryC wi|
|000053a0| 74 68 6f 75 74 20 69 74 | 2e 20 54 68 65 6e 20 74 |thout it|. Then t|
|000053b0| 72 79 20 73 75 63 63 65 | 73 73 69 76 65 20 6e 75 |ry succe|ssive nu|
|000053c0| 6d 62 65 72 73 2c 20 73 | 74 61 72 74 69 6e 67 20 |mbers, s|tarting |
|000053d0| 77 69 74 68 20 31 2c 20 | 75 6e 74 69 6c 20 61 43 |with 1, |until aC|
|000053e0| 20 20 75 6e 69 71 75 65 | 20 6e 61 6d 65 20 69 73 | unique| name is|
|000053f0| 20 66 6f 75 6e 64 2e 20 | 49 66 20 74 68 65 72 65 | found. |If there|
|00005400| 20 69 73 20 6e 6f 20 77 | 61 79 20 74 6f 20 63 72 | is no w|ay to cr|
|00005410| 65 61 74 65 20 61 20 75 | 6e 69 71 75 65 20 6e 61 |eate a u|nique na|
|00005420| 6d 65 2c 42 20 20 74 68 | 65 6e 20 72 61 69 73 65 |me,B th|en raise|
|00005430| 20 61 6e 20 65 78 63 65 | 70 74 69 6f 6e 2e 20 28 | an exce|ption. (|
|00005440| 20 49 6d 61 67 69 6e 65 | 20 33 32 4b 20 63 6f 6d | Imagine| 32K com|
|00005450| 70 6f 6e 65 6e 74 73 20 | 6f 6e 20 61 20 66 6f 72 |ponents |on a for|
|00005460| 6d 21 20 29 20 7d 10 69 | 66 20 4f 70 74 69 6f 6e |m! ) }.i|f Option|
|00005470| 61 6c 20 74 68 65 6e 05 | 62 65 67 69 6e 1b 20 20 |al then.|begin. |
|00005480| 52 65 73 75 6c 74 20 3a | 3d 20 52 65 6d 6f 76 65 |Result :|= Remove|
|00005490| 54 61 67 28 46 6d 74 29 | 3b 25 20 20 69 66 20 54 |Tag(Fmt)|;% if T|
|000054a0| 65 73 74 4e 61 6d 65 28 | 43 6f 6d 70 6f 6e 65 6e |estName(|Componen|
|000054b0| 74 2c 20 52 65 73 75 6c | 74 29 20 74 68 65 6e 09 |t, Resul|t) then.|
|000054c0| 20 20 20 20 45 78 69 74 | 3b 04 65 6e 64 3b 00 1e | Exit|;.end;..|
|000054d0| 66 6f 72 20 49 20 3a 3d | 20 31 20 74 6f 20 48 69 |for I :=| 1 to Hi|
|000054e0| 67 68 28 49 6e 74 65 67 | 65 72 29 20 64 6f 05 62 |gh(Integ|er) do.b|
|000054f0| 65 67 69 6e 1d 20 20 52 | 65 73 75 6c 74 20 3a 3d |egin. R|esult :=|
|00005500| 20 46 6f 72 6d 61 74 28 | 46 6d 74 2c 20 5b 49 5d | Format(|Fmt, [I]|
|00005510| 29 3b 25 20 20 69 66 20 | 54 65 73 74 4e 61 6d 65 |);% if |TestName|
|00005520| 28 43 6f 6d 70 6f 6e 65 | 6e 74 2c 20 52 65 73 75 |(Compone|nt, Resu|
|00005530| 6c 74 29 20 74 68 65 6e | 09 20 20 20 20 45 78 69 |lt) then|. Exi|
|00005540| 74 3b 04 65 6e 64 3b 00 | 58 72 61 69 73 65 20 45 |t;.end;.|Xraise E|
|00005550| 78 63 65 70 74 69 6f 6e | 2e 43 72 65 61 74 65 46 |xception|.CreateF|
|00005560| 6d 74 28 27 55 6e 61 62 | 6c 65 20 74 6f 20 61 70 |mt('Unab|le to ap|
|00005570| 70 6c 79 20 6e 61 6d 69 | 6e 67 20 72 75 6c 65 73 |ply nami|ng rules|
|00005580| 20 66 6f 72 20 25 73 27 | 2c 20 5b 43 6f 6d 70 6f | for %s'|, [Compo|
|00005590| 6e 65 6e 74 2e 43 6c 61 | 73 73 4e 61 6d 65 5d 29 |nent.Cla|ssName])|
|000055a0| 3b 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |;.TCodeL|ines....|
|000055b0| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|000055c0| 6f 6e 00 01 00 00 03 00 | 09 54 4c 6f 63 61 6c 56 |on......|.TLocalV|
|000055d0| 61 72 ff ff ff ff fe ff | ff ff 07 42 6f 6f 6c 65 |ar......|...Boole|
|000055e0| 61 6e 07 08 4f 70 74 69 | 6f 6e 61 6c 09 54 4c 6f |an..Opti|onal.TLo|
|000055f0| 63 61 6c 56 61 72 ff ff | ff ff fe ff ff ff 06 73 |calVar..|.......s|
|00005600| 74 72 69 6e 67 11 03 46 | 6d 74 09 54 4c 6f 63 61 |tring..F|mt.TLoca|
|00005610| 6c 56 61 72 ff ff ff ff | fe ff ff ff 07 49 6e 74 |lVar....|.....Int|
|00005620| 65 67 65 72 00 04 49 2c | 20 4a ff ff ff ff 00 07 |eger..I,| J......|
|00005630| 54 4d 65 74 68 6f 64 ff | ff 00 00 ff ff ff ff 74 |TMethod.|.......t|
|00005640| 00 c4 00 00 00 08 54 65 | 73 74 4e 61 6d 65 00 00 |......Te|stName..|
|00005650| fe ff ff ff 79 00 00 00 | 07 42 6f 6f 6c 65 61 6e |....y...|.Boolean|
|00005660| 07 02 03 00 03 00 2a 43 | 6f 6d 70 6f 6e 65 6e 74 |......*C|omponent|
|00005670| 3a 20 54 43 6f 6d 70 6f | 6e 65 6e 74 3b 20 63 6f |: TCompo|nent; co|
|00005680| 6e 73 74 20 41 4e 61 6d | 65 3a 20 73 74 72 69 6e |nst ANam|e: strin|
|00005690| 67 0c 54 4d 65 74 68 6f | 64 46 6c 65 73 68 0b 54 |g.TMetho|dFlesh.T|
|000056a0| 43 6f 6c 6c 65 63 74 69 | 6f 6e 00 01 00 00 01 00 |Collecti|on......|
|000056b0| 0a 54 43 6f 64 65 4c 69 | 6e 65 73 ff ff ff ff fe |.TCodeLi|nes.....|
|000056c0| ff ff ff 06 00 1d 69 66 | 20 43 6f 6d 70 6f 6e 65 |......if| Compone|
|000056d0| 6e 74 2e 4f 77 6e 65 72 | 20 3d 20 6e 69 6c 20 74 |nt.Owner| = nil t|
|000056e0| 68 65 6e 0c 20 20 43 6d | 70 20 3a 3d 20 6e 69 6c |hen. Cm|p := nil|
|000056f0| 04 65 6c 73 65 2e 20 20 | 43 6d 70 20 3a 3d 20 43 |.else. |Cmp := C|
|00005700| 6f 6d 70 6f 6e 65 6e 74 | 2e 4f 77 6e 65 72 2e 46 |omponent|.Owner.F|
|00005710| 69 6e 64 43 6f 6d 70 6f | 6e 65 6e 74 28 41 4e 61 |indCompo|nent(ANa|
|00005720| 6d 65 29 3b 3f 52 65 73 | 75 6c 74 20 3a 3d 20 49 |me);?Res|ult := I|
|00005730| 73 56 61 6c 69 64 49 64 | 65 6e 74 28 41 4e 61 6d |sValidId|ent(ANam|
|00005740| 65 29 20 61 6e 64 20 6e | 6f 74 20 49 73 52 65 73 |e) and n|ot IsRes|
|00005750| 65 72 76 65 64 57 6f 72 | 64 28 41 4e 61 6d 65 29 |ervedWor|d(AName)|
|00005760| 20 61 6e 64 2d 20 20 20 | 20 20 20 20 20 20 20 28 | and- | (|
|00005770| 28 43 6d 70 20 3d 20 6e | 69 6c 29 20 6f 72 20 28 |(Cmp = n|il) or (|
|00005780| 43 6d 70 20 3d 20 43 6f | 6d 70 6f 6e 65 6e 74 29 |Cmp = Co|mponent)|
|00005790| 29 3b 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |);.TCode|Lines...|
|000057a0| ff fe ff ff ff 00 00 0b | 54 43 6f 6c 6c 65 63 74 |........|TCollect|
|000057b0| 69 6f 6e 00 01 00 00 01 | 00 09 54 4c 6f 63 61 6c |ion.....|..TLocal|
|000057c0| 56 61 72 ff ff ff ff fe | ff ff ff 0a 54 43 6f 6d |Var.....|....TCom|
|000057d0| 70 6f 6e 65 6e 74 1c 03 | 43 6d 70 ff ff ff ff 00 |ponent..|Cmp.....|
|000057e0| 07 54 4d 65 74 68 6f 64 | ff ff 00 00 ff ff ff ff |.TMethod|........|
|000057f0| 74 00 c5 00 00 00 0a 46 | 69 6c 74 65 72 4e 61 6d |t......F|ilterNam|
|00005800| 65 00 00 fe ff ff ff 79 | 00 00 00 06 73 74 72 69 |e......y|....stri|
|00005810| 6e 67 11 02 03 00 03 00 | 12 63 6f 6e 73 74 20 4f |ng......|.const O|
|00005820| 72 69 67 3a 20 73 74 72 | 69 6e 67 0c 54 4d 65 74 |rig: str|ing.TMet|
|00005830| 68 6f 64 46 6c 65 73 68 | 0b 54 43 6f 6c 6c 65 63 |hodFlesh|.TCollec|
|00005840| 74 69 6f 6e 00 01 00 00 | 01 00 0a 54 43 6f 64 65 |tion....|...TCode|
|00005850| 4c 69 6e 65 73 ff ff ff | ff fe ff ff ff 08 00 0d |Lines...|........|
|00005860| 52 65 73 75 6c 74 20 3a | 3d 20 27 27 3b 1d 66 6f |Result :|= '';.fo|
|00005870| 72 20 49 20 3a 3d 20 31 | 20 74 6f 20 4c 65 6e 67 |r I := 1| to Leng|
|00005880| 74 68 28 4f 72 69 67 29 | 20 64 6f 46 20 20 69 66 |th(Orig)| doF if|
|00005890| 20 28 4f 72 69 67 5b 49 | 5d 20 3d 20 27 25 27 29 | (Orig[I|] = '%')|
|000058a0| 20 61 6e 64 20 28 49 20 | 3c 20 4c 65 6e 67 74 68 | and (I |< Length|
|000058b0| 28 4f 72 69 67 29 29 20 | 61 6e 64 20 28 4f 72 69 |(Orig)) |and (Ori|
|000058c0| 67 5b 49 2b 31 5d 20 3d | 20 27 64 27 29 20 74 68 |g[I+1] =| 'd') th|
|000058d0| 65 6e 1e 20 20 20 20 41 | 70 70 65 6e 64 53 74 72 |en. A|ppendStr|
|000058e0| 28 52 65 73 75 6c 74 2c | 20 4f 72 69 67 5b 49 5d |(Result,| Orig[I]|
|000058f0| 29 06 20 20 65 6c 73 65 | 40 20 20 20 20 69 66 20 |). else|@ if |
|00005900| 4f 72 69 67 5b 49 5d 20 | 69 6e 20 41 6c 70 68 61 |Orig[I] |in Alpha|
|00005910| 4e 75 6d 65 72 69 63 73 | 20 74 68 65 6e 20 41 70 |Numerics| then Ap|
|00005920| 70 65 6e 64 53 74 72 28 | 52 65 73 75 6c 74 2c 20 |pendStr(|Result, |
|00005930| 4f 72 69 67 5b 49 5d 29 | 3b 3a 69 66 20 28 4c 65 |Orig[I])|;:if (Le|
|00005940| 6e 67 74 68 28 52 65 73 | 75 6c 74 29 20 3d 20 30 |ngth(Res|ult) = 0|
|00005950| 29 20 6f 72 20 6e 6f 74 | 20 28 52 65 73 75 6c 74 |) or not| (Result|
|00005960| 5b 31 5d 20 69 6e 20 4c | 65 74 74 65 72 73 29 20 |[1] in L|etters) |
|00005970| 74 68 65 6e 19 20 20 52 | 65 73 75 6c 74 20 3a 3d |then. R|esult :=|
|00005980| 20 27 5f 27 20 2b 20 52 | 65 73 75 6c 74 3b 0a 54 | '_' + R|esult;.T|
|00005990| 43 6f 64 65 4c 69 6e 65 | 73 ff ff ff ff fe ff ff |CodeLine|s.......|
|000059a0| ff 00 00 0b 54 43 6f 6c | 6c 65 63 74 69 6f 6e 00 |....TCol|lection.|
|000059b0| 01 00 00 01 00 09 54 4c | 6f 63 61 6c 56 61 72 ff |......TL|ocalVar.|
|000059c0| ff ff ff fe ff ff ff 07 | 49 6e 74 65 67 65 72 00 |........|Integer.|
|000059d0| 01 49 ff ff ff ff 00 07 | 54 4d 65 74 68 6f 64 ff |.I......|TMethod.|
|000059e0| ff 00 00 ff ff ff ff 74 | 00 c6 00 00 00 10 47 65 |.......t|......Ge|
|000059f0| 74 50 72 6f 70 65 72 74 | 79 56 61 6c 75 65 00 00 |tPropert|yValue..|
|00005a00| fe ff ff ff 79 00 00 00 | 06 73 74 72 69 6e 67 11 |....y...|.string.|
|00005a10| 02 03 00 03 00 24 43 6f | 6d 70 6f 6e 65 6e 74 3a |.....$Co|mponent:|
|00005a20| 20 54 43 6f 6d 70 6f 6e | 65 6e 74 3b 20 41 4e 61 | TCompon|ent; ANa|
|00005a30| 6d 65 3a 20 53 74 72 69 | 6e 67 0c 54 4d 65 74 68 |me: Stri|ng.TMeth|
|00005a40| 6f 64 46 6c 65 73 68 0b | 54 43 6f 6c 6c 65 63 74 |odFlesh.|TCollect|
|00005a50| 69 6f 6e 00 01 00 00 01 | 00 0a 54 43 6f 64 65 4c |ion.....|..TCodeL|
|00005a60| 69 6e 65 73 ff ff ff ff | fe ff ff ff 11 00 0d 52 |ines....|.......R|
|00005a70| 65 73 75 6c 74 20 3a 3d | 20 27 27 3b 34 50 72 6f |esult :=| '';4Pro|
|00005a80| 70 49 6e 66 6f 20 3a 3d | 20 47 65 74 50 72 6f 70 |pInfo :=| GetProp|
|00005a90| 49 6e 66 6f 28 43 6f 6d | 70 6f 6e 65 6e 74 2e 43 |Info(Com|ponent.C|
|00005aa0| 6c 61 73 73 49 6e 66 6f | 2c 20 41 4e 61 6d 65 29 |lassInfo|, AName)|
|00005ab0| 3b 1c 69 66 20 50 72 6f | 70 49 6e 66 6f 20 3d 20 |;.if Pro|pInfo = |
|00005ac0| 6e 69 6c 20 74 68 65 6e | 20 45 78 69 74 3b 11 77 |nil then| Exit;.w|
|00005ad0| 69 74 68 20 50 72 6f 70 | 49 6e 66 6f 5e 20 64 6f |ith Prop|Info^ do|
|00005ae0| 18 20 20 63 61 73 65 20 | 50 72 6f 70 54 79 70 65 |. case |PropType|
|00005af0| 5e 2e 4b 69 6e 64 20 6f | 66 10 20 20 7b 24 49 46 |^.Kind o|f. {$IF|
|00005b00| 44 45 46 20 57 49 4e 33 | 32 7d 0e 20 20 20 20 74 |DEF WIN3|2}. t|
|00005b10| 6b 4c 53 74 72 69 6e 67 | 2c 0a 20 20 7b 24 45 4e |kLString|,. {$EN|
|00005b20| 44 49 46 7d 0d 20 20 20 | 20 74 6b 53 74 72 69 6e |DIF}. | tkStrin|
|00005b30| 67 3a 30 20 20 20 20 20 | 20 52 65 73 75 6c 74 20 |g:0 | Result |
|00005b40| 3a 3d 20 47 65 74 53 74 | 72 50 72 6f 70 28 43 6f |:= GetSt|rProp(Co|
|00005b50| 6d 70 6f 6e 65 6e 74 2c | 20 50 72 6f 70 49 6e 66 |mponent,| PropInf|
|00005b60| 6f 29 3b 0e 20 20 20 20 | 74 6b 49 6e 74 65 67 65 |o);. |tkIntege|
|00005b70| 72 3a 3a 20 20 20 20 20 | 20 52 65 73 75 6c 74 20 |r:: | Result |
|00005b80| 3a 3d 20 49 6e 74 54 6f | 53 74 72 28 47 65 74 4f |:= IntTo|Str(GetO|
|00005b90| 72 64 50 72 6f 70 28 43 | 6f 6d 70 6f 6e 65 6e 74 |rdProp(C|omponent|
|00005ba0| 2c 20 50 72 6f 70 49 6e | 66 6f 29 29 3b 0b 20 20 |, PropIn|fo));. |
|00005bb0| 20 20 74 6b 43 68 61 72 | 3a 35 20 20 20 20 20 20 | tkChar|:5 |
|00005bc0| 52 65 73 75 6c 74 20 3a | 3d 20 43 68 72 28 47 65 |Result :|= Chr(Ge|
|00005bd0| 74 4f 72 64 50 72 6f 70 | 28 43 6f 6d 70 6f 6e 65 |tOrdProp|(Compone|
|00005be0| 6e 74 2c 20 50 72 6f 70 | 49 6e 66 6f 29 29 3b 08 |nt, Prop|Info));.|
|00005bf0| 20 20 20 20 65 6c 73 65 | 0b 20 20 20 20 20 20 45 | else|. E|
|00005c00| 78 69 74 3b 08 20 20 20 | 20 65 6e 64 3b 0a 54 43 |xit;. | end;.TC|
|00005c10| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00005c20| 00 00 0b 54 43 6f 6c 6c | 65 63 74 69 6f 6e 00 01 |...TColl|ection..|
|00005c30| 00 00 01 00 09 54 4c 6f | 63 61 6c 56 61 72 ff ff |.....TLo|calVar..|
|00005c40| ff ff fe ff ff ff 09 50 | 50 72 6f 70 49 6e 66 6f |.......P|PropInfo|
|00005c50| 1e 08 50 72 6f 70 49 6e | 66 6f ff ff ff ff 00 07 |..PropIn|fo......|
|00005c60| 54 4d 65 74 68 6f 64 ff | ff 00 00 ff ff ff ff 74 |TMethod.|.......t|
|00005c70| 00 c7 00 00 00 06 43 72 | 65 61 74 65 06 00 fe ff |......Cr|eate....|
|00005c80| ff ff b4 00 00 00 04 56 | 6f 69 64 1f 03 01 00 00 |.......V|oid.....|
|00005c90| 00 1a 63 6f 6e 73 74 20 | 61 4e 61 6d 65 2c 20 61 |..const |aName, a|
|00005ca0| 52 75 6c 65 3a 20 73 74 | 72 69 6e 67 0c 54 4d 65 |Rule: st|ring.TMe|
|00005cb0| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00005cc0| 63 74 69 6f 6e 00 01 00 | 00 02 00 0a 54 43 6f 64 |ction...|....TCod|
|00005cd0| 65 4c 69 6e 65 73 fc ff | ff ff c7 00 00 00 01 00 |eLines..|........|
|00005ce0| 11 69 6e 68 65 72 69 74 | 65 64 20 43 72 65 61 74 |.inherit|ed Creat|
|00005cf0| 65 3b 0a 54 43 6f 64 65 | 4c 69 6e 65 73 ff ff ff |e;.TCode|Lines...|
|00005d00| ff fe ff ff ff 02 00 0f | 53 65 74 4e 61 6d 65 28 |........|SetName(|
|00005d10| 61 4e 61 6d 65 29 3b 0f | 53 65 74 52 75 6c 65 28 |aName);.|SetRule(|
|00005d20| 61 52 75 6c 65 29 3b 0a | 54 43 6f 64 65 4c 69 6e |aRule);.|TCodeLin|
|00005d30| 65 73 ff ff ff ff fe ff | ff ff 00 00 0b 54 43 6f |es......|.....TCo|
|00005d40| 6c 6c 65 63 74 69 6f 6e | 00 01 00 00 00 00 01 00 |llection|........|
|00005d50| 00 00 00 07 54 4d 65 74 | 68 6f 64 ff ff 00 00 ff |....TMet|hod.....|
|00005d60| ff ff ff 74 00 c8 00 00 | 00 09 52 65 6d 6f 76 65 |...t....|..Remove|
|00005d70| 54 61 67 00 00 fe ff ff | ff 79 00 00 00 06 73 74 |Tag.....|.y....st|
|00005d80| 72 69 6e 67 11 02 03 00 | 03 00 11 63 6f 6e 73 74 |ring....|...const|
|00005d90| 20 46 6d 74 3a 20 73 74 | 72 69 6e 67 0c 54 4d 65 | Fmt: st|ring.TMe|
|00005da0| 74 68 6f 64 46 6c 65 73 | 68 0b 54 43 6f 6c 6c 65 |thodFles|h.TColle|
|00005db0| 63 74 69 6f 6e 00 01 00 | 00 01 00 0a 54 43 6f 64 |ction...|....TCod|
|00005dc0| 65 4c 69 6e 65 73 ff ff | ff ff fe ff ff ff 05 00 |eLines..|........|
|00005dd0| 18 49 6e 64 65 78 20 3a | 3d 20 50 6f 73 28 27 25 |.Index :|= Pos('%|
|00005de0| 64 27 2c 20 46 6d 74 29 | 3b 11 69 66 20 49 6e 64 |d', Fmt)|;.if Ind|
|00005df0| 65 78 20 3d 20 30 20 74 | 68 65 6e 0f 20 20 52 65 |ex = 0 t|hen. Re|
|00005e00| 73 75 6c 74 20 3a 3d 20 | 46 6d 74 04 65 6c 73 65 |sult := |Fmt.else|
|00005e10| 40 20 20 52 65 73 75 6c | 74 20 3a 3d 20 43 6f 70 |@ Resul|t := Cop|
|00005e20| 79 28 46 6d 74 2c 20 31 | 2c 20 49 6e 64 65 78 20 |y(Fmt, 1|, Index |
|00005e30| 2d 20 31 29 20 2b 20 43 | 6f 70 79 28 46 6d 74 2c |- 1) + C|opy(Fmt,|
|00005e40| 20 49 6e 64 65 78 20 2b | 20 32 2c 20 32 35 35 29 | Index +| 2, 255)|
|00005e50| 3b 0a 54 43 6f 64 65 4c | 69 6e 65 73 ff ff ff ff |;.TCodeL|ines....|
|00005e60| fe ff ff ff 00 00 0b 54 | 43 6f 6c 6c 65 63 74 69 |.......T|Collecti|
|00005e70| 6f 6e 00 01 00 00 01 00 | 09 54 4c 6f 63 61 6c 56 |on......|.TLocalV|
|00005e80| 61 72 ff ff ff ff fe ff | ff ff 07 49 6e 74 65 67 |ar......|...Integ|
|00005e90| 65 72 00 05 49 6e 64 65 | 78 ff ff ff ff 00 07 54 |er..Inde|x......T|
|00005ea0| 4d 65 74 68 6f 64 ff ff | 00 00 ff ff ff ff 74 00 |Method..|......t.|
|00005eb0| cb 00 00 00 03 4c 6f 67 | 00 00 fe ff ff ff 79 00 |.....Log|......y.|
|00005ec0| 00 00 04 56 6f 69 64 1f | 01 03 00 02 00 00 0c 54 |...Void.|.......T|
|00005ed0| 4d 65 74 68 6f 64 46 6c | 65 73 68 0b 54 43 6f 6c |MethodFl|esh.TCol|
|00005ee0| 6c 65 63 74 69 6f 6e 00 | 01 00 00 01 00 0a 54 43 |lection.|......TC|
|00005ef0| 6f 64 65 4c 69 6e 65 73 | ff ff ff ff fe ff ff ff |odeLines|........|
|00005f00| 30 00 16 69 66 20 49 73 | 4c 6f 67 67 65 64 20 74 |0..if Is|Logged t|
|00005f10| 68 65 6e 20 45 78 69 74 | 3b 11 49 73 4c 6f 67 67 |hen Exit|;.IsLogg|
|00005f20| 65 64 20 3a 3d 20 54 72 | 75 65 3b 03 74 72 79 05 |ed := Tr|ue;.try.|
|00005f30| 20 20 74 72 79 3f 20 20 | 20 20 54 20 3a 3d 20 54 | try? | T := T|
|00005f40| 54 65 78 74 46 69 6c 65 | 2e 43 72 65 61 74 65 28 |TextFile|.Create(|
|00005f50| 43 6f 6d 6d 61 6e 64 50 | 61 74 68 20 2b 20 4c 6f |CommandP|ath + Lo|
|00005f60| 67 46 69 6c 65 4e 61 6d | 65 2c 20 74 6d 43 72 65 |gFileNam|e, tmCre|
|00005f70| 61 74 65 29 3b 07 20 20 | 20 20 74 72 79 24 20 20 |ate);. | try$ |
|00005f80| 20 20 20 20 54 2e 57 72 | 69 74 65 4c 69 6e 65 28 | T.Wr|iteLine(|
|00005f90| 27 5b 44 65 66 61 75 6c | 74 20 72 75 6c 65 5d 27 |'[Defaul|t rule]'|
|00005fa0| 29 3b 37 20 20 20 20 20 | 20 54 2e 57 72 69 74 65 |);7 | T.Write|
|00005fb0| 4c 6e 46 6d 74 28 27 44 | 65 66 61 75 6c 74 3d 25 |LnFmt('D|efault=%|
|00005fc0| 73 27 2c 20 5b 46 52 75 | 6c 65 73 2e 44 65 66 61 |s', [FRu|les.Defa|
|00005fd0| 75 6c 74 52 75 6c 65 5d | 29 3b 10 20 20 20 20 20 |ultRule]|);. |
|00005fe0| 20 54 2e 4e 65 77 6c 69 | 6e 65 3b 00 22 20 20 20 | T.Newli|ne;." |
|00005ff0| 20 20 20 52 75 6c 65 64 | 20 3a 3d 20 54 53 74 72 | Ruled| := TStr|
|00006000| 69 6e 67 4c 69 73 74 2e | 43 72 65 61 74 65 3b 24 |ingList.|Create;$|
|00006010| 20 20 20 20 20 20 55 6e | 72 75 6c 65 64 20 3a 3d | Un|ruled :=|
|00006020| 20 54 53 74 72 69 6e 67 | 4c 69 73 74 2e 43 72 65 | TString|List.Cre|
|00006030| 61 74 65 3b 09 20 20 20 | 20 20 20 74 72 79 1d 20 |ate;. | try. |
|00006040| 20 20 20 20 20 20 20 52 | 75 6c 65 64 2e 53 6f 72 | R|uled.Sor|
|00006050| 74 65 64 20 3a 3d 20 54 | 72 75 65 3b 1f 20 20 20 |ted := T|rue;. |
|00006060| 20 20 20 20 20 55 6e 72 | 75 6c 65 64 2e 53 6f 72 | Unr|uled.Sor|
|00006070| 74 65 64 20 3a 3d 20 54 | 72 75 65 3b 00 2a 20 20 |ted := T|rue;.* |
|00006080| 20 20 20 20 20 20 77 69 | 74 68 20 41 70 70 42 75 | wi|th AppBu|
|00006090| 69 6c 64 65 72 2e 47 65 | 74 54 6f 6f 6c 53 65 72 |ilder.Ge|tToolSer|
|000060a0| 76 69 63 65 73 20 64 6f | 35 20 20 20 20 20 20 20 |vices do|5 |
|000060b0| 20 20 20 66 6f 72 20 4d | 6f 64 75 6c 65 4e 75 6d | for M|oduleNum|
|000060c0| 20 3a 3d 20 30 20 74 6f | 20 47 65 74 4d 6f 64 75 | := 0 to| GetModu|
|000060d0| 6c 65 43 6f 75 6e 74 20 | 2d 20 31 20 64 6f 43 20 |leCount |- 1 doC |
|000060e0| 20 20 20 20 20 20 20 20 | 20 20 20 66 6f 72 20 43 | | for C|
|000060f0| 6f 6d 70 4e 75 6d 20 3a | 3d 20 30 20 74 6f 20 47 |ompNum :|= 0 to G|
|00006100| 65 74 43 6f 6d 70 6f 6e | 65 6e 74 43 6f 75 6e 74 |etCompon|entCount|
|00006110| 28 4d 6f 64 75 6c 65 4e | 75 6d 29 20 2d 20 31 20 |(ModuleN|um) - 1 |
|00006120| 64 6f 11 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |do. | b|
|00006130| 65 67 69 6e 3f 20 20 20 | 20 20 20 20 20 20 20 20 |egin? | |
|00006140| 20 20 20 43 6f 6d 70 4e | 61 6d 65 20 3a 3d 20 47 | CompN|ame := G|
|00006150| 65 74 43 6f 6d 70 6f 6e | 65 6e 74 4e 61 6d 65 28 |etCompon|entName(|
|00006160| 4d 6f 64 75 6c 65 4e 75 | 6d 2c 20 43 6f 6d 70 4e |ModuleNu|m, CompN|
|00006170| 75 6d 29 3b 36 20 20 20 | 20 20 20 20 20 20 20 20 |um);6 | |
|00006180| 20 20 20 69 66 20 46 52 | 75 6c 65 73 2e 46 69 6e | if FR|ules.Fin|
|00006190| 64 4b 65 79 28 40 43 6f | 6d 70 4e 61 6d 65 2c 20 |dKey(@Co|mpName, |
|000061a0| 49 6e 64 65 78 29 20 74 | 68 65 6e 54 20 20 20 20 |Index) t|henT |
|000061b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 75 6c 65 | | Rule|
|000061c0| 64 2e 41 64 64 28 46 6f | 72 6d 61 74 28 27 25 73 |d.Add(Fo|rmat('%s|
|000061d0| 3d 25 73 27 2c 20 5b 43 | 6f 6d 70 4e 61 6d 65 2c |=%s', [C|ompName,|
|000061e0| 20 46 52 75 6c 65 73 2e | 4e 61 6d 65 52 75 6c 65 | FRules.|NameRule|
|000061f0| 73 5b 49 6e 64 65 78 5d | 2e 52 75 6c 65 5d 29 29 |s[Index]|.Rule]))|
|00006200| 12 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 65 |. | e|
|00006210| 6c 73 65 4d 20 20 20 20 | 20 20 20 20 20 20 20 20 |lseM | |
|00006220| 20 20 20 20 55 6e 72 75 | 6c 65 64 2e 41 64 64 28 | Unru|led.Add(|
|00006230| 46 6f 72 6d 61 74 28 27 | 25 73 3d 25 73 27 2c 20 |Format('|%s=%s', |
|00006240| 5b 43 6f 6d 70 4e 61 6d | 65 2c 20 46 52 75 6c 65 |[CompNam|e, FRule|
|00006250| 73 2e 44 65 66 61 75 6c | 74 52 75 6c 65 5d 29 29 |s.Defaul|tRule]))|
|00006260| 3b 10 20 20 20 20 20 20 | 20 20 20 20 20 20 65 6e |;. | en|
|00006270| 64 3b 00 41 20 20 20 20 | 20 20 20 20 54 2e 57 72 |d;.A | T.Wr|
|00006280| 69 74 65 4c 69 6e 65 28 | 27 5b 43 6f 6d 70 6f 6e |iteLine(|'[Compon|
|00006290| 65 6e 74 73 20 74 6f 20 | 77 68 69 63 68 20 61 20 |ents to |which a |
|000062a0| 6e 61 6d 65 20 72 75 6c | 65 20 61 70 70 6c 69 65 |name rul|e applie|
|000062b0| 73 5d 27 29 3b 45 20 20 | 20 20 20 20 20 20 66 6f |s]');E | fo|
|000062c0| 72 20 49 6e 64 65 78 20 | 3a 3d 20 30 20 74 6f 20 |r Index |:= 0 to |
|000062d0| 52 75 6c 65 64 2e 43 6f | 75 6e 74 2d 31 20 64 6f |Ruled.Co|unt-1 do|
|000062e0| 20 54 2e 57 72 69 74 65 | 4c 69 6e 65 28 52 75 6c | T.Write|Line(Rul|
|000062f0| 65 64 5b 49 6e 64 65 78 | 5d 29 3b 00 12 20 20 20 |ed[Index|]);.. |
|00006300| 20 20 20 20 20 54 2e 4e | 65 77 4c 69 6e 65 3b 00 | T.N|ewLine;.|
|00006310| 4b 20 20 20 20 20 20 20 | 20 54 2e 57 72 69 74 65 |K | T.Write|
|00006320| 4c 69 6e 65 28 27 5b 43 | 6f 6d 70 6f 6e 65 6e 74 |Line('[C|omponent|
|00006330| 73 20 74 6f 20 77 68 69 | 63 68 20 74 68 65 20 64 |s to whi|ch the d|
|00006340| 65 66 61 75 6c 74 20 6e | 61 6d 65 20 72 75 6c 65 |efault n|ame rule|
|00006350| 20 61 70 70 6c 69 65 73 | 5d 27 29 3b 49 20 20 20 | applies|]');I |
|00006360| 20 20 20 20 20 66 6f 72 | 20 49 6e 64 65 78 20 3a | for| Index :|
|00006370| 3d 20 30 20 74 6f 20 55 | 6e 72 75 6c 65 64 2e 43 |= 0 to U|nruled.C|
|00006380| 6f 75 6e 74 2d 31 20 64 | 6f 20 54 2e 57 72 69 74 |ount-1 d|o T.Writ|
|00006390| 65 4c 69 6e 65 28 55 6e | 72 75 6c 65 64 5b 49 6e |eLine(Un|ruled[In|
|000063a0| 64 65 78 5d 29 3b 00 0d | 20 20 20 20 20 20 66 69 |dex]);..| fi|
|000063b0| 6e 61 6c 6c 79 13 20 20 | 20 20 20 20 20 20 52 75 |nally. | Ru|
|000063c0| 6c 65 64 2e 46 72 65 65 | 3b 15 20 20 20 20 20 20 |led.Free|;. |
|000063d0| 20 20 55 6e 72 75 6c 65 | 64 2e 46 72 65 65 3b 0a | Unrule|d.Free;.|
|000063e0| 20 20 20 20 20 20 65 6e | 64 3b 0b 20 20 20 20 66 | en|d;. f|
|000063f0| 69 6e 61 6c 6c 79 0d 20 | 20 20 20 20 20 54 2e 46 |inally. | T.F|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
