Daten aus TXT lesen und zufällig auswählen

[DeddyH]

Memo.Lines[Random(Memo.Lines.Count)] sollte funktionieren.

[edit] Oder etwas allgemeiner:

Delphi-Quellcode:

function RandomLine(Src: TStrings): string;
begin
  Assert(Assigned(Src), 'Keine Auswahlliste übergeben');
  Result := Src[Random(Src.Count)];
end;

[/edit]