Adicionar no primeiro registro do List Box

Question

Como fa�o para adicionar um item no ListBox na primeira posic��o???...

Rmfb · Answer

:oops: SimplesListbox1.Items.Add(�Exemplo�); //ListBox1 tando vazioSe 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;//ProcedureTudo � Simples, desde que n�o seja composto... rmfb...

Rmfb · Answer

CALMA.... ESQUICE DE UM PEQUENO DETALHESe 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 ResolvidoListBox1.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...

Dcport · Answer

Ou voc� pode usar o m�todo Insert da classe TStrings.[code:1:638637e1cd]ListBox1.Items.Insert(0, �Minha string na primeira posi��o.�);[/code:1:638637e1cd]-- dcport...

Rmfb · Answer

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;