Hola amigos del club:
Explicare un poco lo que estoy haciendo, estoy vaciando datos de una consulta a un StringGrid, el StringGrid tiene varias columnas entre ellas columnas con fechas lo que necesito es ordenar las fechas pero desde el StringGrid utilizando los datos, encontre algoritmos de ordenación en el foro, pero este algoritmo solo ordena cadenas, yo necesito ordenar fechas. Estaba pensando convertir los campos de fecha en numeros pero no encuentro la funcion para hacer esto, espero puedan ayudarme o darme otra solución.
Este es el codigo de ordenación:
Código Delphi
[-]
procedure Sortgrid(Grid : TStringGrid; SortCol:integer);
var
i,j : Integer;
temp : TStringList;
begin
Temp:= TStringList.Create;
with Grid
do begin
for i := FixedRows to RowCount - 2 do
begin
for j:= i+1 to rowcount-1 do
begin
if AnsiCompareText(Cells[SortCol,i], Cells[SortCol,j]) < 0 then
begin
temp.assign(rows[j]);
rows[j].assign(rows[i]);
rows[i].assign(temp);
end;
end;
end;
end;
DecodeDateTime();
temp.free;
end;
Les agradesco de antemano la ayuda.