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

Сохранить и загрузить цвет в ini   Найти похожие ветки 

← →
Quit   (2004-01-03 13:49) [0]

Подскажите плиз как можно сделать
//я пробовал так сохранять
a.WriteFloat("tools", "Color1",a1);

---

← →
Автоответчик   (2004-01-03 13:53) [1]

uses <...>, IniFiles;
// skipped
var
Ini: TIniFile;
Clr: TColor;
// skipped
ini := TIniFile.Create ("settings.ini");
try
ini.WriteInteger ("tools","color1",Clr);
Clr := ini.ReadInteger ("tools","color1",clBlack);
finally
ini.Free;
end;

---

← →
Quit   (2004-01-03 14:01) [2]

> Автоответчик

Спасибо но ругается

---

← →
Автоответчик   (2004-01-03 14:02) [3]

Где ругается?

---

← →
Quit   (2004-01-03 14:03) [4]

> Clr := ini.ReadInteger ("tools","color1",clBlack);


Тут

---

← →
Автоответчик   (2004-01-03 14:08) [5]

Код

---

← →
Quit   (2004-01-03 14:15) [6]

Это записано в 1-ой форме:

Var a1:tcolor;\\глобальная

procedure TFolders.FormCreate(Sender: TObject);
begin
try
A1:= F.ReadInteger ("tools","color1",clBlack);
finally
end;
end;

procedure TFolders.PopupMenuPopup(Sender: TObject);
Begin
MyOtherDrawer.MenuColor := a1;
...
end;

А это во 2-ой:

Procedure Tform1.Save;
begin
...
F.WriteInteger("tools", "Color1",a1);
...
end;

procedure TForm4.xpButton4Click(Sender: TObject);
begin
if colordialog1.Execute
then
a1:=colordialog1.Color;
end;

---

← →
Автоответчик   (2004-01-03 14:21) [7]

А где же создание екземпляра класса TIniFile, из которого ты читаешь?
ini := TIniFile.Create ("settings.ini");

---

← →
Quit   (2004-01-03 14:24) [8]

> А где же создание екземпляра класса TIniFile, из которого
> ты читаешь?
> ini := TIniFile.Create ("settings.ini");

Оно есть всё равно не работает

---

← →
Автоответчик   (2004-01-03 14:33) [9]

Пройдись отладчиком, и я уверен, что на строке
> A1:= F.ReadInteger ("tools","color1",clBlack);
ты обнаружишь, что F неинициализирована.

---

← →
KSergey ©   (2004-01-03 16:52) [10]

А ругается-то как???
Что, раз Ctrl+C не работает, так все должны телепатией заниматься??!

---

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

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



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