ich muss eine Binary durchsuchen und ab dieser Position bis zum Ende Kopieren
Delphi-Quellcode:
Var
Target: File;
Ch: AnsiChar;
Buf: byte;
Const
tar: Array [1 .. 9] of Byte =($3E, $00, $53, $00, $47, $00, $40, $00, $3E);
begin
MemoInfo.Clear;
if dlgOpen.Execute then
begin
DoubleBuffered := True;
Application.ProcessMessages;
AssignFile(Target, dlgOpen.FileName);
Reset(Target, 1);
Seek(Target, tar);
end;
und ab da häng ich sicher hilft Blockread/write aber wie durchsuche ich die datei