Random Text Ausgabe

[Dax]

Delphi-Quellcode:

var list: TStrings

list := TStringList.Create;
list.LoadFromFile(deineDatei);

Randomize;
Label1.Caption := list[Random(list.Count)];

list.Free;