Zufälligen Buchstaben anzeigen

[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