Сохранение свойств

← →
yozhik © (2002-08-26 17:07) [0]

Здравствуйте уважаемые мастаки!
Подскажите каким образом можно сохранить/востановить в/из ини файл(а) следуюещие свойства:
DBGrid.Columns[I].Font
DBGrid.Columns[I].Visible
DBGrid.Columns[I].Title

Заранее благодарен

← →
Skier © (2002-08-26 17:10) [1]

>yozhik
см. модуль TypInfo.pas

← →
yozhik © (2002-08-26 17:19) [2]

Смотрел, но не получается считать эти свойтства
Пример из ини:
dbgMasterIncome.Columns[0].Visible=False

← →
Skier © (2002-08-26 17:23) [3]

>yozhik
Ну...ежели ты хочешь писать(читать) в ини то
тебе нужно написать функции которые "превращают" св-ва
Font, Visible, Title в строку (это для записи в файл)
И функции которые "превращают" строку в св-ва Font, Visible, Title (это для чтения из файла)

← →
yozhik © (2002-08-26 17:37) [4]

Функция для записи есть.
А вот для чтения не получается... Если подскажи пожалуйста, на строке из примера

← →
Skier © (2002-08-26 17:41) [5]

>yozhik
Покажи сначала как ты пишешь
в ини-файл это св-во ( dbgMasterIncome.Columns[0].Visible )

← →
yozhik © (2002-08-26 17:55) [6]

примерно так:
for i:=0 to (Sender as TDbGrid).Columns.Count-1 do begin with (Sender as TDbGrid).Columns[i] do begin if Visible then IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].Visible","True") else IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].Visible","False"); IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].FontName",Font.Name); IFile.WriteString("Setting",(Sender as TDbGrid).Name+".Columns"+IntToStr(i)+"].FontName",IntToStr(Font.Size)); end end;

← →
Skier © (2002-08-26 18:07) [7]

>yozhik
для чтения Visible примерно так :

for i:=0 to ... do begin with (Sender as TDbGrid).Columns[i] do begin if CompareText(IFile.ReadString("Setting", (Sender as TDbGrid).Name + ".Columns"+IntToStr(i) +"].Visible", "False"), "True") then Visible := True else Visible := False; end; //with end; //for

И проверь : совподают ли у тебя (Sender as TDbGrid).Name
в момент записи и чтения...

спасибо

← →
murza (2002-08-27 10:27) [9]

Господа, это же все стремируется в DFM формат.

А не проще использовать методы самого DbGrid-a:
DBGrid.Columns.SaveToFile(const Filename: String)
DBGrid.Columns.LoadFromFile(const Filename: String)

Сохранение свойств Найти похожие ветки