Algo así:
delphi
rxmemorydata1.SortOnFields('Fecha ASC;Nombre ASC;Importe DESC')
Salud.
Escrito 09 diciembre 2009 - 09:18
rxmemorydata1.SortOnFields('Fecha ASC;Nombre ASC;Importe DESC')
Escrito 09 diciembre 2009 - 09:43
rxmemorydata1.SortOnFields('Importe', False, True);
procedure TJvMemoryData.SortOnFields(const FieldNames: string = ''; CaseInsensitive: Boolean = True; Descending: Boolean = False); begin if FieldNames <> '' then CreateIndexList(FieldNames) else if FKeyFieldNames <> '' then CreateIndexList(FKeyFieldNames) else Exit; FCaseInsensitiveSort := CaseInsensitive; FDescendingSort := Descending; try Sort; except FreeIndexList; raise; end; end;
Escrito 09 diciembre 2009 - 09:47