переписать кусок кода

[fobass]

помогите переписать кусок из Delphi
код на delphi

PHP код:

  for i:=1 to 9 do
     begin
      str:=str + inttohex(ord(kast[i]),2);
     end; 


[Stilet]

for(int i=1;i<10;i++) str+=IntToHex(kast[i],2);

Учитывая что это под Борланд
Иначе нужно как-то так:

char s[20]={0};
sprintf(&s,"%2X%2X%2X%2X%2X%2X%2X%2X%2X",
 kast[1],kast[2],kast[3],kast[4],kast[5],kast[6],kast[7],kast[8],kast[9]
)

Учитывая что массив будет начинаться с единички.

[fobass]

Сообщение от Stilet

for(int i=1;i<10;i++) str+=IntToHex(kast[i],2);

Учитывая что это под Борланд
Иначе нужно как-то так:

char s[20]={0};
sprintf(&s,"%2X%2X%2X%2X%2X%2X%2X%2X%2X",
 kast[1],kast[2],kast[3],kast[4],kast[5],kast[6],kast[7],kast[8],kast[9]
)

Учитывая что массив будет начинаться с единички.

под Qt надо переписать. в Qt есть sprintf но в хелп не рекомендует его, буду копать arg()

Спасибо

[Stilet]

Ну тогда кажись itoa() еще умеет преобразовывать. Попробуй его.

[fobass]

код Delphi

for i:=1 to 5 do 
begin
    if (s[i]='0') or (S[i]='1') then
    begin
      r:=r+(Power(2,i*-1)*StrToInt(s[i]));
    end;
end;

где r := double;

код на Qt

QByteArray ss = s.toAscii();
    for (int(i) = 1; i <= 5; i++)
   {
        if ((ss.at(i-1) == QChar('0')) || (ss.at(i-1) == QChar('1')))
        {
            r += (pow(2, i*-1) * (int)ss[i-1]);
        }

    }

где r = double;
---
результат кода qt выдает не то, что нужно.

как можно переписать?

[fobass]

(int)ss[i-1]);

(int) конвертация берет код символов в ss[i-1]?

[fobass]

Все нормально, разобрался.