Здравствуйте!
Помогите пожалуйста для моего случая найти какую-то альтернативу для case или подскажите, что я должен сделать с ним, чтобы эта зараза работала. Видите ли ему нужны ordinal types, то есть проверить, равна ли переменная числу мы можем, а вот проверить равность какой-то строке не получается, тут только многострочным if..else приходится..

Хотя, все несколько проще. На функцию пришла строка в виде одного символа или буквы.. Надо определить, чему она там равна и вывести результат; на каждый символ результат разный.

Например:

---------------
function TForm1.ABC(c:string):string;
begin
case с of
'A': begin .. end;
'B': begin .. end;
...
'Z': begin .. end;
end;
end;
------------

переход на pchar не получился, все равно где-нибудь ругается..
помогите, пожалуйста все поставить на места, мне ужасно лень набирать кучу ифов и их элсов.. но если надо, то придется..