zeilen einer text Datei übergeben

[steffenbaumann1]

Folgendes hab ich schon:

Code:

begin
 var
  TextDatei: TStringList;
  Zeile: string;
begin

    Tkonfig.txt.LoadFromFile;

    
    Zeile := TextDatei[0];
  finally
 konfig.txt.Free;

end;

jetzt zu meiner frage
Wie kann ich die einzelnen zeilen einer varale übergen um damit weiter zu verwenden

[DeddyH]

Vielleicht solltest Du Dir erst einmal mit Dir selbst einig werden, wie die Variable für die Stringliste denn nun heißen soll. Das Code sollte dann etwa so aussehen:

Delphi-Quellcode:

var
  lFileContent: TStringList;
  lLine: string;
  i: integer;
begin
  lFileContent := TStringList.Create;
  try
    lFileContent.LoadFromFile(Dateiname);
    for i := 0 to lFileContent.Count - 1 do
      begin
        lLine := lFileContent[i];
        MachWasMit(lLine);
      end;
  finally
    lFileContent.Free;
  end;
end;

[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

[Cypheros]

Hey Leute, hier stimmt was nicht. Der ganze Sourcecode macht gar keinen Sinn. Da stimmt ja keine einzige Codezeile.

Schon frühere Posts von Herrn Baumann waren seltsam und widersprüchlich. Vielleicht sollte ein Mod mal die IP prüfen ob es sich nicht um eine VPN-Adresse oder eine KI-Adresse (OpenAI, Microsoft, Google, etc.) handelt.

Ich denke KI-Bots fangen an sich in Foren zu beteiligen, um Informationen zu klauen. KI ist nichts anderes als Diebstahl in so immensem Maßstab, dass es niemand glauben mag. Trotzdem ist eine KI nichts anderes als die Summe seiner kopierten/gestohlenen Daten.

Teil der "Death Internet-Theory" ist es, dass KI-Bots auch irgendwann in Foren agieren, um weitere Informationen stehlen zu können.

[freimatz]

Zitat von Cypheros:

Hey Leute, hier stimmt was nicht. Der ganze Sourcecode macht gar keinen Sinn. Da stimmt ja keine einzige Codezeile.

Schon frühere Posts von Herrn Baumann waren seltsam und widersprüchlich. Vielleicht sollte ein Mod mal die IP prüfen ob es sich nicht um eine VPN-Adresse oder eine KI-Adresse (OpenAI, Microsoft, Google, etc.) handelt.

Ich denke KI-Bots fangen an sich in Foren zu beteiligen, um Informationen zu klauen. KI ist nichts anderes als Diebstahl in so immensem Maßstab, dass es niemand glauben mag. Trotzdem ist eine KI nichts anderes als die Summe seiner kopierten/gestohlenen Daten.

Teil der "Death Internet-Theory" ist es, dass KI-Bots auch irgendwann in Foren agieren, um weitere Informationen stehlen zu können.

Interessanter Gedanke. Aber würde eine KI offensichtliche Fehler einbauen wie "varale übergen".
Was mich auch wundert ist, warum überhaupt noch jemand auf er/sie/es antwortet

[dummzeuch]

Zitat von Cypheros:

Ich denke KI-Bots fangen an sich in Foren zu beteiligen, um Informationen zu klauen.

Delphi Praxis ist kein geschlossenes Forum. Man kann es auch ohne Anmeldung lesen. Warum sollte also ein KI-Bot sich hier anmelden müssen "um Informationen zu klauen"?

Die Frage des OP ist aber schon irgendwie seltsam.

[freimatz]

Na ja, ein Bot muss sich anmelden um einen Input "schreiben" zu können um dann auf den Antworten lernen zu können.
Vielleicht ist es aber nur ein Bot um einen Spamschutz zu umgehen.

[Frickler]

Zitat von Cypheros:

Schon frühere Posts von Herrn Baumann waren seltsam und widersprüchlich.

Das habe ich auch zuerst gedacht. Aber eine kurze Websuche ergab, dass dies sehr wahrscheinlich eine reale Person ist.

[freimatz]

Oder die reale Person wird missbraucht.
Geantwortet hat er m.W. noch nie.

[himitsu]

Du kennst die SuFu?

Textdatei lesen
Delphi Textdatei lesen

Zitat von steffenbaumann1:

Folgendes hab ich schon

Also hast du eigentlich garnichts, denn das Gezeigte ergibt irgendwie garkeinen Sinn,
oder wurde da einfach nur zu viel Nötiges im "Code-Beispiel" weggelassen?
Aber siehe erste Antwort #2.

Zitat von DeddyH:

Delphi-Quellcode:

var
  lFileContent: TStringList;
  lLine: string;
  i: integer;
begin
  lFileContent := TStringList.Create;
  try
    lFileContent.LoadFromFile(Dateiname);
    for i := 0 to lFileContent.Count - 1 do
      begin
        lLine := lFileContent[i];
        MachWasMit(lLine);
      end;
  finally
    lFileContent.Free;
  end;
end;

Joar, eine TStringList ist schon der normale gute Weg,

wobei, es geht noch "moderner" (klein und mit automatischer Speicherverwaltung, also dynamisches Array anstatt einem StringList-Objekt)

Delphi-Quellcode:

for var Line in TFile.ReadAllLines(Dateiname) do
  MachWasMit(Line);

jaaaaaa, oder so

Delphi-Quellcode:

var
  FileContent: TArray<String>;
  Line: String;
  Index: Integer;
begin
  FileContent := TFile.ReadAllLines(Dateiname);
  for Line in FileContent do
    MachWasMit(Line);

  // oder
  for Index := 0 to High(FileContent) do
    MachWasMit(FileContent[Index]);

Und wenn es mal mehr Daten werden (weniger RAM / extrem große Datei),
dann ginge immernoch der Weg über die uralten Pascal-Prozeduren, aber den Weg sollte man heute wirklich NICHT mehr gehn.
AssignFile, Reset, ReadLn, ..., CloseFile
https://docwiki.embarcadero.com/Code...Reset_(Delphi)

Stattdessen dann eben einen FileStream, eventuell noch mit einem StreamReader dazu.
[add] siehe Antwort #3.