[roamer]

Только сейчас обнаружил вот такое в Delphi 2009.

Объявляю:

Код:

//-------------------------------------
function ПолучитьЗначение() : widestring;
Const
  МояКонстанта = 'Привет';
Var
  МояПеременная : integer;
begin
  МояПеременная:=999;
  Result:=МояКонстанта + ' : ' +UIntToStr(МояПеременная);
end;
//-------------------------------------

И все "это" работает:

ShowMessage(ПолучитьЗначение());


Похоже, что скоро мы будем наблюдать исходники на :

Русском, Корейском, Арабском, Английском и прочее, прочее, прочее.