我想用edit 按下enter 會到memo 然後自動把剛剛在edit打的字消掉 但是最後edit 只能輸入一個字
可以幫我看看語法哪邊有錯嗎ˊ ˋ

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
memo1.Lines.Add(edit1.text);
edit1.clear ;

------
delphi 新手

英文單字也看不懂!!!

您好，我是这么写的，

[code delphi]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
memo1.Lines.Add(edit1.text);
end;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Memo1.Text <>'' then
begin
edit1.Text :='';
memo1.SetFocus ;
end;
end.

[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

因為........你要這樣寫
if key = #13 then
begin
memo1.Lines.Add(edit1.text);
edit1.clear ;
end;

不然你一直在edit1.clear

感謝各位幫我解答@@

------
delphi 新手

英文單字也看不懂!!!