Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток. Хотел кое что узнать. я перешел с Delphi 7 на Embarcadero RAD Studio XE2 и решил воссоздатьшифратор в более красивом оформлении. но не смог достич нужного результата. после шифрации текста и вывода его в Memo, в поле появляются различные квадраты и- то есть программа не может их прочитать. и символы совершенно отличающиеся от тех, что были на такой же программе в delphi 7. так вот , что я хотел узнать, как сделать так чтобы поле Memo вновь нормально фунционировала и поддерживала все иероглифы. кому надо код функции:

 procedure TForm4.btn1Click(Sender: TObject);
var s,xxx,pass: string;
I,j,h,b,c,d: Integer;
begin
memo2.Text:='';
s:=memo1.lines.Text;
i:=Length(s);
pass:=edt1.Text;
j:=Length(pass);
h:=Round(i/j);
for b:=1 to i do
pass:=pass+pass;
pass:=Copy(pass,1,i);
for b := 1 to i do
begin
if (Ord(s[b]))-(ord(pass[b]))>255 then
memo2.lines.Text:=memo2.lines.Text+chr(ord(s[b])+ord(pass[b])-255)
else
memo2.lines.Text:=memo2.lines.Text+chr(ord(s[b])+ord(pass[b]));
end;
 
end;

Вопрос задал: skew (статус: Посетитель) Вопрос отправлен: 24 мая 2012, 18:12 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Страницы: [« Предыдущая] [1] [2]

Мережников Андрей (статус: Абитуриент), 26 мая 2012, 20:46 [#21]: Цитата (skew): а в крации Неужели трудно догадаться почему все указывают на это слово? Заглянуть в словарь и посмотреть, что такого слова в русском языке нет, правильно пишется: вкратце (упс)

min@y™ (статус: Доктор наук), 26 мая 2012, 22:21 [#22]: Цитата (Мережников Андрей): правильно пишется: в кратце А ещё правильнее - "вкратце". Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.