![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение данных [D6, WinXP]
Роман © (2004-11-02 11:36:00)Уважаемые знатоки.
Долгие споры на http://delphimaster.ru/cgi-bin/forum.pl?id=1099288052&n=0так ни к чему и не привели. Сижу у разбитого корыта и не знаю ЧТО делать.
Вот к примеру на форме Memo, Edit, Spin не имеет значения. Как бы мне по закрытию формы все это дело в один файл записать, а по открытию все расставить по полочкам.
Заранее спасибо.
Роман (2004-11-02 16:12:00) [1]Все я пошел отседова...
Digitman (2004-11-02 16:04:00) [2]
> Роман (02.11.04 15:34) [7]
> плохочитаемый
Ромушка, золотце) ... если ты ведешь речь о сохранении/восстановлении неких свойств неких компонентов, то это - один вопрос .. и ты его задал .. и тебе на него дали некие ответы, претендующие на руководство к действию .. но какого хрена ко всему эт ому имеет слово "зашифровал" - вот это уже совершенно непонятно
Роман (2004-11-02 15:34:00) [3]Хотелось бы на выходе иметь файл типа data.dat плохочитаемый в блокноте, для каждого пользователя свой, со своими настройками и паролями.
Анонимщик (2004-11-02 15:18:00) [4]А чего тебе вообще надо?
Роман (2004-11-02 15:16:00) [5]Но это самые простые способы!!! Впрочем что я мучаюсь, записал, зашифровал, потом заархивировал, запаролил, переместил на удаленный сервер, удалил все пермишинсы и теперь точно в него никто не залезет.
Роман (2004-11-02 15:16:00) [6]Но это самые простые способы!!! Впрочем что я мучаюсь, записал, зашифровал, потом заархивировал, запаролил, переместил на удаленный сервер, удалил все пермишинсы и теперь точно в него никто не залезет.
КаПиБаРа (2004-11-02 12:04:00) [7]В EhLib есть компнент. Может сохранять в ini может в реестр. Рекомендую.
Анонимщик (2004-11-02 12:01:00) [8]Тебе же абсолютно все рассказали.
При закрытии - сохранение:
var
aIF: TIniFile;
begin
aIF := TIniFile.Create('c:\MyProg\if.ini');
aIF.WriteString('Common', 'Memo1', Memo1.Lines.Strings[0]);
aIF.WriteString('Common', 'Edit1', Edit1.Text);
aIF.WriteInteger('Common', 'SpinEdit1', SpinEdit1.Value);
end;
Считывать нужно аналогично - испрльзуй вместо WriteString ф-ию ReadString. И читай хелп по TIniFile
Digitman (2004-11-02 11:51:00) [9]перед уничтожением формы открой файл для записи, запиши туда последовательно значения св-в Memo.Text, Edit.Text и прочие (измененные в ходе работы программы) св-ва иных нужных тебе компонентов
после создания формы этот файл для чтения, прочитай оттуда последовательно ранее сохраненные тобой значения и присвой их соотв.св-вам соотв.компонентов в том же порядке, в котором ты их ранее сохранил