1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
| 00000000 0D 0A 70 72 6F 67 72 61 6D 20 48 65 78 44 75 6D ..progra m.HexDum
00000010 70 3B 0D 0A 7B 24 41 50 50 54 59 50 45 20 43 4F p;..{$AP PTYPE.CO
00000020 4E 53 4F 4C 45 7D 0D 0A 0D 0A 75 73 65 73 0D 0A NSOLE}.. ..uses..
00000030 20 20 53 79 73 55 74 69 6C 73 3B 0D 0A 0D 0A 66 ..SysUti ls;....f
00000040 75 6E 63 74 69 6F 6E 20 49 49 66 28 63 6F 6E 73 unction. IIf(cons
00000050 74 20 61 43 6F 6E 64 69 74 69 6F 6E 3A 20 62 6F t.aCondi tion:.bo
00000060 6F 6C 65 61 6E 3B 20 63 6F 6E 73 74 20 61 54 72 olean;.c onst.aTr
00000070 75 65 52 65 73 75 6C 74 2C 20 61 46 61 6C 73 65 ueResult ,.aFalse
00000080 52 65 73 75 6C 74 3A 20 63 68 61 72 29 3A 20 63 Result:. char):.c
00000090 68 61 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 har;..be gin....i
000000A0 66 20 61 43 6F 6E 64 69 74 69 6F 6E 20 74 68 65 f.aCondi tion.the
000000B0 6E 20 72 65 73 75 6C 74 20 3A 3D 20 61 54 72 75 n.result .:=.aTru
000000C0 65 52 65 73 75 6C 74 20 65 6C 73 65 20 72 65 73 eResult. else.res
000000D0 75 6C 74 20 3A 3D 20 61 46 61 6C 73 65 52 65 73 ult.:=.a FalseRes
000000E0 75 6C 74 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 76 61 ult;..en d;....va
000000F0 72 0D 0A 20 20 62 75 66 66 65 72 3A 20 61 72 72 r....buf fer:.arr
00000100 61 79 5B 31 2E 2E 31 36 5D 20 6F 66 20 63 68 61 ay[1..16 ].of.cha
00000110 72 3B 0D 0A 20 20 6F 66 66 73 65 74 3A 20 69 6E r;....of fset:.in
00000120 74 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 teger;.. ..proced
00000130 75 72 65 20 57 72 69 74 65 4C 69 6E 65 28 63 6F ure.Writ eLine(co
00000140 6E 73 74 20 61 43 68 61 72 43 6F 75 6E 74 3A 20 nst.aCha rCount:.
00000150 69 6E 74 65 67 65 72 29 3B 0D 0A 76 61 72 0D 0A integer) ;..var..
00000160 20 20 69 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 ..i:.int eger;...
00000170 20 73 3A 20 73 74 72 69 6E 67 3B 0D 0A 62 65 67 .s:.stri ng;..beg
00000180 69 6E 0D 0A 20 20 73 20 3A 3D 20 46 6F 72 6D 61 in....s. :=.Forma
00000190 74 28 27 25 30 2E 38 58 20 27 2C 20 5B 6F 66 66 t('%0.8X .',.[off
000001A0 73 65 74 5D 29 3B 0D 0A 20 20 66 6F 72 20 69 20 set]);.. ..for.i.
000001B0 3A 3D 20 31 20 74 6F 20 61 43 68 61 72 43 6F 75 :=.1.to. aCharCou
000001C0 6E 74 20 64 6F 20 73 20 3A 3D 20 43 6F 6E 63 61 nt.do.s. :=.Conca
000001D0 74 28 73 2C 20 46 6F 72 6D 61 74 28 27 25 30 2E t(s,.For mat('%0.
000001E0 32 58 20 27 2C 20 5B 4F 72 64 28 62 75 66 66 65 2X.',.[O rd(buffe
000001F0 72 5B 69 5D 29 5D 29 29 3B 0D 0A 20 20 73 20 3A r[i])])) ;....s.:
00000200 3D 20 43 6F 6E 63 61 74 28 73 2C 20 53 74 72 69 =.Concat (s,.Stri
00000210 6E 67 4F 66 43 68 61 72 28 27 20 27 2C 20 33 20 ngOfChar ('.',.3.
00000220 2A 20 28 31 36 20 2D 20 61 43 68 61 72 43 6F 75 *.(16.-. aCharCou
00000230 6E 74 29 29 29 3B 0D 0A 20 20 66 6F 72 20 69 20 nt)));.. ..for.i.
00000240 3A 3D 20 31 20 74 6F 20 61 43 68 61 72 43 6F 75 :=.1.to. aCharCou
00000250 6E 74 20 64 6F 20 73 20 3A 3D 20 43 6F 6E 63 61 nt.do.s. :=.Conca
00000260 74 28 73 2C 20 49 49 66 28 62 75 66 66 65 72 5B t(s,.IIf (buffer[
00000270 69 5D 20 69 6E 20 5B 23 33 33 2E 2E 23 31 32 36 i].in.[# 33..#126
00000280 5D 2C 20 62 75 66 66 65 72 5B 69 5D 2C 20 27 2E ],.buffe r[i],.'.
00000290 27 29 29 3B 0D 0A 20 20 49 6E 73 65 72 74 28 27 '));.... Insert('
000002A0 20 27 2C 20 73 2C 20 31 30 29 3B 0D 0A 20 20 49 .',.s,.1 0);....I
000002B0 6E 73 65 72 74 28 27 20 27 2C 20 73 2C 20 33 35 nsert('. ',.s,.35
000002C0 29 3B 0D 0A 20 20 49 6E 73 65 72 74 28 27 20 27 );....In sert('.'
000002D0 2C 20 73 2C 20 36 30 29 3B 0D 0A 20 20 49 6E 73 ,.s,.60) ;....Ins
000002E0 65 72 74 28 27 20 20 27 2C 20 73 2C 20 36 39 29 ert('..' ,.s,.69)
000002F0 3B 0D 0A 20 20 57 72 69 74 65 4C 6E 28 73 29 3B ;....Wri teLn(s);
00000300 0D 0A 65 6E 64 3B 0D 0A 0D 0A 76 61 72 0D 0A 20 ..end;.. ..var...
00000310 20 69 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A .i:.inte ger;....
00000320 62 65 67 69 6E 0D 0A 20 20 69 20 3A 3D 20 31 3B begin... .i.:=.1;
00000330 0D 0A 20 20 6F 66 66 73 65 74 20 3A 3D 20 30 3B ....offs et.:=.0;
00000340 0D 0A 20 20 0D 0A 20 20 77 68 69 6C 65 20 6E 6F ........ while.no
00000350 74 20 45 6F 66 20 64 6F 0D 0A 20 20 62 65 67 69 t.Eof.do ....begi
00000360 6E 0D 0A 20 20 20 20 52 65 61 64 28 62 75 66 66 n......R ead(buff
00000370 65 72 5B 69 5D 29 3B 0D 0A 20 20 20 20 0D 0A 20 er[i]);. ........
00000380 20 20 20 69 66 20 69 20 3D 20 31 36 20 74 68 65 ...if.i. =.16.the
00000390 6E 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 n......b egin....
000003A0 20 20 20 20 57 72 69 74 65 4C 69 6E 65 28 69 29 ....Writ eLine(i)
000003B0 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 31 3B ;....... .i.:=.1;
000003C0 0D 0A 20 20 20 20 20 20 49 6E 63 28 6F 66 66 73 ........ Inc(offs
000003D0 65 74 2C 20 31 36 29 3B 0D 0A 20 20 20 20 65 6E et,.16); ......en
000003E0 64 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 49 6E d.else.. ......In
000003F0 63 28 69 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 c(i);... .end;...
00000400 20 0D 0A 20 20 69 66 20 69 20 3E 20 31 20 74 68 .....if. i.>.1.th
00000410 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 en....be gin.....
00000420 20 44 65 63 28 69 29 3B 0D 0A 20 20 20 20 57 72 .Dec(i); ......Wr
00000430 69 74 65 4C 69 6E 65 28 69 29 3B 0D 0A 20 20 65 iteLine( i);....e
00000440 6E 64 3B 0D 0A 65 6E 64 2E 0D 0A nd;..end ... |
Partager