Thema: Delphi Zufällige Begrüßung

Einzelnen Beitrag anzeigen

ssach

Registriert seit: 9. Dez 2002
Ort: schleiwenhaff
99 Beiträge
 
Delphi 6 Professional
 
#8

Re: Zufällige Begrüßung

  Alt 7. Aug 2003, 13:10
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
Greissen all d'Letzebuerger !!
  Mit Zitat antworten Zitat