Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Вниз
никто не делал лабу Найти похожие ветки
← →
Nest (2002-02-08 11:43) [4]wicked ©
anod ©
Кароче надо:
1)загружаешь в мемо1 файл c текстом "abc"
2)Жмём "кодировать" получаешь в мемо2 текст "bcd"
3)Жмём "раскодировать" получаем в мемо3 "abc"
Пытался так:
procedure TForm1.Button1Click(Sender: TObject);
begin
src:=memo1.text;
coded:="";
for i:=0 to length(src) do
coded:=coded+chr(ord(src[i])+1);
memo2.text:=coded;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
encoded:="";
for i:=0 to length(coded) do
encoded:=encoded+chr(ord(coded[i])-1);
memo3.text:=encoded;
end;
Но получается такая бодяга:
Исходный текст: abc
Закодированный текст: bcd
Разкодированный: я
Как сделать?
(С одним символом получается вроде)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c
