Форум по Delphi программированию - Показать сообщение отдельно - Помогите с выборкой данных (Excel-StringGrid)

Black Raider · #4 31.05.2010, 15:19

Вот так попробуйте.
вроде должно сработать.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if (strtoTime(stringgrid1.Cells[3,Arow])>strtotime('00:08:31'))and (stringgrid1.Cells[4,Arow]='Вход')  then StringGrid1.Cells[7,Arow]:='Опоздал';
 if (strtoTime(stringgrid1.Cells[3,Arow])<strtotime('00:17:30'))and (stringgrid1.Cells[4,Arow]='Выход')  then StringGrid1.Cells[7,Arow]:='Свалил';
end;

Либо при импорте из Ёкселя проставлять.

Либо после импорта пробежаться по гриду.