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

[napstar]

hey..
ich hab mal seit langem wieder delphi installiert und programmier grade vor mich hin ^^..
nur hab ich da mal ne frage.. und zwar habe ich 10 variablen (string´s).. und einen label...
gehen wir mal davon aus dass die variablen var1 var2 var3 usw heißen..
wie bekomme ich es hin dass mein label z.b. jede halbe sekunde.. eine andere variable zugewiesen bekommen..
das mit den schleifen habe ich noch nie so richtig drauf gehabt.. ich bin über jede hilfe dankbar.. :)
mfg napstar :)

[Luckie]

Pack die Texte in eine Stringliste und wähle mit Random eine aus in einen Timer.

[napstar]

danke für die schnelle antwort.. es hat funktioniert :)
für alle die das selbe prob hatten..
bitteschön

Code:

  var:=TStringList.Create;
  var.Add('zufallsstring1');
  var.Add('zufallsstring2');
  var.Add('zufallsstring3');
  Label9.Caption:=var[Random(3)];
  var.Free;

[Sir Rufo]

ö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'] );

[napstar]

war nur ein beispiel..
meine strings sind alle mindestens 5 buchstaben lang...
und sind über 10 variablen..
aber trotzdem thx für deine hilfe :)