Скачать: CL | DM;

Как сделать чтобы при нажатии на кнопку текст из Edit сохранялся   Найти похожие ветки 

← →
sagchat ©   (2002-10-21 12:05) [0]

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

---

← →
iNew   (2002-10-21 12:16) [1]

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

---

← →
Separator ©   (2002-10-21 12:16) [2]

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;


---

← →
Skier ©   (2002-10-21 12:17) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c