Developing.ru

procedure TForm1.Button1Click(Sender: TObject);
var
f : file;
Buff : Array[1..200] of Byte;
N : integer;
e:dword;
s:string;
b:byte;
begin
assignfile(f, '1.exe');
Reset(F, 1);
BlockRead(F, Buff, 200);
closefile(f);
  For n:=1 To Length(buff) do
  begin
  e:=buff[n];
  s:=s+inttohex(e,1);
  end;
  edit1.text:=s;
end;
end.

Вот разобрался !! а это для потомства 8)
[code]
procedure TForm1.Button1Click(Sender: TObject);
var
f : file;
Buff : Array[1..200] of Byte;
N : integer;
e:dword;
s:string;
b:byte;
begin
assignfile(f, '1.exe');
Reset(F, 1);
BlockRead(F, Buff, 200);
closefile(f);
For n:=1 To Length(buff) do
begin
e:=buff[n];
s:=s+inttohex(e,1);
end;
edit1.text:=s;
end;
end.[/code]

Зависит от продолжения вопросов. Может и в "Решите мне задачу" :) . СЗОТ.

3 - количество байт, которые нужно прочесть.

P.S. Я думаю, что вопрос нужно перенести в Делфийский форум. Если так посчитает ещё кто-либо из кураторов - он там и окажется.

Всем привет вот замучился уже объясните ! Нужно прочитать из exe файла блок в 16 (array of byte) формате, размер которого определяю я и потом перевести это в строку для дальнейшей работы. Нужен работающий пример на Delphi !!!

Procedure BlockWrite (var F: File; var Buf; Count: Integer [; var AtmTransferred: Integer]); Я понял 1-файл, 2- буфер, 3 - ?