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