Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Label.Caption mit einer zufälligen variable füllen..

  Alt 5. Mär 2013, 22:17
ö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)
  Mit Zitat antworten Zitat