#pas
function StringToCode(const s:string):string;
var i:integer; intostr:bool;
begin
  if Length(s) > 254 then begin
    Result := 'PChar(LoadResData(''' + cgt.resAddStr(PChar(s)) + '''))';
    exit;
  end;
  Result := 'PChar(';
  intostr := false;
  for i := 1 to Length(s) do
    if ord(s[i])<32 then begin
      if intostr then Result := Result + '''';
      Result := Result + '#' + Int2Str(ord(s[i]));
      intostr := false;
    end else begin
      if not intostr then Result := Result + '''';
      if s[i]='''' then Result := Result + '''';
      Result := Result + s[i];
      intostr := true;
    end;
  if intostr then Result := Result + '''';
  Result := Result + '#0)';
end;

#pas
function StringToCode(const s:string):string;
var i:integer; intostr:bool;
begin
  if Length(s) > 254 then begin
    Result := 'PChar(LoadResData(''' + cgt.resAddStr(PChar(s)) + '''))';
    exit;
  end;
  //Result := 'PChar(';
  Result := '';
  intostr := false;
  for i := 1 to Length(s) do
    if ord(s[i])<32 then begin
      if intostr then Result := Result + '''';
      Result := Result + '#' + Int2Str(ord(s[i]));
      intostr := false;
    end else begin
      if not intostr then Result := Result + '''';
      if s[i]='''' then Result := Result + '''';
      Result := Result + s[i];
      intostr := true;
    end;
  if intostr then Result := Result + '''';
  //Result := Result + '#0)';
  if Result = '' then Result := '''''';
end;