var
FieldOldValue: array of string; procedure TFrmSoftTicketLog.AdoCBeforeInsert(DataSet: TDataSet); var i :integer; begin inherited; SetLength(FieldOldValue,DBGridEh2.FieldCount); for i:=0 to DBGridEh2.FieldCount-1 do begin FieldOldValue next; end; end; procedure TFrmSoftTicketLog.AdoCAfterInsert(DataSet: TDataSet); var i :integer; begin inherited; SetLength(FieldOldValue,DBGridEh2.FieldCount); for i:=0 to DBGridEh2.FieldCount-1 do begin AdoC.fieldbyname(DBGridEh2.Fields next; end; end; |
|