List Box

Delphi

14/08/2003

:( Como faço para selecionar todos os itens de um listBox, acrescentando uma virgula após cada item, deixando sem virgula o último item.
Quem poder me ajudar eu agradeço.


Mansueto

Mansueto

Curtidas 0

Respostas

Vmotta

Vmotta

14/08/2003

tenta isso:

var
  s: String;
  i:integer;
begin
  s:= ListBox1.Items.Strings[0];
  for i := 1 to ListBox1.Items.Count-1 do
    s := s + ´,´ + ListBox1.Items.Strings[i];
end;


T+
Vitor <vmotta@eep.br>


GOSTEI 0
Mansueto

Mansueto

14/08/2003

:D Vou tentar, muito obrigado.


GOSTEI 0
POSTAR