Search options (Page 2 of 15)

var
...
  Control:TControl;
...
  for i := tmpParent.ControlCount - 1 downto 0 do
  begin
    Control :=  tmpParent.Controls[i];
    Control.Parent := Form1;
    Control.Free;
  end;

    SendMessage(TWinControl(tmpParent.Controls[i]).Handle, WM_CLOSE ,0,0);
    tmpParent.Controls[i].Free;

function Utf8ToWinCP(s:string):string;
var sc:variant;
begin
  sc:=CreateOleObject('ScriptControl');
  sc.Language := 'JavaScript';
  sc.reset;
  sc.AddCode(
    'function Utf8ToWinCP(s){'+
    'var stream = new ActiveXObject("ADODB.Stream");'+
    'stream.mode = 3;'+
    'stream.type = 2;'+
    'stream.charset = "UTF-8";'+
    'stream.open();'+
    'stream.writeText(s);'+
    'stream.position = 0;'+
    'stream.charset = "Windows-1251";'+
    'return stream.readText();'+
    'stream.close();'+
    '}'
  );
  result := sc.Run('Utf8ToWinCP',s);
  sc:=0;
end;


function WinCPToUtf8(s:string):string;
var sc:variant;
begin
  sc:=CreateOleObject('ScriptControl');
  sc.Language := 'JavaScript';
  sc.reset;
  sc.AddCode(
    'function WinCPToUtf8(s){'+
    'var stream = new ActiveXObject("ADODB.Stream");'+
    'stream.mode = 3;'+
    'stream.type = 2;'+
    'stream.charset = "Windows-1251";'+
    'stream.open();'+
    'stream.writeText(s);'+
    'stream.position = 0;'+
    'stream.charset = "UTF-8";'+
    'return stream.readText();'+
    'stream.close();'+
    '}'
  );
  result := sc.Run('WinCPToUtf8',s);
  sc:=0;
end;

var s:string;
//...
  s := Utf8ToWinCP('Привет'); 

  ShowMessage(s); // Привет
  ShowMessage(length(s)); // 15

  s := WinCPToUtf8(s);

  ShowMessage(s); // Привет
  ShowMessage(length(s)); // 6