Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

как мне сохранить переменные, не используя базы данных...   Найти похожие ветки 

← →
RedDragon   (2004-10-05 22:21) [0]

Здравствуйте, друзья и подруги! Вот мне здесь уже подсказали как создавать строки и присваивать текст этих строк переменным.
а что если я этими переменными хочу оперировать впоследствие?
Что делать? Надо их сохранять...
Вот теперь - то и подскажите, как сохранять переменные в текстовые файлы, но не забудьте подсказать, как потом по загрузке эти переменные воспроизводить...
переменные называются так:
prezident1
...
prezident10

Для ясности - вот такой случай:
я хочу чтобы переменные, по закрытии программы записывались в файл -    prezident.txt  .
И чтобы при загрузке программы, строкам -
prezident1label.caption:=prezident1;
...
prezident10label.caption:=prezident10;
Только напишите пояснения - что при закрытии, что при загрузке.
И напишите, какие компоненты надо поставить на форму, если это надо...

---

← →
BDenis ©   (2004-10-05 22:22) [1]

см. в Хелп TIniFiles.

---

← →
RedDragon   (2004-10-05 22:26) [2]

Лучше напиши

---

← →
BDenis ©   (2004-10-05 22:32) [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-06 21:11) [4]

а обьясни, пожалуйста как сохранить мои переменные, и к моим строкам...

---

← →
RedDragon   (2004-10-07 21:54) [5]

Спасибо, я всё понял!

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c