Zufällige Begrüßung

[Uncle Cracker]

Wie kann ich das anstellen?

Also bei jedem Start soll eine andere zufällige begrüßung kommen.

Zum Beispiel: 'Hallo';'Guten Morgen';'Guten Tag';usw.

Es soll aber Zeit unabhängig Begrüßung wild durch einander ausgegeben werden.

ISt bestimmt über Random möglich, hab's aber irgenwie nicht hingekriegt.

Vielleicht kann mir jemand helfen?


Danke UC

[CalganX]

Wie wäre es mit einem Array?

Den Rest solltest du hinbekommen (von wegen DeinArray[ DeineRandomZahl ] ).

Chris

[Pseudemys Nelsoni]

wäre es untereinander in einer stringlist oder so hätt ich Random(0, die menge der einträge)

[negaH]

Beim Anwendungsstart muß aber dann Randomize aufgerufen werden, damit nicht jedesmal die gleiche Begrüßung zum Start kommt.

Gruß Hagen

[Uncle Cracker]

Und wie wäre eurer Meinung nach der Code dazu?

[Jan]

Und wie wäre eurer Meinung nach der Code dazu? <- hmm.. warum fragst du nicht gleich nach nem fertigen Programm?
Soviel sollte man mal versuchen selber hinzubekommen, die Delphi-Hilfe wird dir dabei mit Sicherheit behilflich sein. Einfach mal nach Array, oder Stringlist suchen (wie es dir gefällt) und dann noch nach random, das sollte dir soviel Informationen liefern, dass du damit selber zurechtkommst.
Gruß
Jan

[Dannyboy]

Delphi-Quellcode:

Function RandomText : String;
CONST max = 10;
VAR 
    MyText : Array[0..max-1] of String;
    Number : Byte;
begin
  randomize;
// hier muss das Array mit Sprüchen gefüllt werden, das kriegst 'de hin.
//  
//  
//   
// Und nun wird ein zufälliger Spruch dem Result übergeben
  Number:= Random(max);  // Intervall zwischen 0 und max-1 !
  Result:= MyText[Number];  
end;

Das ist nur eine von vielen Möglichkeiten. Kannst das auch mit
einem TMemo-Objekt machen. 8)

[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

[ssach]

Sorry, es hat sich ein FEhler im Code eingeschlichen, den richtigen wert fur S bekommst du mit

S := lbTexte.Items[random(lbTexte.Items.Count)]; die - 1 war zuviel!

cu

[Jan]

Und wieder wurde der Lerneffekt vernichtet und sogar falsches beigebracht. tztztz....


randomize; kommt in das Form.create, denn es sollte nur einmal beim beginn der application ausgeführt werden, sonst bekommt man keine Zufallszahlen.
weiterhin empfihlt es sich, nicht so wie da den array erst in der function zu füllen, sondern man sollte ihn direkt mit den fertigen Werten initialisieren.

Soviel von mir.
Gruß
Jan

*edit by jan*--mein Comment bezieht sich auf den von Dannyboy--*/edit*