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;