Delphi dicas

Funçao que classifica uma stringgrid por qualquer coluna

// FUNÇÃO PARA CLASSIFICAR EM ORDEM ALFABETICA UMA

// STRINGGRID , PARA USAR COLOQUE NO EVENTO DblClick

// DA STRINGGRID A FUNÇAO:



// CLASSIFICA(STRINGGRID1)



// ELA SERA CLASSIFICADA PELA COLUNA EM QUE FOR DADO

// O DUPLO CLIQUE.



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;

por : Nelson Jose Goncalves