Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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
в момент записи и чтения...

---

← →
yozhik   (2002-08-26 18:17) [8]

спасибо

---

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

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

---

← →
Fox   (2002-08-27 11:37) [10]

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

---

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

Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c