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

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

Как сделать чтобы при нажатии на кнопку текст из Edit сохранялся [D6, Win95/98]

sagchat ©   (2002-10-21 12:05:00) 

Как сделать чтобы при нажатии на кнопку текст из Edit сохранялся в .ini файле или рестре, а потом при следующем запуске программы этот текст загружался опять в Edit.
Надеюсь понятно описал!
Если можно по подробнее.
Спасибо!

---

Skier   (2002-10-21 12:17:00) [1]

>sagchat
TIniFile.WriteString(...)
TIniFile.ReadString(...)

---

iNew   (2002-10-21 12:16:00) [2]

Смотри в Хелпе TiniFile.

---

Separator   (2002-10-21 12:16:00) [3]

TFormStorage из Rx
или

procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
Reg.OpenKey("MyPorg", true);
if Reg.ValueExists("Edit1") then
Edit1.Text:= Reg.ReadString("Edit1");
Reg.Free
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:= TRegistry.Create;
Reg.OpenKey("MyPorg", true);
Reg.WriteString("Edit1", Edit1.Text);
Reg.Free
end;


---

Наверх