Question

用delphi在edit中输入数字保存在memo中，输入后按回车edit中数字消失，但memo中内容不消失，该怎么实现啊

Answer 1

在Edit的ONKEYPRESS事件中写
if Key=#13 then
begin
Key:=#0;

Memo.Lines.Add(Edit.Text);

Edit.Text:='';

end;

追问

怎么只能输入一个数字，还是一次性出现两个相同的数字呢

追答

你是不是本来有代码啊？应该不会你说的只能输入1个数字和出现2个相同的数字的情况。。

追问

是本来有代码的，我原先是想实现成这样的

追答

建议你用个数组保存所有数字，然后到按求最大值时直接算出来，Memo的数据也可以跟着数组变化

追问

数组。。。额。。。这个该怎么弄呀，我都弄糊涂了

追答

Var Num:array of Integer;

在Edit的OnKeyPress中
var i:Integer;
begin
if Key=#13 then
begin
Key:=#0;

SetLength(Num,Length(Num)+1);

Num[Length(Num)-1]:=StrToInt(Edit.Text);

Edit.Text:='';

Memo.Text:='你输入的值：'+#13+#10;

for i:=0 to Length(Num)-1 do
Memo.Text:=Memo.Text+IntToStr(Num[i])+' ';
end;
end;

在求最大值按钮的OnClick中
Var i,j:Integer;
begin
if Length(Num)0 then

begin

if Length(Num) = 1 then

j:=Num[0]

else begin

j:=Num[0];

for i:=1 to Length(Num)-1 do

j:=Max(j,Num[i]);

end;
Memo.Text:='你输入的值：'+#13+#10;

for i:=0 to Length(Num)-1 do
Memo.Text:=Memo.Text+IntToStr(Num[i])+' ';
Memo.Lines.add('最大值为：'+IntToStr(j));

end;

end;

在清除按钮的OnClick中
SetLength(Num,0);
Memo.Text:='';