Zufälligen Buchstaben anzeigen

[Äfan]

Hi,

Wie kann ich es machen, dass wenn ich auf den Button klicke, in Edit ein zufälliger buchstabe eigefügt wird ?

MFG

[Sharky]

Hai Äfan,

mit Random einen passende Zahl (ASCII-Code) erzeugen und mit Chr in einen Buchstaben umwandeln.

[Khabarakh]

Delphi-Quellcode:

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

Im FormCreate noch randomize aufrufen.
Wohlgemerkt ohne Sonderzeichen

EDIT: Ich hab mir vielleicht 5 Sekunden den Beitrag durchgelesen und du hast gleichzeitig die Antwort geschrieben .

[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);

[Äfan]

Also bei beiden beispielen, stürzt mein prog ab und es kommt ein CPU fenster

[Duffy]

Hallo Äfan,
hier mal eine Demo dazu ...

bye
Claus

[Äfan]

@Duffy: thx

Aber wenn ich ein eigenes Programm mache und diesen code einbaue, kommt ein fehler:

Bild (verlinkt weil zu groß)

MFG

[Sharky]

Hast Du noch andere Komponenten auf der Form?

Hier mal ein anderer Code um Buchstaben (A..Z,a..z) zu erzeugen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  buchstabe : String;
begin
  buchstabe := Chr((Random (26) + 65));
  if (Boolean(Random(2))) then
  begin
    buchstabe  :=LowerCase (buchstabe);
  end;
  Edit1.Text := Edit1.Text + buchstabe;
end;

[Binärbaum]

So ist es vielleicht besser:

Delphi-Quellcode:

function Buchstabe(asUpperCase: Boolean): Char;
begin
  if asUpperCase then
    Result:=Chr( Random(Ord('Z')-Ord('A')+1) +Ord('A') )
  else
    Result:=Chr( Random(Ord('Z')-Ord('A')+1) +Ord('a') );
end;
...
procedure Button1Click(Sender: TObject);
begin
  Randomize; 
  Edit1.Text:=Buchstabe(True);
end;

Das +1 in Random muss sein,da sonst nur Buchstaben bis y erzeugt werden.

MfG
Binärbaum

[Äfan]

Mit Binärbaum's code gehts.