Einem Array A-Z u. a-z u. 0-9 zuweisen!

[BenBE]

Delphi-Quellcode:

const
    AlphaNum = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
var
    Arr: Array of Char;
begin
    SetLength(Arr, Length(AlphaNum));
    Move(AlphaNum, Arr[0], Length(AlphaNum));
end;