Per ReadLn() zufällige Zeile aus Textdatei lesen

[jbg]

Zitat von flomei:

Wie benutzt man das?

Gar nicht, da es nur mit file / file of Datentyp funktioniert, aber nicht mit TextFile.

Mein Vorschlag ist die Datei mit Hilfe einer TStringList einzulesen und dann auf die Zeilen per Index zuzugreifen.

Delphi-Quellcode:

var
  Lines: TStrings;
  Index: Integer;
begin
  Lines := TStringList.Create;
  try
    // Datei "$(EXE-PFAD)\MeineDatei.txt" einlesen
    Lines.LoadFromFile(ExtractFileDir(ParamStr(0)) + '\MeineDatei.txt');
    if Lines.Count = 0 then
      raise Exception.Create('Die Datei ist leer.');

    Index := Random(Lines.Count); // Zufallszahl ermitteln aus [0, Count - 1]
    ShowMessage(Lines[Index]);

  finally
    Lines.Free;
  end;
end;