Показать полную графическую версию : Delphi, Скрытие компонентов через INI.
androidz
24-05-2009, 20:19
Воопщем нужно мне скрыть панельку
panel.Hide;
но чтобы значение Hide читалась из INIFILE
чтото тип того..
Panel:=IniFile.ReadString('panels','1',' ');
как присвоить значение Hide чтобы оно прочиталось из INI ?
androidz, это обычная работа с текстовыми файлами.
Если Panel:=IniFile.ReadString('panels','1',' '); то IniFile - это объект, содержащий функцию чтения строки.
Если panel.Hide -то это тоже объект, соотв функция
Panel:=IniFile.ReadString('panels','1',' '); должна быть записана так
Panel.hide:=IniFile.ReadString('panels','1',' ');
Причем следует учесть тип переменной Hide. Скорей всего она булевская, считываемое значение из INI файла текстовое. Т.е. необходимо позаботиться о соответствии типов, и приведению к нужному.
Дальше все зависит от реализации и описания объектов, и им соотв~щих классов.
как присвоить значение Hide чтобы оно прочиталось из INI ? »procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
with Ini do begin
WriteInteger('position', 'left', Form1.Left);
WriteInteger('position', 'width', Form1.Width);
WriteInteger('position', 'top', Form1.Top);
WriteInteger('position', 'height', Form1.Height);
WriteBool('panel', 'visible', pnl1.Visible);
WriteBool('button', 'btn1', btn1.Visible);
WriteBool('button', 'btn2', btn2.Visible);
Free;
end;
end;
Прикрепил исходник, в котором показано, как сохранять и загружать данные из ini файла.
Ну и если добавить StrToBool() то получится чтото вроде Panel.hide:= StrToBool(IniFile.ReadString('panels','1',' ')); если считать что в INI файле 0 это false и 1 это true
androidz
25-05-2009, 05:40
Прикрепил исходник, в котором показано, как сохранять и загружать данные из ini файла. »
как загружать и сохранять данные в ini я знал, вот только низнал как панельку можно спрятать таким способом, теперь всё понятно
большое спасибо за исходник!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.
Available in ZeroNet 1osznRoVratMCN3bFoFpR2pSV5c9z6sTC