Подскажите может кто-то сталкивался Column.Field.As<SomeThing>

← →
Pos Eleptant (c) (2008-02-28 16:00) [0]

01: procedure TfrmJournalClaim.DBGridDrawColumnCell(tra-ta-ta)
02: var
03: holdColor: TColor;
04: begin
05: if Column.FieldName="UPD_STATUS" then
06: if ((Column.Field.AsString) = "0") then
07: begin
08: dbgrid.canvas.Draw(Rect.Left, Rect.Top, 01: imgFlagEdit.Picture.Bitmap);
09: end;
10:
11:
12: holdColor := DBGrid.Canvas.Brush.Color; {сохраняем оригинальный 13: цвет}
14: {"раскрашиваем" ячейки только для поля EmpNo}
15: if Column.FieldName = "DATE_TAKE" then
16: if ((Column.Field.AsDateTime) = Date) then
17: begin
18: DBGrid.Canvas.Brush.Color := clRed;
19: DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
20: DBGrid.Canvas.Brush.Color := holdColor;
21: end;
22: if Column.FieldName = "DATE_TAKE" then
23: if ((Column.Field.AsDateTime) = Date+1) then
24: begin
25: DBGrid.Canvas.Brush.Color := clGreen;
26: DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
27: DBGrid.Canvas.Brush.Color := holdColor;
28: end;

ну вроде правильно:

если закоментить строку 06 все нормально,иначе
Системная ошибка приложения по адресу 005CCCB3 в программе "WnX_CSklad.exe". Параметр: "Read" с адресами 00000000

← →
Johnmen © (2008-02-28 16:04) [1]

Это значит, что есть колонка в дбгриде, не связанная ни с каким реальным полем набора данных. => Column.Field = nil

← →
Pos Eleptant (c) (2008-02-28 16:05) [2]

ан нет, проверил такая же ерунда, ПОЛЕ есть

← →
Pos Eleptant (c) (2008-02-28 16:07) [3]

все решил
Johnmen © (28.02.08 16:04) [1]

спасибо ОГРОМНОЕ!!!

← →
Johnmen © (2008-02-28 16:07) [4]

Как проверил? Код.

← →
Правильный_Вася (2008-02-28 16:08) [5]

> Rect.Top, 01: imgFlagEdit.Picture.Bitmap

это че за фигня?

я бы посоветовал так делать
if UpperCase(Column.FieldName)="UPD_STATUS" then
В DBGridEh без UpperCase сравнение не прокатит.

По сабжу: а что будет, если:

if Column.FieldName="UPD_STATUS" then if ((DBGrid.DataSource.DataSet.FieldByName("UPD_STATUS").AsString) = "0") then begin dbgrid.canvas.Draw(Rect.Left, Rect.Top, 01: imgFlagEdit.Picture.Bitmap); end;

?

> Ega23 © (28.02.08 16:10) [6]

Приведение к единому регистру конечно надо.
Но дело в корне в том, что проверять сначала надо на существование поля вообще. Т.к. FieldName то может быть <> "", а Field = nil.

> Но дело в корне в том, что проверять сначала надо на существование
> поля вообще. Т.к. FieldName то может быть <> "", а Field
> = nil.

Ну это даже не обсуждается... :)

Подскажите может кто-то сталкивался Column.Field.As<SomeThing> Найти похожие ветки