Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C/C++: Для новичков > из c в delphi

Автор: GreedyFly 10.7.2013, 03:46

доброй ночи!!!

Не пойму как перевести в Дельфи данный код:

len = hex2byte(str);
    for(i = len - 1; i >= 0; i--) {
        for(j = 0; j < len; j++) {
            if(i == j) continue;
            str[i] = (str[i] - str[j]) - j;

Автор: bsa 10.7.2013, 11:14

Как-то так:

Код

len = hex2byte(str);
for i = 1 to len
begin
   x = len - i;
   for j = 0 to len - 1
   begin
      if x <> j then
         str[x+1] = Chr(Ord(str[x+1]) - Ord(str[j+1]) - j);
   end;
end;