|
Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
Delphi XE2 Professional
|
Re: TFileStream: Text am Anfang einfügen in Textdatei
16. Jan 2007, 16:51
Ich habs jetzt mal als aktives Mitlied (wie Jürgen es gerade provokatorisch schrieb) so gelöst:
Delphi-Quellcode:
Stream_Laenge := Size;
SetLength(Buffer, Stream_Laenge);
ReadBuffer(Buffer[1], Stream_Laenge);
Position := 0;
S := S + Buffer;
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
|