Zufällige Begrüßung

[ssach]

hy,

also eine andere lösung wäre mit einer TListBox wo du in jede Zeile eine Begrüssung reinschreibst! natürlich stelst du die Eigenschaft visible auf false!

zuerst musst du randomize bei deiner Form in den Event ONCreate schreiben,und dann die Begrüssung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
S : string;
begin
   randomize;  //nicht jedesmal die gleiche Begrüssung

   //eigentlicher code
   S := lbTexte.Items[random(lbTexte.Items.Count - 1)];
end;

in diesem beispiel ist lbTexte die Listbox in der deine Begrüssungen gespeichert sind, und in S hast du jetz deine Begrüssung stehen und kannst damit mach was du willst!

hoffe konnte dir helfen

cu