| Цитата(royun @ 2.9.2011, 09:36) | Открываю бинарный файл на чтение используя TFileStream -> Затем пока не достигнуто конца файла -> проверить: если файл начинается на 86 (Hex), то сделать что-либо. Не могу додуматься как реализовать проверку файла начинается он с 86 (Hex) или нет
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TFileStream;
begin
if Not OpenDialog1.Execute then
Exit;
Stream1 := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
While Stream1.Position<>Stream.Size do
begin
end;
Stream1.Free;
end;
|
|
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TFileStream;
Buf:Byte;
begin
if Not OpenDialog1.Execute then
Exit;
Stream1 := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
While Stream1.Position<>Stream.Size do
begin
Stream1.Seek(0, soFromBeginning);
Stream1.Read(Buf, 1);
if Buf = $86 then ;
end;
Stream1.Free;
end;
|
|