запись текста в файл!

← →
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 тип файла данные и как он будет записывать текст!

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

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