Zufallsnamen erzeugen...

[phlux]

Hi!
Also mal ein grobes Code Beispiel:

Delphi-Quellcode:

//Global definierst du dir 3 Arrays, diese müssen global deklariert sein weil man sie sonst vorher nicht initialisieren kann
var
  Silbe_Anfang: Array[0..2] of String = ('am','zum','ent');
  Silbe_Mitte: Array[0..2] of String = ('put','bei','fern');
  Silbe_Ende: Array[0..2] of String = ('ieren','spiel','en');

//Dann irgendwo im Form.OnCreate event einmal Randomize ausführen
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

//Schließlich auf Knopfdruck Zufallswörter generieren

procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: Integer;

begin
  //Label leeren
  Label1.Caption := '';
  //Zufallszahl erzeugen
  i := Random(2);
  //Mit Zflszahl Silbe aus dem Array auslesen und Label.Caption hinzufügen
  Label1.Caption := Label1.Caption + Silbe_Anfang[i];
  j := Random(2);
  Label1.Caption := Label1.Caption + Silbe_Mitte[j];
  k := Random(2);
  Label1.Caption := Label1.Caption + Silbe_Ende[k];
end;