Zufälligen Buchstaben anzeigen

[Sharky]

Zitat von Khabarakh:

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
begin
  Edit1.Text:=Chr(Random(Ord('Z')-Ord('a'))+Ord('a'));
end;

Hai Khabarakh,

bist Du dir da sicher mit deinen "ORDs"? Da kommen doch sicher etwas falsche Buchstaben raus

Edit:
So wäre es glaube ich besser
 Edit1.Text := Edit1.Text + Chr (Random (56) + 64 + 1);