öhm ... nun ja, Luckie hatte da sicher etwas anderes im Sinn ... irgendwie, dass die TStringList etwas langlebiger sein würde.
Denn ansonsten nimmt man so was
Delphi-Quellcode:
function GetRandomStr( const AStrArr : array of string ) : string;
begin
Result := AStrArr[ Random( High( AStrArr ) + 1 ) ];
end;
und so benutzt man das dann (auf deine Situation zugeschnitten)
Delphi-Quellcode:
Label9.Caption :=
GetRandomStr( ['Zufallstring1', 'Zufallstring2', 'Zufallstring3'] );
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)