Forum: Object-Pascal / Delphi-Language
Delphi
by neolithos,
14. Jun 2004
Das war auch nicht an dich gerichtet! Sondern nur als Ergänzung gedacht.
Forum: Object-Pascal / Delphi-Language
Delphi
by neolithos,
14. Jun 2004
Übrigens ob du Seek oder Position verwendest, ist eigentlich egal. Denn Position führt auf Seek zurück.
Forum: Object-Pascal / Delphi-Language
Delphi
by neolithos,
13. Jun 2004
var stm1,
stm2 : TStream;
...
stm1 := TFileStream.Create('datei1', fmOpenRead);
stm2 := TFileStream.Create('datei2', fmCreate);
stm1.Seek(stm1.Size div 2, soFromBeginning);
stm2.CopyFrom(stm1);
stm1.Free;