хочу сделать простой шифровщик и дешифровщик.
вот мой код.но при нажатии на кнопку прогамма зависает и выдаёт ошибку.где моя ошибка.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char symbol;
int code;
for (int i=0;i<Edit1->GetTextLen();i++){
symbol = Edit1->Text[i];
code = (int) symbol +1;
Memo1->Text=Memo1->Text+ (char)code;
}
}