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

[alcaeus]

Euch ist hoffentlich klar dass man das noch einfacher machen koennte:

Delphi-Quellcode:

var c: Char;
begin
  for c := 'A' to 'Z' do //...
end;

Das erspart euch das dumme chr-Gefummel.
@DGL_Luke:

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to 9 do
    alpha[x] := IntToStr(i)[1];
end;

Chr und Ord werden bei solchen Aufgaben gar nicht benoetigt.

Greetz
alcaeus