Zufall

[Uwe Raabe]

Zitat von Jan.R:

Wie muss ich das schreiben, damit keine Fehlermeldung, wie "Operator oder Semikolon fehlt!" erscheint???

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wörter: tstringlist;  // arbeitest du mit Delphi 2009? Ansonsten dürfen Variablen keine Umlaute haben!
  wort1: string; 
  wort2: string;
begin
  randomize;
  wörter := tstringlist.create;
  wörter.loadfromfile ('wörter.txt');
  wort1 := wörter [0];
  wort2 := wörter [1];
  label2.caption := vokabeln (random);  // Vokabeln ist nirgends definiert, also kennt der Compiler es nicht!
end;

So könnte was draus werden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  woerter: tstringlist;
begin
  randomize;
  woerter := tstringlist.create;
  try
    woerter.loadfromfile ('wörter.txt');

    { Nimm ein zufälliges Wort aus der Liste. 
      Random(N) liefert eine Zahl von 0 bis N-1 }
    label2.caption := woerter[random(woerter.count)];
  finally
    woerter.Free;
  end;
end;

[edit] Hatte das Free ganz vergessen...