![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как мне сохранить переменные, не используя базы данных... [D5, WinXP]
RedDragon © (2004-10-05 22:21:00)Здравствуйте, друзья и подруги! Вот мне здесь уже подсказали как создавать строки и присваивать текст этих строк переменным.
а что если я этими переменными хочу оперировать впоследствие?
Что делать? Надо их сохранять...
Вот теперь - то и подскажите, как сохранять переменные в текстовые файлы, но не забудьте подсказать, как потом по загрузке эти переменные воспроизводить...
переменные называются так:
prezident1
...
prezident10
Для ясности - вот такой случай:
я хочу чтобы переменные, по закрытии программы записывались в файл - prezident.txt .
И чтобы при загрузке программы, строкам -
prezident1label.caption:=prezident1;
...
prezident10label.caption:=prezident10;
Только напишите пояснения - что при закрытии, что при загрузке.
И напишите, какие компоненты надо поставить на форму, если это надо...
RedDragon (2004-10-07 21:54:00) [1]Спасибо, я всё понял!
RedDragon (2004-10-06 21:11:00) [2]а обьясни, пожалуйста как сохранить мои переменные, и к моим строкам...
BDenis (2004-10-05 22:32:00) [3]
uses IniFiles;
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create (ChangeFileExt (Application.ExeName, '.ini'));
try
Label1.Caption := Ini.ReadString ('SectionName', 'Ident', 'DefaultValue');
finally
Ini.Free
end
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create (ChangeFileExt (Application.ExeName, '.ini'));
try
Ini.WriteString ('SectionName', 'Ident', Label1.Caption);
finally
Ini.Free
end
end;
RedDragon (2004-10-05 22:26:00) [4]Лучше напиши
BDenis (2004-10-05 22:22:00) [5]см. в Хелп TIniFiles.