Вверх ↑
Ответов: 8
Рейтинг: 0
#1: 2023-04-24 08:31:29 ЛС | профиль | цитата
Спасибо большое. Посмотрю ссылки.Пока решил вопрос в Delphi.

function TForm1.FieldS(NomF : Integer; Beg: Integer):Integer;
Var
f: file of Byte;
bt: Byte;
pos: Integer;
begin
bt := 0;
pos:=Beg+NomF*32;
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
Seek(f, pos);
Read(f, bt);
finally
CloseFile(f);
end;
Result :=bt;
end;


NomF - номер поля
Beg - смещение для размера.
карма: 0

0