发布网友 发布时间:2023-09-30 12:36
共1个回答
热心网友 时间:2024-10-26 12:44
procere TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:= 0 to Memo1.Lines.Count - 1 do begin if Memo1.Lines[i]=Edit1.Text then exit; end; Memo1.Lines.Add(Edit1.Text); end; 至于你的只显示两行,你是不是设置