Що то я не бачу

← →
HDD © (2002-04-24 17:22) [0]

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;

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

← →
Anatoly Podgoretsky © (2002-04-24 17:36) [1]

Нельзя двоичные симводы посылатьв Memo

← →
HDD © (2002-04-25 00:11) [2]

А можно чуть подробнее!

← →
Anatoly Podgoretsky © (2002-04-25 08:49) [3]

Вот подробнее Memo1.Text := s;

← →
HDD © (2002-04-25 09:03) [4]

А можно в Richedit?

RichEdit1.PlainText:=S;

Спасибо я допер нужно просто
RichEdit1.Text

Що то я не бачу Найти похожие ветки