Einzelnen Beitrag anzeigen

Benutzerbild von Coder
Coder

Registriert seit: 27. Feb 2004
Ort: Bochum
206 Beiträge
 
Delphi 3 Professional
 
#9

Re: ab best. Offset aus Datei1 in Datei2 kopieren

  Alt 11. Jul 2005, 08:57
habe jetzt mal das versucht

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

offset := Strtoint(Edit3.Text);

a := TFileStream.Create('Datei.dat', fmOpenRead);
b := TFileStream.create('datei2.dat', fmCreate);
b.CopyFrom(a, offset);

a.Free; b.Free;

End;
EDIT: LÄUFT
gnarf - manche Dinge sind in Delphi so einfach.
Aber streams gehören irgendwie nicht dazu.
Hab von Walter Doberenz "Borl. Delphi 6 Grundlagen" (ok, hab nur Delphi 3 Pro, aber dennoch)
is ein dickes Buch, aber irgendwie sind Streams da auch nicht ganz so toll erklärt.

welches Buch fandet Ihr denn toll?
  Mit Zitat antworten Zitat