Pessoal,

Resolvi montar um exemplinho bem básico mostrando como criar um esquema de ordenação em um ListBox e depois extrair isso para uma string que pode ser usada como Order By em uma instrução SQL.

O exemplo consiste em: o usuário poderá clicar em um item do ListBox e enviar para baixo ou para cima. Em seguida ele clica em Montar Ordem e a função monta um SQL. Bem simples.

Insira 3 botões na tela (btnDesce, btnSobe e btnExtrairOrderBy), 1 ListBox(lbx1) e 1 Edit(edt1). O evento OnClick dos três botões encontra-se abaixo. Vejam:

//Esse botão faz os itens descerem
procedure TForm1.btnDesceClick(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;

//Esse botão faz os itens subirem
procedure TForm1.btnSobeClick(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;

//Esse botão monta uma instrução ORDER BY dinâmica
procedure TForm1.btnExtrairOrderByClick(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;

Exemplo na seção downloads
 
Adriano Santos
Editor Técnico Revista ClubeDelphi