Losowanie litery

0

Jak wylosowac litere (wielka lub mala)?? Zwracac moze char lub string...

0 
function Literka: Char;
var
 Litery: String;
begin

Litery := 'ABCDEFGHIJKLMNOPQRSTUVWXYZĄĆĘŁŃŚÓŻŹabcdefghijklmnopqrstuvwxyząćęłńśóżź';

  Result := Litery[Random(Length(Litery)-1) + 1];

end;
  • Randomize w OnCreate;
0

Prościej przez CHR + F1

0

Chr() losuje nie tylko litery. Musiałbys określic kilka przedziałów z których miałby losować. Litery są w przedziałach: 65-90 (duże), 97-122 (małe), a do tego polskie znaki są porozrzucane w różnych miejscach.

1 użytkowników online, w tym zalogowanych: 0, gości: 1