Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Вниззапись текста в файл! Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c