Есть два массива с кодами заглавных символов английского и украинского алфавитов и ComboBox с двумя Items (EN, UA), в дальнейшем, в зависимости от выбора алфавита с помощью функции GetSymbolFromCode соответствующие символы будут присваиваться к примеру Label.Caption
- Код: Выделить всё
const en: array[1..26] of Integer = (65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90);
const ua: array[1..33] of integer = (192,193,194,195,165,196,197,170,198,199,200,178,175,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,220,222,223);
function TfrmMain.GetSymbolFromCode(aCode:Integer):String;
begin
Result:= CP1251ToUTF8(chr(aCode));
end;
Подскажите пожалуйста как в зависимости от выбора EN или UA передать имя массива в параметры процедуры или функции (на место aAlphabet).
- Код: Выделить всё
aLabel.Caption:= GetSymbolFromCode(aAlphabet[i]);
Спасибо.