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;