Problem mit TStream / TWriter / TReader

[Karsten Hoffrath]

Hallo,<p>

ich habe einige Probleme mit Streams.<br>
Ich möchte eine Datei erstellen, in der ich Strings ablege.<br>
Dazu erzeuge ich einen FileStream, einen TWriter und verbinde die beiden.<br>
Wie bringe ich TWriter nun dazu, nach Aufruf von Writer.WriteString()<br>
in der Ausgabedatei eine neue Zeile zu beginnen?<br>
Wo finde ich eine vernünftige Einführung in dieses Thema?<br>
In meinen Delphi-Büchern wird dieses Thema nur am Rande gestreift.<br>
Stattdessen wird das meiste mit den normalen FileOperationen abgehandelt. <p>
Danke.

[Holger Rogge]

Hallo Karsten,

wenn Du eine Textdatei mit Zeilenende-Zeichen erstellen möchtest, solltest Du einfach eine Textdatei (TextFile) verwenden und diese mittels "WriteLn(<Zeilenstring>)" füllen.

Procedure SchreibeListe(Liste: TStrings);
var
T: TextFile;
I: Integer;
begin
AssignFile(T, 'Test.txt');
{$I-}
ReWrite(T);
{$I+}
if IOResult <> 0 then
raise Exception.Create('Datei kann nicht erstellt werden!');
for I := 0 to Pred(Liste.Count) do
WriteLn(T, Liste[I]);
CloseFile(T)
end;

Der Vorteil bei dieser Methode ist der, dass Du die erzeugte Datei mit jedem Textprogramm ansehen kannst.

Ich hoffe das hilft

mfg Holge