Home » Tipps & Tricks » Object Pascal » TStringList » Textdateien erstellen/auslesen
Textdateien erstellen/auslesen
Um mit Textdateien, deren Größe nicht mehrere MB beträgt, einfach zu arbeiten, kann die Klasse TStringList verwendet werden. Dazu erzeugt man zuerst ein Objekt und kann nun über die Methode Add Zeilen hinzufügen. Gespeichert wird über SaveToFile. Um Textdateien zu laden, gibt es LoadFromFile.
Beispiel: Neue Textdatei erstellen
var sl: TStringList; begin sl:=TStringList.Create; //Objekt erzeugen try //try-finally hilft, das Objekt auch dann freizugeben, wenn ein Fehler auftritt sl.Add('Erste Zeile'); //Text hinzufügen sl.Add('Zweite Zeile'); sl.SaveToFile('c:\beispiel.txt'); //Datei speichern finally sl.free; //Objekt wieder freigeben end;
Nach jedem String, der durch Add hinzugefügt wurde, erfolgt automatisch ein Zeilenumbruch. Die Endung der Datei muss nicht txt lauten.
Beispiel: Textdatei öffnen und auslesen
var sl: TStringList; zeilennr: integer; begin sl:=TStringList.Create; //Objekt erzeugen try sl.LoadFromFile('c:\beispiel.txt'); //Datei in Stringliste laden for zeilennr:=0 to sl.Count-1 do begin //Schleife über alle Zeilen, Zählung //beginnt mit 0, die Eigenschaft Count //enthält die Gesamtzahl der Zeilen if sl[zeilennr]='Zweite Zeile' then //wenn der Text "Zweite Zeile" gefunden wurde, ShowMessage('Text gefunden in Zeile '+IntToStr(zeilennr+1)); //Meldung ausgeben end; finally sl.free; //Objekt wieder freigeben end;
2 Gedanken zu „Textdateien erstellen/auslesen“
Kommentare sind geschlossen.
Vielen Dank für den Hinweis. Ich habe es korrigiert.