Программа должна прочтать по 64 байта из 2-3 файлов сравнить потом выести строки на экран в hex по возможности выделить сигнатуру и тоже на экран
Сейчас считываю 1 фаил перевожу в hex вывожу на экран и вижу не то что показывают hex редакторы подскажите в чем проблема.
Код:
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 | Form1: TForm1;
file1: file of integer ;
file2: file of integer ;
sign1: array [ 0..64 ] of integer ;
sign2: array [ 0..64 ] of integer ;
sign3: array [ 0..64 ] of string ;
exstring: integer ;
HexString, lab1, lab2: string ;
a, b, c: integer ;
implementation
{$R *.dfm}
procedure TForm1 . FormCreate(Sender: TObject);
begin
a:= 0 ;
AssignFile(file1, 'C:\1\1.djvu' );
AssignFile(file2, 'C:\1\5.38M 00562B0C 00D05C67FF24 58554A15 H09M8A48V1T0.djvu' );
reset (file1);
reset (file2);
for a:= 0 to 64 do
begin ;
read (file1 ,b);
sign1[a]:=b;
c:= sign1[a];
HexString := Format( '%0x' ,[b])+'\';
lab1:=lab1+HexString;
lab2:=lab2+intToStr(b)+'\';
end ;
next;
Closefile(file1);
Closefile(file2);
label1 . Caption:= lab1;
label2 . Caption:= lab2;
end ;
end .
|
Admin: Пользуемся тегами!