String aus Textdatei einlesen

[Chris Schütze]

Hallo!
Wie kann ich Strings ohne feste Größe, aber mit ; als Trennzeichen
aus einer Textdatei einlesen?

[Andreas Kosch]

Hallo,

eine TStringList sollte diesen Job übernehmen können, wie das folgende Beispiel zeigt. Über die Eigenschaft <b>Delimiter</b> wird das Trennzeichen definiert und der Text dann an die Eigenschaft <b>DelimitedText</b> zugewiesen. Die TStringList legt dann für jedes durch ein Semikolon abgetrenntes Wort einen eigenen Eintrag an, so dass im TMemo alle Bestandteile untereinander angezeigt werden:
<pre>
const
cTXT = 'Das; ist; ein Test; für Delimiter und DelimitedText';

procedure TForm1.Button1Click(Sender: TObject);
var
aSL : TStringList;
begin
aSL := TStringList.Create;
try
aSL.Delimiter := ';';
aSL.DelimitedText := cTXT;
Memo1.Lines.Add(aSL.Text);
finally
aSL.Free;
end;
end;
</pre&gt

[Chris Schütze]

Danke für die schnelle Hilfe

[Helmut Schumacher]

<per>Hallo,
was ist hier los?
Das Object TStringList hat keine Eigenschaft
"Delimiter".

Helmut</per&gt

[Mario.Noack]

... ab Delphi 6 schon:<br>
http://www.entwickler-forum.de\webx?128@@.1dd04348<p>
Schöne Grüße, Mario Noac