Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизПочему выдает ошибку...? Где не правильно...? Найти похожие ветки
← →
iusup (2003-02-24 23:30) [0]Почему выдает ошибку...? Где не правильно...?
procedure TMainForm.FormCreate(Sender: TObject);
var
ini: TIniFile;
dbgrid1:Integer;
begin
ini := TIniFile.Create("d:\tst.ini");
try
if ini.SectionExists(Config) then
begin
if ini.ValueExists(Config, "DBGrid1") then
MainForm.DBGrid1.Color := ini.ReadBool(Config, "DBGrid1",clBtnHighlight); // ошибка
end;
finally
ini.Free;
end;
end;
← →
MAN-IN-RED (2003-02-24 23:48) [1]
> ReadBool
тут...
← →
MAN-In-RED (2003-02-24 23:49) [2]Цвет не может быть True or False;
← →
MAN-In-RED (2003-02-24 23:57) [3]И насколько я знаю, эти проверки лишние:
> if ini.SectionExists(Config) then
> begin
> if ini.ValueExists(Config, "DBGrid1") then
← →
Palladin (2003-02-25 01:28) [4]моему возмущению нет границ
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c