Program XXX;
{$ifdef FPC} {$APPTYPE GUI} {$endif}
{$R allres.res}

uses windows,kol;

type
  TSDK_0 = object
    private
      frm2:PControl;
      btn3:PControl;
      
      procedure btn3_onClick(Obj:PObj);
    public
      
  end;

procedure TSDK_0.btn3_onClick;
begin
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
  MessageBox(frm2.Handle, PChar(555), PChar('hiasm msg'), MB_OK);
end;

var
  SDK_0:TSDK_0;

begin
  with SDK_0 do begin
    Applet := NewApplet('');
    frm2 := NewForm(Applet,'Form');
    frm2.width := 300;
    frm2.height := 200;
    btn3 := NewButton(frm2, 'Btn');
    btn3.left := 10;
    btn3.top := 10;
    btn3.onClick := btn3_onClick;
    Run(Applet);
  end;
end.

  println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PChar(', e_str(Text), '), ', 'PChar(\'hiasm msg\'), MB_OK);')[/code]

      if (prop <> -1) {and(fData._data_saved_.GetSubType <> data_null)} then[/code]

дописываем direct.inc\_toCode вот так:
   case toType of
     data_str:
      case data.getType of
       data_int: Result := MakeData(data.toStr);
      end;
   end;

и получаем автоматическую конвертацию констант без всяких там e_str...

[size=-2]------ Добавлено в 16:49 [/size]
вот еще одна задача, над которой надо подумать: скажем располагаю я тремя пакетами FTCG - WEB, Delphi2 и Modules. Все три пакета имеют следующие пересечения:
- WEB, Delphi2 и Modules используют элементы кодогенератора с соответствующей вкладки
- WEB и Modules - используют элементы, генерирующие код для языка javaScript
- Delphi2 и Modules - используют элементы, генерирующие код для языка Object Pascal.

т.е. получаем кучу копий одного и того же в разных пакетах. Проблема усложняется еще и тем, что копировать файлы нельзя, т.к. скажем For пакета WEB кроме реализации под JavaScript содержит еще и PHP+HTML, которые в Modules не нужны... Получаем некоторое дублирование работы...

function _toCode(data:PScData; toType:byte):PScData;
begin
   Result := data;
   case toType of
     data_str:
      if data.getType <> data_code then
        Result := MakeData(data.toStr)
      else
      case data.getSubType of
       data_int:
        begin
          Result := MakeData('int2str(', true);
          Result.AddValue(data, true);
          Result.AddValue(MakeData(')', true), true);
        end;
       data_real:
        begin
          Result := MakeData('str2double(', true);
          Result.AddValue(data, true);
          Result.AddValue(MakeData(')', true), true);
        end;
      end;
...

   case toType of
     data_str:
      case data.getSubType of
        ...
        data_null: Result := MakeData(data.toStr)
     end;
    ...
   end;