Adicionar no primeiro registro do List Box

15/05/2003

1

Como faço para adicionar um item no ListBox na primeira posicção???


Responder

Posts

18/05/2003

Rmfb

:oops: Simples

Listbox1.Items.Add(´Exemplo´); //ListBox1 tando vazio

Se o Listbox1 naum estiver vazio, faço o seguinte:

Var C,Tot:Byte;
Linhas:Array of String;

Procedure ClickdoBotão(Exemplo)
Begin
Tot:=ListBox1.Items.Count - 1;
SetLength(Linhas,Tot);
For C := 0 to Tot Do
Begin
Linhas[C]:=ListBox1.items.Strings[C];
End;
ListBox1.Items.Add(´Escreva aqui o q vc quer botar na primeira linha´);
For C:=1 To Tot Do
Begin
Listbox1.Items.add(Linhas[C]);
End;

End;//Procedure

Tudo é Simples, desde que não seja composto... rmfb


Responder

18/05/2003

Rmfb

CALMA.... ESQUICE DE UM PEQUENO DETALHE


Se o Listbox1 naum estiver vazio, faço o seguinte:

Var C,Tot:Byte;
Linhas:Array of String;

Procedure ClickdoBotão(Exemplo)
Begin
Tot:=ListBox1.Items.Count - 1;
SetLength(Linhas,Tot);
For C := 0 to Tot Do
Begin
Linhas[C]:=ListBox1.items.Strings[C];
End;
[color=red:8acab5242c]ListBox1.Items.Clear;[/color:8acab5242c] //Detalhe Resolvido
ListBox1.Items.Add(´Escreva aqui o q vc quer botar na primeira linha´);
For C:=1 To Tot Do
Begin
Listbox1.Items.add(Linhas[C]);
End;

End;//Procedure

Tudo é Simples, desde que não seja composto... rmfb


Responder

18/05/2003

Dcport

Ou você pode usar o método Insert da classe TStrings.

ListBox1.Items.Insert(0, ´Minha string na primeira posição.´);


-- dcport


Responder

19/05/2003

Rmfb

SEI QUE ESSE JEITO Q VC FEZ AGORA FOI MELHOR, PORÉM, O CÓDIGO QUE EU DEIXEI ESTAVA ERRADO...

AQUI VAI O CERTO...

procedure TForm1.Button1Click(Sender: TObject);
var c,tot:Byte;
Linhas:Array of String;
begin
tot:=ListBox2.Items.Count;
SetLength(Linhas,tot);
For c := 0 To tot-1 Do
Begin
Linhas[c]:=ListBox2.Items.Strings[c];
End;
ListBox2.Items.Clear;
ListBox2.Items.Add(´AQUI´);
For c:=0 To Tot-1 do
Begin
ListBox2.Items.Add(Linhas[c]);
End;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira