Case of komrpimieren

[Chrissi91]

Hi,

wie ging das gleich noch, wenn man nicht alles tippen will?

Delphi-Quellcode:

case Random(62) of
  0: S := 'A';
  1: S := 'B';
  ...
  26: S := 'a';
  27: S := 'b';
  ...
  52: S := '0';
  53: S := '1';
  ...
end;

Ich habe keine Lust von 0 - 61 alles hinzuschreiben. Hatte schonmal eine kürzere Möglichkeit gelesen, aber wie ging die noch gleich? :lol:

[DGL-luke]

Ehm... suchst du Ord und Chr?

[freak4fun]

Du kannst da was zusammenfassen:

Delphi-Quellcode:

Zahl := Random(62);
case Zahl of
  0..25: S := Char(Zahl + ASCII-Wert);
  26..51: S := Char(Zahl + ASCII-Wert);
  52..61: S := Char(Zahl + ASCII-Wert);
end;

Schau dir dazu mal die Werte in der ASCII-Tabelle an. ;)

[Namenloser]

Du könntest auch mit einem Array arbeiten.

Delphi-Quellcode:

const
  chars: array[0..61] of char = ('A','B','C','D',...,'a','b',...,'0','1,'2'...);
...
  char = chars[random(62)];