Из delphi в c++

[Barmsl]

Здравствуйте. Есть код на delphi помогите пожалуйста перевести его в С++

1 str :=Edit1.Text;
2 k:=Edit2.Text;
3 try
4 for i := 1 to length(str) do
5 begin
6 T := (Ord(str[ i ])+ (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0')));
7 if T >= 256 then dec(T, 256);
8 str[ i ] := Chr(T);
9 memo1.Text:=str;
10 end;
11 except MessageDlg('Внимание! Вы не правильно ввели текст или смещение',mtWarning    ,[mbOK  ],1);
12 end;

[Stilet]

А на какой из разновидностей Си тебе нужен перевод? Ближе всего тут подходит Билдер. Что-то вроде:

string str=Edit1->Text,k=Edit2->Text;
try{
 for(int i=1 to Length(str){
  t=str[i]+k[(i-1)%Length(k) + 1]-'0';
  t-=(t>=256);
  str[i]=t;
 }
}catch(){
 MessageDlg("Внимание! Вы не правильно ввели текст или смещение",mtWarning ,mbOK,1);
}

Это с потолка.

[Barmsl]

НА С++Bulder

[Stilet]

Ну тогда я скорее всего угадал )

[Barmsl]

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

Ну тогда я скорее всего угадал )

Спасибо все отлично.