Worte-wechsler

[p80286]

Damit es sich wirklich bei jedem Click ändert:

Delphi-Quellcode:

var
  altrw : integer;

procedure TForm1.Button2Click(Sender: TObject); 
const
  rw : integer; 
  txt: array[0..5] of string = ('Fisch','Eidechse','Vogel','Schwuppi','Lurchi','Hansi'); 
begin 
  repeat
    rw:=Random(Length(txt));
  until rw<>altrw;
  Edit1.Text := txt[rw];
  altrw:=rw; 
end;

Altrw ist zwar eine globale Variable aber man kann sie ja auch in das Form verbannen.
Bei Detlefs Lösung kann es so aussehen als würde der Text nicht geändert, da die gleiche Zufallszahl zweimal nacheinander kommt.

Ähm was möchtest Du denn jetzt?

Etwa so ähnlich?

Delphi-Quellcode:

txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey';
txt := 'Hase-Maus-Hund-Dogge-Bunny-Mickey';
txt := 'Dogge-Hase-Hund-Maus-Bunny-Mickey';

Gruß
K-H

/edit zu spät!