Zitat:
Rückgabewert der Funktion 'getNr' könnte undefiniert sein.
Na das Problem ist, wenn ein Zeichen der Funktion übegeben wird,
das nicht in der CASE OF schleife steckt, hat die Funktion keine
Rückgabewert., also machst Du es am besten so:
Code:
funktion getNR(c : CHAR): INTEGER;
BEGIN
result := 0; // Ergebniss initialisieren
case c of
'A', 'B', 'C': result := 2;
'D', 'E', 'F': result := 3;
...
end;
END;
------------
Zitat:
Inkompatible typen 'String und Integer'
na Du kannst keinen Integerwert an die Caption eines Labels übergeben.
mach es so Label1.caption := inttostr(getNR('a'));
gruss
Evian