varrer dataset e listar dados em ordem intercalada

Question

preciso varrer um dataset em ordem intercalada, por exemplo:meu dataset tem 2 campos: codigo e quantidade e est�o ordenados por quantidade do menor para o maior, dai preciso lista esses dados em ord...

Joao Moreira · Answer

mais ou menos assim://mostrando o primeiro registro        Showmessage(FieldByName(estabelecimento).AsString +  -  + FieldByName(qtd).AsString);        MoveBY(qtdReg-1);        //mostrando o ultimo registro        Showmessage(FieldByName(estabelecimento).AsString +  -  + FieldByName(qtd).AsString);        moveby(-qtdReg);        next;        //mostrando o segundo registro        Showmessage(FieldByName(estabelecimento).AsString +  -  + FieldByName(qtd).AsString);        Dec(qtdReg);...

Gustavo Bretas · Answer

E ae Jo�o, blz?Rapaz, eu vi seu post na parte de SQL Server e estou tentando entender onde vc quer chegar com isso, mas esta complicado... rsrs!A quest�o do intercalado eu entendi, mas e quando vc tiver um n�mero impar de registros?Se vc disser mais detalhes da sua aplica��o e o que vc quer fazer seja mais tranquilo para te ajudar!...

Joao Moreira · Answer

sem problemas...vamos supor que eu tenha 3 registro ele lista o 1 depois o 3 e depois o 2 dai sai......

Joao Moreira · Answer

vou fazer usando um dataset tempor�rio...

Gustavo Bretas · Answer

Jo�o, veja se esse exemplo te ajuda: //www.sendspace.com/file/zi7uw5Fiz aqui na l�gica que vc descreveu, tenta aplicar no seu sistema!Abra�o!...

Joao Moreira · Answer

fiz dessa forma conforme solu��o do meu amigo Vitor Ara�jo Alcantara

with qry do
begin
sql.Add(select a.estabelecimento, COUNT(*) as qtd from estabelecimento a);
sql.Add(inner join alunos b on (a.estabelecimento = b.id_escola));
sql.Add(group by a.estabelecimento order by qtd);
open;

x := 1;
y := RecordCount;
i := 1;

while x <= y do
begin
RecNo := x;
memo1.Lines.add(FieldByName(estabelecimento).AsString + - + FieldByName(qtd).AsString );

RecNo := y;
memo1.Lines.add(FieldByName(estabelecimento).AsString + - + FieldByName(qtd).AsString );

Inc(x);
Dec(y);
Inc(i)
end;
Showmessage(IntToStr(i));
end;

F�rum varrer dataset e listar dados em ordem intercalada #413149