Теперь проблема с чтением данных
Если использовать это:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
a:TFileStream;
s:byte;
begin
OpenDialog1.Execute;
a:=TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
a.Seek($0,soFromBeginning);
a.Read(s, sizeof(s));
IF s=$05 then
begin
s:=$00;
a.Seek($0,soFromBeginning);
a.write(s,sizeof(s));
end;
a.free;
end;
|
то работает с одним байтом. А как сделать чтоб несколько сразу заменить.
Пробывал так:
Цитата:
...
a.Read(s, sizeof(3));
IF s=$050201 then
begin
s:=$000000;
...
|
не работает