Classificar por data

05/06/2008

1

E aí galera!
Peguei esta função na internet que classifica qualquer coluna de um stringrid em ordem alfabética. Eu necessito classificar por data. Será que não dá para adaptá-la?

Function clasifica(J:tStringgrid):boolean;
var
sl :tstringlist;
p,na, x:integer;
linha:string;
Begin
SL := TSTRINGLIST.Create;
sl.Clear;
na := j.Col;
FOR X := 1 TO j.RowCount-1 DO
BEGIN
if trim(j.Rows[x].text)<>´´ then SL.Append(j.Cells[na,x]+´//limite//´+j.Rows[X].Text);
END;
SL.Sort;
FOR X := 1 TO j.RowCount-1 DO
BEGIN
j.Rows[X].Clear;
END;
FOR X := 0 TO sl.Count-1 DO
BEGIN
linha := SL.Strings[x];
p := pos(´//limite//´,linha)+10;
linha := copy(linha,p,length(linha));
j.Rows[X+1].Text := linha;
END;
SL.Destroy;
end;


Responder

Posts

05/06/2008

Martins

Não sei se é isso q vc busca, mas dê uma olhada no material.

[url]http://fabiomassalino.blogspot.com/2007/12/dica-delphi-ordenando-stringgrid.html[/url]

Boa sorte!!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira