| / PC World 2001 August
/ PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Code Templates / objectpascal.tpl
| < prev |
| Delphi Borland Form | 2000-01-03 | 2.1 KB |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 100% | dexvert | Delphi Borland Form (archive/borlandDelphiForm) | magic | Supported |
| 1% | dexvert | Action! Template (other/actionTemplate) | ext | Unsupported |
| 1% | dexvert | Labeler/Labels Unlimited Template (other/labelerTemplate) | ext | Unsupported |
| 1% | dexvert | Smart Address address book (other/smartAddressAddressBook) | ext | Unsupported |
| 1% | dexvert | Harvard Graphics Template (other/harvardGraphicsTemplate) | ext | Unsupported |
| 100% | file | Delphi compiled form 'TPersHolder' | default | |
| 99% | file | data | default | |
| 100% | TrID | Borland Form (generic) | default |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 50 46 30 0b 54 50 65 | 72 73 48 6f 6c 64 65 72 |TPF0.TPe|rsHolder|
|00000010| 00 01 50 0e 01 04 4e 61 | 6d 65 06 06 61 72 72 61 |..P...Na|me..arra|
|00000020| 79 63 0b 44 65 73 63 72 | 69 70 74 69 6f 6e 06 19 |yc.Descr|iption..|
|00000030| 61 72 72 61 79 20 64 65 | 63 6c 61 72 61 74 69 6f |array de|claratio|
|00000040| 6e 20 28 63 6f 6e 73 74 | 29 0c 43 6f 64 65 2e 53 |n (const|).Code.S|
|00000050| 74 72 69 6e 67 73 01 06 | 14 61 72 72 61 79 5b 30 |trings..|.array[0|
|00000060| 2e 2e 7c 5d 20 6f 66 20 | 3d 20 28 29 3b 00 00 01 |..|] of |= ();...|
|00000070| 04 4e 61 6d 65 06 06 61 | 72 72 61 79 64 0b 44 65 |.Name..a|rrayd.De|
|00000080| 73 63 72 69 70 74 69 6f | 6e 06 17 61 72 72 61 79 |scriptio|n..array|
|00000090| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 20 28 76 61 | declara|tion (va|
|000000a0| 72 29 0c 43 6f 64 65 2e | 53 74 72 69 6e 67 73 01 |r).Code.|Strings.|
|000000b0| 06 10 61 72 72 61 79 5b | 30 2e 2e 7c 5d 20 6f 66 |..array[|0..|] of|
|000000c0| 20 3b 00 00 01 04 4e 61 | 6d 65 06 05 63 61 73 65 | ;....Na|me..case|
|000000d0| 65 0b 44 65 73 63 72 69 | 70 74 69 6f 6e 06 1a 63 |e.Descri|ption..c|
|000000e0| 61 73 65 20 73 74 61 74 | 65 6d 65 6e 74 20 28 77 |ase stat|ement (w|
|000000f0| 69 74 68 20 65 6c 73 65 | 29 0c 43 6f 64 65 2e 53 |ith else|).Code.S|
|00000100| 74 72 69 6e 67 73 01 06 | 09 63 61 73 65 20 7c 20 |trings..|.case | |
|00000110| 6f 66 06 05 20 20 3a 20 | 3b 06 05 20 20 3a 20 3b |of.. : |;.. : ;|
|00000120| 06 06 65 6c 73 65 20 3b | 06 04 65 6e 64 3b 00 00 |..else ;|..end;..|
|00000130| 01 04 4e 61 6d 65 06 05 | 63 61 73 65 73 0b 44 65 |..Name..|cases.De|
|00000140| 73 63 72 69 70 74 69 6f | 6e 06 0e 63 61 73 65 20 |scriptio|n..case |
|00000150| 73 74 61 74 65 6d 65 6e | 74 0c 43 6f 64 65 2e 53 |statemen|t.Code.S|
|00000160| 74 72 69 6e 67 73 01 06 | 09 63 61 73 65 20 7c 20 |trings..|.case | |
|00000170| 6f 66 06 05 20 20 3a 20 | 3b 06 05 20 20 3a 20 3b |of.. : |;.. : ;|
|00000180| 06 04 65 6e 64 3b 00 00 | 01 04 4e 61 6d 65 06 06 |..end;..|..Name..|
|00000190| 63 6c 61 73 73 63 0b 44 | 65 73 63 72 69 70 74 69 |classc.D|escripti|
|000001a0| 6f 6e 06 31 63 6c 61 73 | 73 20 64 65 63 6c 61 72 |on.1clas|s declar|
|000001b0| 61 74 69 6f 6e 20 28 77 | 69 74 68 20 43 72 65 61 |ation (w|ith Crea|
|000001c0| 74 65 2f 44 65 73 74 72 | 6f 79 20 6f 76 65 72 72 |te/Destr|oy overr|
|000001d0| 69 64 65 73 29 0c 43 6f | 64 65 2e 53 74 72 69 6e |ides).Co|de.Strin|
|000001e0| 67 73 01 06 0d 54 7c 20 | 3d 20 63 6c 61 73 73 28 |gs...T| |= class(|
|000001f0| 54 29 06 07 70 72 69 76 | 61 74 65 06 00 06 09 70 |T)..priv|ate....p|
|00000200| 72 6f 74 65 63 74 65 64 | 06 00 06 06 70 75 62 6c |rotected|....publ|
|00000210| 69 63 06 1f 20 20 63 6f | 6e 73 74 72 75 63 74 6f |ic.. co|nstructo|
|00000220| 72 20 43 72 65 61 74 65 | 3b 20 6f 76 65 72 72 69 |r Create|; overri|
|00000230| 64 65 3b 06 1f 20 20 64 | 65 73 74 72 75 63 74 6f |de;.. d|estructo|
|00000240| 72 20 44 65 73 74 72 6f | 79 3b 20 6f 76 65 72 72 |r Destro|y; overr|
|00000250| 69 64 65 3b 06 09 70 75 | 62 6c 69 73 68 65 64 06 |ide;..pu|blished.|
|00000260| 00 06 04 65 6e 64 3b 00 | 00 01 04 4e 61 6d 65 06 |...end;.|...Name.|
|00000270| 06 63 6c 61 73 73 64 0b | 44 65 73 63 72 69 70 74 |.classd.|Descript|
|00000280| 69 6f 6e 06 1c 63 6c 61 | 73 73 20 64 65 63 6c 61 |ion..cla|ss decla|
|00000290| 72 61 74 69 6f 6e 20 28 | 6e 6f 20 70 61 72 74 73 |ration (|no parts|
|000002a0| 29 0c 43 6f 64 65 2e 53 | 74 72 69 6e 67 73 01 06 |).Code.S|trings..|
|000002b0| 0d 54 7c 20 3d 20 63 6c | 61 73 73 28 54 29 06 00 |.T| = cl|ass(T)..|
|000002c0| 06 04 65 6e 64 3b 00 00 | 01 04 4e 61 6d 65 06 06 |..end;..|..Name..|
|000002d0| 63 6c 61 73 73 66 0b 44 | 65 73 63 72 69 70 74 69 |classf.D|escripti|
|000002e0| 6f 6e 06 1d 63 6c 61 73 | 73 20 64 65 63 6c 61 72 |on..clas|s declar|
|000002f0| 61 74 69 6f 6e 20 28 61 | 6c 6c 20 70 61 72 74 73 |ation (a|ll parts|
|00000300| 29 0c 43 6f 64 65 2e 53 | 74 72 69 6e 67 73 01 06 |).Code.S|trings..|
|00000310| 0d 54 7c 20 3d 20 63 6c | 61 73 73 28 54 29 06 07 |.T| = cl|ass(T)..|
|00000320| 70 72 69 76 61 74 65 06 | 00 06 09 70 72 6f 74 65 |private.|...prote|
|00000330| 63 74 65 64 06 00 06 06 | 70 75 62 6c 69 63 06 00 |cted....|public..|
|00000340| 06 09 70 75 62 6c 69 73 | 68 65 64 06 00 06 04 65 |..publis|hed....e|
|00000350| 6e 64 3b 00 00 01 04 4e | 61 6d 65 06 04 66 6f 72 |nd;....N|ame..for|
|00000360| 62 0b 44 65 73 63 72 69 | 70 74 69 6f 6e 06 0d 66 |b.Descri|ption..f|
|00000370| 6f 72 20 73 74 61 74 65 | 6d 65 6e 74 0c 43 6f 64 |or state|ment.Cod|
|00000380| 65 2e 53 74 72 69 6e 67 | 73 01 06 10 66 6f 72 20 |e.String|s...for |
|00000390| 7c 20 3a 3d 20 20 74 6f | 20 20 64 6f 06 05 62 65 || := to| do..be|
|000003a0| 67 69 6e 06 00 06 04 65 | 6e 64 3b 00 00 01 04 4e |gin....e|nd;....N|
|000003b0| 61 6d 65 06 04 66 6f 72 | 73 0b 44 65 73 63 72 69 |ame..for|s.Descri|
|000003c0| 70 74 69 6f 6e 06 12 66 | 6f 72 20 28 6e 6f 20 62 |ption..f|or (no b|
|000003d0| 65 67 69 6e 2f 65 6e 64 | 29 0c 43 6f 64 65 2e 53 |egin/end|).Code.S|
|000003e0| 74 72 69 6e 67 73 01 06 | 10 66 6f 72 20 7c 20 3a |trings..|.for | :|
|000003f0| 3d 20 20 74 6f 20 20 64 | 6f 00 00 01 04 4e 61 6d |= to d|o....Nam|
|00000400| 65 06 08 66 75 6e 63 74 | 69 6f 6e 0b 44 65 73 63 |e..funct|ion.Desc|
|00000410| 72 69 70 74 69 6f 6e 06 | 14 66 75 6e 63 74 69 6f |ription.|.functio|
|00000420| 6e 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 0c 43 6f |n declar|ation.Co|
|00000430| 64 65 2e 53 74 72 69 6e | 67 73 01 06 0f 66 75 6e |de.Strin|gs...fun|
|00000440| 63 74 69 6f 6e 20 7c 28 | 29 3a 20 3b 06 05 62 65 |ction |(|): ;..be|
|00000450| 67 69 6e 06 00 06 04 65 | 6e 64 3b 00 00 01 04 4e |gin....e|nd;....N|
|00000460| 61 6d 65 06 03 69 66 62 | 0b 44 65 73 63 72 69 70 |ame..ifb|.Descrip|
|00000470| 74 69 6f 6e 06 0c 69 66 | 20 73 74 61 74 65 6d 65 |tion..if| stateme|
|00000480| 6e 74 0c 43 6f 64 65 2e | 53 74 72 69 6e 67 73 01 |nt.Code.|Strings.|
|00000490| 06 09 69 66 20 7c 20 74 | 68 65 6e 06 05 62 65 67 |..if | t|hen..beg|
|000004a0| 69 6e 06 00 06 04 65 6e | 64 3b 00 00 01 04 4e 61 |in....en|d;....Na|
|000004b0| 6d 65 06 03 69 66 65 0b | 44 65 73 63 72 69 70 74 |me..ife.|Descript|
|000004c0| 69 6f 6e 06 2a 69 66 20 | 74 68 65 6e 20 28 6e 6f |ion.*if |then (no|
|000004d0| 20 62 65 67 69 6e 2f 65 | 6e 64 29 20 65 6c 73 65 | begin/e|nd) else|
|000004e0| 20 28 6e 6f 20 62 65 67 | 69 6e 2f 65 6e 64 29 0c | (no beg|in/end).|
|000004f0| 43 6f 64 65 2e 53 74 72 | 69 6e 67 73 01 06 09 69 |Code.Str|ings...i|
|00000500| 66 20 7c 20 74 68 65 6e | 06 00 06 04 65 6c 73 65 |f | then|....else|
|00000510| 00 00 01 04 4e 61 6d 65 | 06 04 69 66 65 62 0b 44 |....Name|..ifeb.D|
|00000520| 65 73 63 72 69 70 74 69 | 6f 6e 06 0c 69 66 20 74 |escripti|on..if t|
|00000530| 68 65 6e 20 65 6c 73 65 | 0c 43 6f 64 65 2e 53 74 |hen else|.Code.St|
|00000540| 72 69 6e 67 73 01 06 09 | 69 66 20 7c 20 74 68 65 |rings...|if | the|
|00000550| 6e 06 05 62 65 67 69 6e | 06 00 06 03 65 6e 64 06 |n..begin|....end.|
|00000560| 04 65 6c 73 65 06 05 62 | 65 67 69 6e 06 00 06 03 |.else..b|egin....|
|00000570| 65 6e 64 00 00 01 04 4e | 61 6d 65 06 03 69 66 73 |end....N|ame..ifs|
|00000580| 0b 44 65 73 63 72 69 70 | 74 69 6f 6e 06 11 69 66 |.Descrip|tion..if|
|00000590| 20 28 6e 6f 20 62 65 67 | 69 6e 2f 65 6e 64 29 0c | (no beg|in/end).|
|000005a0| 43 6f 64 65 2e 53 74 72 | 69 6e 67 73 01 06 09 69 |Code.Str|ings...i|
|000005b0| 66 20 7c 20 74 68 65 6e | 00 00 01 04 4e 61 6d 65 |f | then|....Name|
|000005c0| 06 09 70 72 6f 63 65 64 | 75 72 65 0b 44 65 73 63 |..proced|ure.Desc|
|000005d0| 72 69 70 74 69 6f 6e 06 | 15 70 72 6f 63 65 64 75 |ription.|.procedu|
|000005e0| 72 65 20 64 65 63 6c 61 | 72 61 74 69 6f 6e 0c 43 |re decla|ration.C|
|000005f0| 6f 64 65 2e 53 74 72 69 | 6e 67 73 01 06 0e 70 72 |ode.Stri|ngs...pr|
|00000600| 6f 63 65 64 75 72 65 20 | 7c 28 29 3b 06 05 62 65 |ocedure ||();..be|
|00000610| 67 69 6e 06 00 06 04 65 | 6e 64 3b 00 00 01 04 4e |gin....e|nd;....N|
|00000620| 61 6d 65 06 05 74 72 79 | 63 66 0b 44 65 73 63 72 |ame..try|cf.Descr|
|00000630| 69 70 74 69 6f 6e 06 1e | 74 72 79 20 66 69 6e 61 |iption..|try fina|
|00000640| 6c 6c 79 20 28 77 69 74 | 68 20 43 72 65 61 74 65 |lly (wit|h Create|
|00000650| 2f 46 72 65 65 29 0c 43 | 6f 64 65 2e 53 74 72 69 |/Free).C|ode.Stri|
|00000660| 6e 67 73 01 06 1d 7c 76 | 61 72 69 61 62 6c 65 20 |ngs...|v|ariable |
|00000670| 3a 3d 20 74 79 70 65 6e | 61 6d 65 2e 43 72 65 61 |:= typen|ame.Crea|
|00000680| 74 65 3b 06 03 74 72 79 | 06 00 06 07 66 69 6e 61 |te;..try|....fina|
|00000690| 6c 6c 79 06 10 20 20 76 | 61 72 69 61 62 6c 65 2e |lly.. v|ariable.|
|000006a0| 46 72 65 65 3b 06 04 65 | 6e 64 3b 00 00 01 04 4e |Free;..e|nd;....N|
|000006b0| 61 6d 65 06 04 74 72 79 | 65 0b 44 65 73 63 72 69 |ame..try|e.Descri|
|000006c0| 70 74 69 6f 6e 06 0a 74 | 72 79 20 65 78 63 65 70 |ption..t|ry excep|
|000006d0| 74 0c 43 6f 64 65 2e 53 | 74 72 69 6e 67 73 01 06 |t.Code.S|trings..|
|000006e0| 03 74 72 79 06 03 20 20 | 7c 06 06 65 78 63 65 70 |.try.. ||..excep|
|000006f0| 74 06 00 06 04 65 6e 64 | 3b 00 00 01 04 4e 61 6d |t....end|;....Nam|
|00000700| 65 06 04 74 72 79 66 0b | 44 65 73 63 72 69 70 74 |e..tryf.|Descript|
|00000710| 69 6f 6e 06 0b 74 72 79 | 20 66 69 6e 61 6c 6c 79 |ion..try| finally|
|00000720| 0c 43 6f 64 65 2e 53 74 | 72 69 6e 67 73 01 06 03 |.Code.St|rings...|
|00000730| 74 72 79 06 03 20 20 7c | 06 07 66 69 6e 61 6c 6c |try.. ||..finall|
|00000740| 79 06 00 06 04 65 6e 64 | 3b 00 00 01 04 4e 61 6d |y....end|;....Nam|
|00000750| 65 06 06 77 68 69 6c 65 | 62 0b 44 65 73 63 72 69 |e..while|b.Descri|
|00000760| 70 74 69 6f 6e 06 0f 77 | 68 69 6c 65 20 73 74 61 |ption..w|hile sta|
|00000770| 74 65 6d 65 6e 74 0c 43 | 6f 64 65 2e 53 74 72 69 |tement.C|ode.Stri|
|00000780| 6e 67 73 01 06 0a 77 68 | 69 6c 65 20 7c 20 64 6f |ngs...wh|ile | do|
|00000790| 06 05 62 65 67 69 6e 06 | 00 06 04 65 6e 64 3b 00 |..begin.|...end;.|
|000007a0| 00 01 04 4e 61 6d 65 06 | 06 77 68 69 6c 65 73 0b |...Name.|.whiles.|
|000007b0| 44 65 73 63 72 69 70 74 | 69 6f 6e 06 10 77 68 69 |Descript|ion..whi|
|000007c0| 6c 65 20 28 6e 6f 20 62 | 65 67 69 6e 29 0c 43 6f |le (no b|egin).Co|
|000007d0| 64 65 2e 53 74 72 69 6e | 67 73 01 06 0a 77 68 69 |de.Strin|gs...whi|
|000007e0| 6c 65 20 7c 20 64 6f 00 | 00 01 04 4e 61 6d 65 06 |le | do.|...Name.|
|000007f0| 05 77 69 74 68 62 0b 44 | 65 73 63 72 69 70 74 69 |.withb.D|escripti|
|00000800| 6f 6e 06 0e 77 69 74 68 | 20 73 74 61 74 65 6d 65 |on..with| stateme|
|00000810| 6e 74 0c 43 6f 64 65 2e | 53 74 72 69 6e 67 73 01 |nt.Code.|Strings.|
|00000820| 06 09 77 69 74 68 20 7c | 20 64 6f 06 05 62 65 67 |..with || do..beg|
|00000830| 69 6e 06 00 06 04 65 6e | 64 3b 00 00 01 04 4e 61 |in....en|d;....Na|
|00000840| 6d 65 06 05 77 69 74 68 | 73 0b 44 65 73 63 72 69 |me..with|s.Descri|
|00000850| 70 74 69 6f 6e 06 0f 77 | 69 74 68 20 28 6e 6f 20 |ption..w|ith (no |
|00000860| 62 65 67 69 6e 29 0c 43 | 6f 64 65 2e 53 74 72 69 |begin).C|ode.Stri|
|00000870| 6e 67 73 01 06 09 77 69 | 74 68 20 7c 20 64 6f 00 |ngs...wi|th | do.|
|00000880| 00 00 00 00 | |.... | |
+--------+-------------------------+-------------------------+--------+--------+