[qwwwq]

Хочу присвоить форму цвет записанный в базу данных, но он ругаеться на не совместимые типы

Код:

  
  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

[lmikle]

Правильно ругается, т.к. clSkyBlue - это по сути численная константа типа TColor (может быть преобразован к Integer).

[qwwwq]

clSkyBlue это стринговое значение просто текст.

[lmikle]

А должно быть TColor (для того, что бы присвоить свойству Color формы).

[qwwwq]

Код:

DataModule1.Rashodi_podschet_ADOQuery.Fields[0].AsString;

чтоже тогда вместо AsString писать? ничего не получается.

[lmikle]

А ничего. У тебя неправильный тип поля. Поле в БД надо сделать Integer и писать туда именно значение константы clSkyBlue (т.е. тип TColor).