高手帮忙

Question

如何在memo同时显示 edit和listbox的内容。我做半天只能显示一个控件的内容
我编写的代码是：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
memo1.text:='';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines[0]:=edit1.Text;if listbox1.ItemIndex>=0 then
memo1.Lines[1]:=listbox1.Items[listbox1.Itemindex]end;procedure TForm1.Button3Click(Sender: TObject);
begin
if (memo1.Text<>'')or(edit1.text<>'')then
memo1.Text:='';
edit1.text:='';
end;end.

Answer 1

memo1.lines[0]:=edit1.Text;if listbox1.ItemIndex>=0 then
memo1.Lines[1]:=listbox1.Items[listbox1.Itemindex]这个地方有问题吧，用append加入字符串，后用Clear清空试试

Answer 2

memo1.lines.append（） 之类，Delphi做完个项目就删了，自己试试吧。你直接用数组下标来指示，但memo1.lines并没有初始化，可能在开始就直接写入lines[i]会有问题吧。我只是从纯语法来看是这样的。memo中加入一行用add(),append()

Answer 3

这样就可以了 
   Memo1.Lines[0] := Edit1.Text;
   ShowMessage(IntToStr(ListBox1.Count));
   for  i:= 0 to ListBox1.Count - 1  do
   begin
     
     Memo1.Lines.Append(ListBox1.Items[i ])  ;
   end;