Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Memo   Найти похожие ветки 

 
KEBZ   (2004-12-11 23:49) [0]

Как создать зашифрованный текстовы файл. Чтоб грузить с отуда текст в Memo.


 
BURN ©   (2004-12-12 01:40) [1]

На закладке Indy Misc есть компоненты IdCoderUUE, IdCoderXXE, IdCoder64E ("64", "UU", "XX") с их помощью можно шифровать, а если их использовать вместе то можно очень хорошовсе запутать.

procedure TForm1.Button1Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo2.Clear;
rs:= IdEncoderXXE1.EncodeString(Memo1.Text);
rs:=(fetch(rs,";"));
memo2.Text:=fetch(rs,";");
end;

procedure TForm1.Button2Click(Sender: TObject);
var rs:string;
   ri:integer;
begin
memo3.Clear;
rs:=IdDecoderXXE1.DecodeString(memo2.Text);
rs:=(fetch(rs,";"));
memo3.Text:=fetch(rs,";");
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo2.Lines.SaveFromFile("C:\xXx.dat");
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.LoadFromFile("C:\xXx.dat");
end;


 
KEBZ   (2004-12-13 10:18) [2]

Сенкс



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1103043162
denis24
2004-12-14 19:52
2004.12.26
form.oncreate


1-1102693122
_Дельфин_
2004-12-10 18:38
2004.12.26
Как сделать прозрачным фон TAnimate?


3-1101468024
ВицеЧайник
2004-11-26 14:20
2004.12.26
SQL возвращает Null


1-1102489974
snake1977
2004-12-08 10:12
2004.12.26
Наследник от TCustomComboBox


9-1093486007
Xerx
2004-08-26 06:06
2004.12.26
Формат моделей