Adicionar no primeiro registro do List Box
Como faço para adicionar um item no ListBox na primeira posicção???
By Alemão
Curtidas 0
Respostas
Rmfb
15/05/2003
: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
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
GOSTEI 0
Rmfb
15/05/2003
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
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
GOSTEI 0
Dcport
15/05/2003
Ou você pode usar o método Insert da classe TStrings.
-- dcport
ListBox1.Items.Insert(0, ´Minha string na primeira posição.´);
-- dcport
GOSTEI 0
Rmfb
15/05/2003
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;
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;
GOSTEI 0