#php
function lng_proc(parser:TParser; obj:pointer; index:integer; args:TArgs):TScData;
var utf_str, old_blk, s:string; i, k:integer;
begin
  case lng_indexer(index) of
    lng_BlockToUtf8:
    begin  
      old_blk := parser.codeb.Select(args.Values[0].toStr);
        for i := 0 to parser.codeb.Current.Count-1 do
        begin
          utf_str := AnsiToUtf8Ex(PScData(parser.codeb.Current.Items[i]).toCode, 1251);
          //if i = 0 then utf_str := 'п»ї' + utf_str;
          PScData(parser.codeb.Current.Items[i]).SetValue(utf_str, data_code); 
        end;
      parser.codeb.Select(old_blk);     
    end;