Показать сообщение отдельно
  #1  
Старый 14.01.2009, 19:36
qwwwq qwwwq вне форума
Прохожий
 
Регистрация: 12.01.2009
Сообщения: 47
Репутация: 10
По умолчанию Цвет формы

Хочу присвоить форму цвет записанный в базу данных, но он ругаеться на не совместимые типы
Код:
  
  DataModule1.Rashodi_podschet_ADOQuery.Active:= false;
  DataModule1.Rashodi_podschet_ADOQuery.SQL.Clear;
  DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('select parametr ');
  DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('FROM [Setting]');
  DataModule1.Rashodi_podschet_ADOQuery.SQL.Add('WHERE name =' + '''Form_color''');
  DataModule1.Rashodi_podschet_ADOQuery.Active:= true;

  Form1.Color := DataModule1.Rashodi_podschet_ADOQuery.Fields[0].AsString;
в бузу данных цвета записаны как - clSkyBlue
Ответить с цитированием