Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как мне сохранить переменные, не используя базы данных... [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.


Наверх

Титульная страница Поиск, карта сайта Написать письмо