Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
ВнизСохранить и загрузить цвет в 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c