Цитата:
|
Сообщение от Alegun
Код:
procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.Text:= Encrypt(Memo1.Text, StartKey, MultKey, AddKey);
end;
|
Такая штука не катит вообще большая часть текста уходит в некуда)
а насчет твоего кода 99г то у меня выдает ошибку "[Error] Unit1.pas(68): Undeclared identifier: 'RandomRange'" мб он уже как то по другому пишется,или бблка нужна какая,я нуб просто))