Try
pnl_color.Color := TColor(query.Fields11].AsInteger);
Except
pnl_color.Color := clBlack; // 디폴트 색상으로 사용하고 싶은 넘
End;
또라이 익셉트를 사용한 이유는..
쿼리를 통해서 Nil 결과값이 나올 경우를 대비해서 입니다..
레마 님이 쓰신 글 :
: DB 에 필드타입이 Float 형입니다.
: Insert 하는건 되는데 읽어오지를 못하네요.
: 도와주세요..
:
: Insert 시
: - query.sql.Params[8].AsFloat := pnl_color.Color ; // 색상-Color
: Read 시
: 1.pnl_color.Color := StringTocolor('$' + '00FF8080');
: 2.pnl_color.Color := StringToColor('$' + IntToHex(query.Fields11].AsInteger)) ;
:
: Read 시 1번은 컴파일이 되는데 2번은 IntToHex에서 자꾸 에러가 납니다..
:
: 2번으로 해결을 해야하는데 어떻게 해야할지 모르겠네요
:
: 도와주세요
:
|