перевести с Js на delphi пару строк ога

[flesyyykkk]

сабж

		var utf_1 = parseInt(X.substring(0, 2), 16) - (Y * 2);
		var utf_2 = parseInt(X.substring(2), 16) - (Y * 2);
		utf_1 = utf_1.toString(16);
		utf_2 = utf_2.toString(16);
		utf_1 = utf_1.substring(1) + utf_1.substring(0, 1);
		utf_2 = utf_2.substring(1) + utf_2.substring(0, 1);

всем мир

[astecenko]

В Delphi необходимо явно указывать тип переменной, так что один к одному перевести не получится. Если исходить из того что X имеет тип string, Y - тип integer то данный код можно записать как-то так так

var
  utf_1, utf_2: Integer;

  function HexToInt(const aHex: string): Integer;
  begin
    Result := StrToInt('$' + aHex);
  end;

  procedure TrimLeftZero(var aString: string);
  var
    i: integer;
  begin
    if aString <> '' then
    begin
      i := 1;
      while (i <= Length(aString)) and (aString[i] = '0') do
        Inc(i);
      if (i > 1) and (i <= Length(aString)) then
        aString := Copy(aString, i, Length(aString) - pred(i))
      else if i > Length(aString) then
        aString := '';
    end;
  end;

  function Raschet(const Vhod:Integer):Integer;
  var
    s:string;
  begin
    s:=IntToHex(Vhod, 8); //utf_1 = utf_1.toString(16);
    TrimLeftZero(s);
    s:=Copy(s,2,pred(Length(s)))+s[1];
    Result:=HexToInt(s)
  end;

begin
  utf_1 := HexToInt(Copy(x, 1, 2)) - (Y * 2);//var utf_1 = parseInt(X.substring(0, 2), 16) - (Y * 2);
  utf_2 := HexToInt(Copy(x, 3, Length(x)-2)) - (Y * 2);//var utf_2 = parseInt(X.substring(2), 16) - (Y * 2);
  utf_1:=Raschet(utf_1);
  utf_2:=Raschet(utf_2);
end;

Если X число то предварительно преобразуйте его в строку с 16-ым представлением с помощью IntToHex

[flesyyykkk]

astecenko,
X изначально строка примерно такого вида 030F
Спасибо, попробую..

[GunSmoker]

По-моему, что-то вроде такого:

var
  X: String;
  Y: Integer;
  utf_1, utf_2: String;
begin
  X := '030F';
  Y := ???;

  utf_1 := IntToHex(StrToInt('$' + Copy(X, 1, 2)) - Y * 2, 2);
  utf_2 := IntToHex(StrToInt('$' + Copy(X, 3, 2)) - Y * 2, 2);

  utf_1 := utf_1[2] + utf_1[1];
  utf_2 := utf_2[2] + utf_2[1];
end;