zeilen einer text Datei übergeben

[ggscholz]

ChatGpd: Delphi zeilen einer text Datei übergeben

Code:

In Delphi kannst du Zeilen einer Textdatei einlesen, indem du eine Datei mit einem TStreamReader oder TFileStream öffnest und dann Zeilen iterierst oder verarbeitest.
Hier ein einfaches Beispiel, wie du alle Zeilen einer Textdatei in Delphi einlesen und verarbeiten kannst:

Beispielcode:
delphi
Code kopieren
uses
  System.SysUtils, System.Classes;

procedure ReadFileLines(const FileName: string);
var
  FileStream: TFileStream;
  Reader: TStreamReader;
  Line: string;
begin
  if not FileExists(FileName) then
  begin
    WriteLn('Datei existiert nicht.');
    Exit;
  end;

  FileStream := TFileStream.Create(FileName, fmOpenRead);
  Reader := TStreamReader.Create(FileStream, TEncoding.UTF8);
  try
    while not Reader.EndOfStream do
    begin
      Line := Reader.ReadLine;
      // Hier kannst du etwas mit der Zeile machen
      WriteLn(Line); // Beispiel: Ausgabe der Zeile
    end;
  finally
    Reader.Free;
    FileStream.Free;
  end;
end;

begin
  // Beispielaufruf
  ReadFileLines('C:\Pfad\zur\Datei.txt');
end.
Erklärung:
TFileStream wird verwendet, um die Datei zu öffnen.
TStreamReader liest die Datei zeilenweise.
Mit Reader.ReadLine kannst du jede einzelne Zeile der Datei einlesen und verarbeiten.
Wenn du die Zeilen nicht nur ausgeben, sondern auch in einer Liste oder anderen Datenstrukturen speichern möchtest, kannst du das auch leicht anpassen.
Das Beispiel geht davon aus, dass du UTF-8-codierte Textdateien verwendest, aber du kannst das je nach Bedarf anpassen, z. B. auf TEncoding.ANSI oder andere.
Falls du eine spezielle Aufgabe im Kopf hast, lass es mich wissen, und ich kann den Code entsprechend anpassen!

Beste Grüße