Textdateien erstellen/auslesen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
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;
Ähnliche Seiten: