Question

在列表框（listbox）中添加一行记录的方法是什么?(Delphi)

Answer 1

在按钮的onclick里这样写：
Var Index :Integer;
begin
For Index:=0 To Listbox.Items.Count -1 Do
IF Listbox.Selected[Index]=True Then Begin
edtText.Text := Listbox.Items[Index]; //这里赋值。
Exit;
End;
end;

Answer 2

在按钮的onclick里这样写：
Var Index :Integer;
begin
For Index:=0 To Listbox.Items.Count -1 Do
IF Listbox.Selected[Index]=True Then Begin
edtText.Text := Listbox.Items[Index]; //这里赋值。
Exit;
End;
end;

Answer 3

listbox1.items.add('test');