Сохранить и загрузить цвет в 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 неинициализирована.

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

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