ab best. Offset aus Datei1 in Datei2 kopieren

[Coder]

ja, ich hatte es nach dem Posten auch gemerkt.

Programm "läuft" aber funktioniert noch nicht richtig.
Er kopiert, wenn ich für Offset 100 eingebe , nur die ersten hundert Bytes.
nicht ab dann den Rest..

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var a,b: TFileStream;
Offset  : cardinal;
begin

 offset := Strtoint(Edit3.Text); // ab dem Offset

 a := TFileStream.Create(Edit1.Text, fmOpenRead); // Dateinamen ermitteln
 b := TFileStream.create(Edit1.Text+'.bak', fmCreate);
 b.CopyFrom(a, offset);

a.Free; b.Free;

End;

kann doch aber eigentlich nicht sein, oder?

EDIT:
a.Position Offset << so vielleicht ?
b.CopyFrom(a, a.Size - offset);

[marabu]

Lies nochmal den Beitrag von 07:06.

marabu

[Coder]

jo, hatte ich gerad auch noch mal..

a.Position := Offset;
b.CopyFrom(a, (a.Size - offset));