Zufall

[Namenloser]

Delphi-Quellcode:

var
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  Stringlist.LoadFromFile(...);
  ShowMessage(StringList.Strings[random(StringList.Count)]); // Strings, nicht Lines. Lines wars glaub ich bei TMemo...
//  Oder:
//  ShowMessage(StringList[random(StringList.Count)]);
  StringList.Free;
end;

// Irgendwann beim Programmstart (z.B. FormCreate):
randomize;