Textdatei zeilenweise einlesen

[Tommy1988]

Zuerst:
Alles, was ich an Grundwissen habe (Und ja, ich habe das Tutorial schon durch) kann ich sagen:
"Ich weis nicht weiter"

Suche wurde bemüht.

Undzwar:
Wie kann ich eine einfache Textdatei zeilenweise auslesen/einlesen?

Z.B. eine Variable mit dem Inhalt von Zeile X füllen?

Edit:
Meine vielleicht unschöne Lösung (Habe eine Stringlist genommen, obwohl ich sie hasse!)

Delphi-Quellcode:

sl := TStringlist.Create;
sl.LoadFromFile(Form3.ShellTreeView1.Path);

Caption := sl.Strings[Liste.Count-1]; // Caption nur um inhalt irgentwo sichtbar zu machen
// Das wäre dann die LETZTE zeile

[Matze]

Hallo,

die Suche hätte dir diesen Code gegeben:

Delphi-Quellcode:

var
  Txtdatei: Textfile;
  Zeile: String;
begin
  AssignFile(Txtdatei, 'Hallo.txt');
  Reset(Txtdatei);
  Readln(Txtdatei, Zeile);
  ....
  CloseFile(Txtdatei);
end;

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.

[Tommy1988]

Ok, aber ist meine bescheidene Lösung denn akzeptabel?

[Matze]

Das musst du für dich entscheiden. Wenn du damit zufrieden bist, wieso nicht?
Ist die Textdatei nicht sonderlich groß, dann ist deine Lösung in Ordnung. Je größer jedoch die Datei, desto länger benötigt das Einlesen in die StringList und desto mehr RAM wird belegt.

Edit: Aber vergiss die Ressourcenschutzblöcke nicht.

[Tommy1988]

Zitat:

Ressourcenschutzblöcke

Habe ich noch nie gehört :pale:

[Matze]

Zitat:

Zitat von Tommy1988

Habe ich noch nie gehört :pale:

Aber du weißt sicher schon, was das ist, nämlich try - finally ;)

Delphi-Quellcode:

sl := TStringlist.Create; 
try
  // ...
finally
  FreeAndNil(sl);
end;

Das sorgt dafür, dass der Speicher auch dann wieder freigegeben wird, falls beim Zugriff auf die Stringlist oder ähnlichem (das im try-Abschnitt) eine Exception geworfen werden sollte.

Edit: ich sehe gerade, dass ich "finally-Abschnitt" geschrieben hatte.

[Tommy1988]

Ahhhh.. doch unter diesem Namen ist mir das durchaus bekannt :thumb: