[juri]

Программа должна прочтать по 64 байта из 2-3 файлов сравнить потом выести строки на экран в hex по возможности выделить сигнатуру и тоже на экран
Сейчас считываю 1 фаил перевожу в hex вывожу на экран и вижу не то что показывают hex редакторы подскажите в чем проблема.

Код:

 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;
 //lab1:='\';
 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;
     // seek(file1,a);
      read (file1 ,b);
      sign1[a]:=b;
      c:= sign1[a];
      HexString := Format('%0x',[b])+'\';
    // HexString := IntToHex( b,0 )+'\';
      lab1:=lab1+HexString;
      lab2:=lab2+intToStr(b)+'\';
    end;
  next;

  Closefile(file1);
  Closefile(file2);

 label1.Caption:= lab1;
 label2.Caption:= lab2;
end;
 
end.

Admin: Пользуемся тегами!