Скачать: CL | DM;

запись текста в файл!   Найти похожие ветки 

← →
johnym   (2003-05-28 13:00) [0]

Здравствуйте Уважаемые мастера, прошу не судите строго!

Надо сохранить текст из компонента memo в файл
но так чтобы он был нечитаемы!
Есть ли какойнибудь простой вариант. а то сложных и так хватает!

---

← →
Palladin ©   (2003-05-28 13:05) [1]

простой это тебе всмысле что бы одной строчкой сделать можно было?

---

← →
pasha_golub ©   (2003-05-28 13:17) [2]

procedure TForm.SaveToFile(Name: TFileName);
var
len, i: integer;
s: string;
begin
s := Memo1.Text;
len := length(s);
for i:= 1 to len do
s[i] := s[i] xor 25;
Memo1.Text := s;
Memo1.SaveToFile("text.txt");
end;

---

← →
johnym   (2003-05-28 13:17) [3]

нет просто чтобы он выглядел не читабельным!
чтото вроде бинарного файла.
есть ли у функции assignfile тип файла данные и как он будет записывать текст!

---

← →
KoluChi ©   (2003-05-28 13:19) [4]

Пиши по Random - точно будет не читаемым :)
а если нужна простая защита, смотри здесь
http://www.delphimaster.ru/articles/saveparam/index.html

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c