Fórum Função para inverter os itens de um listbox ou memo #2040
20/01/2009
0
Frigorifico Sa
Curtir tópico
+ 0Posts
20/01/2009
Rodrigo Mourão
Não tenho nada pronto aqui mas vou criar uma para você. Peço apenas que aguarde.
abs !!!!
Gostei + 0
20/01/2009
Rodrigo Mourão
Segue abaixo a função que criei:
function InvertItems(Items: TStrings): TStrings;
var
TempList: TStrings;
I,J: Integer;
begin
TempList := TStringList.Create;
J := 0;
for I := Items.Count-1 downto 0 do
begin
TempList.Add(Items.Strings[I]);
end;
Result := TempList;
end;
Para utilizar é muito simples, você pode pegar de um ListBox inverter e colocar em outro ou inverter os items do proprio list box:
ListBox2.Items := InvertItems(ListBox1.Items);
Memo1.Lines := InvertItems(Memo1.Lines);
Outra coisa, como passo um TStrings vai funcionar para ListBox, Memo, ComboBox e qualquer componente que possua um TStrings.
abs !!!!
Gostei + 0
21/01/2009
Rodrigo Mourão
Estamos no aguardo !!!
abs !!!
Gostei + 0
21/01/2009
Frigorifico Sa
var
TempList: TStrings;
I,J: Integer;
begin
TempList := TStringList.Create;
J := 0;
for I := Items.Count-1 downto 0 do
begin
TempList.Add(Items.Strings[I]);
end;
Componente.Clear;
Result := TempList;
end;
Gostei + 0
21/01/2009
Rodrigo Mourão
[#VIDEO-66#]
Gostei + 0
21/01/2009
Rodrigo Mourão
Estamos no aguardo para podermos encerrar o chamado !!!
abs !!!!!!!!!!!!!!!
Gostei + 0
21/01/2009
Frigorifico Sa
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)