Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Що то я не бачу [D6, Win2k]

HDD © (2002-04-24 17:22:00)
var
s: string;

procedure Code(var text: string; password: string;
decode: boolean);
var
i, PasswordLength: integer;
sign: shortint;
begin
PasswordLength := length(password);
if PasswordLength = 0 then Exit;
if decode
then sign := -1
else sign := 1;
for i := 1 to Length(text) do
text[i] := chr(ord(text[i]) + sign *
ord(password[i mod PasswordLength + 1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s := Memo1.Text;
code(s, Edit1.Text, false);
Memo1.Text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s := Memo1.Text;
code(s, Edit1.Text, true);
Memo1.Text := s;

Что-то не пойму шифрую всё ок! Начинаю расшифровку она расшифровывает но не до конца и появляются какие-то "левые" символы! Помогите плиз

HDD (2002-04-25 14:26:00) [1]
Спасибо я допер нужно просто
RichEdit1.Text

Song (2002-04-25 10:38:00) [2]
RichEdit1.PlainText:=S;

HDD (2002-04-25 09:03:00) [3]
А можно в Richedit?

Anatoly Podgoretsky (2002-04-25 08:49:00) [4]
Вот подробнее Memo1.Text := s;

HDD (2002-04-25 00:11:00) [5]
А можно чуть подробнее!

Anatoly Podgoretsky (2002-04-24 17:36:00) [6]
Нельзя двоичные симводы посылатьв Memo

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »