Buscar por:

Funçao que classifica uma stringgrid por qualquer coluna

Código

// 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;