Cara,
Você precisa colocar isso no Order By da sua Query imagino, certo?
Se for isso, você terá que fazer um loop nos itens do ListBox e montar a
instrução. Mais ou menos assim:
//Exemplo bem básico
procedure TForm1.btn3Click(Sender: TObject);
var
I : Integer;
Order: string;
begin
Order := '';
for I := 0 to lbx1.Items.Count-1 do
begin
if I = 0 then
Order := lbx1.Items[I] + ','
else
Order := Order + lbx1.Items[I] + ',';
end;
Order := Copy(Order, 0, Length(Order)-1);
Edt1.Text := 'SELECT * FROM TABE WHERE CAMPO = :CAMPO ORDER BY ' +
Order;
end;
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
dhsb respondeu:
>
> Adriano valeu pela dica...
>
> So mais uma coisa, como eu tenho um listbox com estes campos nome,
> data nascimento, cidade, estado estou criando para o usuario ordenar
> o relatorio. Portanto nao estou conseguindo. como eu poderia fazer
> isso?
>
> Exemplo o campo nome e descr_nome, data nascimento e dt_nas ... bom
> cdomo eu poderia pegar agora a nova ordenação que o usuario escolheu?
>
> Valeu!!
>
> --- Em delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>, "Adriano Santos (Yahoo)"
> <[EMAIL PROTECTED]> escreveu
> >
> > //Desce o item selecionado
> > procedure TForm1.btn1Click(Sender: TObject);
> > var
> > NovoIndex : Integer;
> > begin
> > if not (lbx1.ItemIndex = lbx1.Items.Count-1) then
> > begin
> > NovoIndex := lbx1.ItemIndex + 1;
> > lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
> > lbx1.ItemIndex := NovoIndex;
> > lbx1.SetFocus;
> > end;
> > end;
> >
> >
> > //Sobe o item selecionado
> > procedure TForm1.btn2Click(Sender: TObject);
> > var
> > NovoIndex : Integer;
> > begin
> > if not (lbx1.ItemIndex - 1 < 0) then
> > begin
> > NovoIndex := lbx1.ItemIndex - 1;
> > lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
> > lbx1.ItemIndex := NovoIndex;
> > lbx1.SetFocus;
> > end;
> > end;
> >
> > --
> > Boa Leitura,
> >
> > Adriano Santos
> > Development Manager SoftPark
> > Editor Técnico Revistas ClubeDelphi e WebMobile
> > www.delphitodelphi.blogspot.com
> > www.adrianosantos.pro.br
> > www.devmedia.com.br
> >
> >
> >
> > dhsb respondeu:
> > >
> > > Pessoal,
> > >
> > > Boa tarde...
> > >
> > > Tenho um formulario com um listbox e dois botões um com seta para
> cima
> > > e outra com seta para baixo (ordenação). Meu problema e que nao
> estou
> > > conseguindo ordenar os itens do meu list box.
> > >
> > > Exemplo quando seleciono o primeiro e clico no botao para baixo
> queria
> > > que ele ficasse no segundo registro e assim sucessivamente..
> > >
> > > Alguem ja passou por algo semelhante... Como eu faria?
> > >
> > > Valeu
> > >
> > >
> > > No virus found in this incoming message.
> > > Checked by AVG - http://www.avg.com <http://www.avg.com>
> > > Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date:
> 28/7/2008 06:55
> > >
> >
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.5.6/1578 - Release Date: 28/7/2008
> 17:13
>
