Analyse von einem Edit Feld

[mkinzler]

Du könntest statt des case die Zahl aus dem ASCII-Code berechnen:

Delphi-Quellcode:

if Edit.Text[i] in 'A..Z' then
begin
    t[i] := ord(Edit.Text[i]-48); 
end;
if Edit.Text[i] in 'a..z' then
begin
    t[i] := ord(Edit.Text[i]-95); 
end;