ja bei "Buchstabe" muss der Buchstabe rein
beispiel:
Code:
funktion getNR(c : CHAR): INTEGER;
BEGIN
case Ord(c)of
65,66,67: result := 2;
68,69,70: result := 3;
...
end;
END;
Form1.buttonclick(Sender: Tobject);
BEGIN
Label1.caption := getNR('A');
END;
zum leichteren Verständniss könntest Du es auch so machen:
Code:
funktion getNR(c : CHAR): INTEGER;
BEGIN
case c of
'A', 'B', 'C': result := 2;
'D', 'E', 'F': result := 3;
...
end;
END;
Form1.buttonclick(Sender: Tobject);
BEGIN
Label1.caption := getNR('A');
END;
gruss
Evian