财务软件版1楼: 1、memo中第一行为555，按回车键后在第一行555后面加入888，同时光标移动至下一行。此代码如何编写？
2、memo中按键盘“*”键，memo中显示“×”符号，代码如何编写？
希望知道的大侠，能够回复。谢谢！

2楼: procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
Memo1.Lines.Add(＇＇888＇＇);
key := #0;
end;
if key = ＇＇*＇＇ then
begin
key := #0;
Memo1.Lines.Strings[Memo1.Lines.Count - 1] :=
Memo1.Lines.Strings[Memo1.Lines.Count - 1] + ＇＇×＇＇;
end;
end; 如仓库进销存管理系统

3楼: Memo1.Lines.Add(＇＇888＇＇); //增加一行 并没跟在‘555’后
key := #0; //没转到下一行

4楼: 按*键，并没有变成×，看来这个问题还是有点难度的，不知道是不是要使用键盘钩子？要是有知道的能回答，可以继续送分。

5楼: procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then

begin
Memo1.Lines.Strings[Memo1.Lines.Count - 1] :=
Memo1.Lines.Strings[Memo1.Lines.Count - 1] + ＇＇888＇＇;
end;
end;


按*键，并没有变成×，？？？？

那是什么呢？？

6楼: 问题已经得到解决，感谢Avalon。