مرتب سازی memtable در دلفی روی گرید به صورت زیر عمل میکنیم
procedure TFmTransferInfo.DBGridEh1TitleClick(Column: TColumnEh);
begin
if not(DBGridEh1.DataSource.DataSet.Active) then
Exit;
if Column.Field.Calculated then
Exit;
case Column.Title.SortMarker of
smNoneEh:
begin
Column.Title.SortMarker := smDownEh;
MemTableEh1.SortByFields(Column.FieldName+' DESC');
end;
smDownEh:
begin
Column.Title.SortMarker := smUpEh;
MemTableEh1.SortByFields(Column.FieldName+' ASC');
end;
smUpEh:
begin
Column.Title.SortMarker := smNoneEh;
MemTableEh1.SortByFields('');
end;
end;
end;
برای محاسبه تفاوت بین دو زمان در دلفی یونیت DateUtils ابتدا اضافه شود سپس از کد زیر استفاد ه شود
SecondsBetween(Now, IncSecond(Now,10)) MinutesBetween(Now, IncMinute(Now,110))