random mit buchstaben und sonderzeichen

Beiträge: 287 XP SP2 Delphi 7

ich will das die random funktiion einen zufälligen buchstaben in ein editfeld packt.
das gleiche mit sonderzeichen.
mit zahlen gehts ja so

markieren

Delphi-Quelltext

1:	edit1.text:=inttostr(random(500))

aber ich hab keine ahnung wie das mit sonderzeichen und buchstaben klappt

dummzeuch · Verfasst: Mi 12.12.07 18:51

110022 hat folgendes geschrieben:

ich will das die random funktiion einen zufälligen buchstaben in ein editfeld packt.
das gleiche mit sonderzeichen.
mit zahlen gehts ja so

markieren

Delphi-Quelltext

1:	edit1.text:=inttostr(random(500))

aber ich hab keine ahnung wie das mit sonderzeichen und buchstaben klappt

Versuch's mal mit

markieren

Delphi-Quelltext

1:	edit1.Text := Chr(Random(256));

twm

Beiträge: 287 XP SP2 Delphi 7

und wie geht das für buchstaben alleine?

coder62 · Hält's aus hier Beiträge: 29

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var buchstabe:string;
    randomzahl:shortint;
begin
randomize;
buchstabe:= Char(RandomRange(65, 91));
randomzahl:=RandomRange(0,2);
if(randomzahl=1) then
  buchstabe:=LowerCase(buchstabe);
edit1.text:=buchstabe;
end;

das wären nur Buchstaben Gross- und Kleinbuchstaben.

Musst du unter uses "Math" einfügen.

Marc. · Verfasst: Mi 12.12.07 19:18

Ohne die Mathe Unit gehts auch einwandfrei und kürzer:

markieren

Delphi-Quelltext

1:
2:
3:
4:

const
 l: array[0..1] of Byte = (65,97);
begin
 s := chr(random(26)+ l[random(2)]);

ASCII Großbuchstaben beginnen ab 65, Kleinbuchstaben 97 aufwärts.

cu
Marc

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme