Только сейчас обнаружил вот такое в Delphi 2009.
Объявляю:
Код:
//-------------------------------------
function ПолучитьЗначение() : widestring;
Const
МояКонстанта = 'Привет';
Var
МояПеременная : integer;
begin
МояПеременная:=999;
Result:=МояКонстанта + ' : ' +UIntToStr(МояПеременная);
end;
//-------------------------------------
И все "это" работает:
ShowMessage(ПолучитьЗначение());
Похоже, что скоро мы будем наблюдать исходники на :
Русском, Корейском, Арабском, Английском и прочее, прочее, прочее.