Classificar por data

05/06/2008

0

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;


Bielisilva

Bielisilva

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar