[求助]求这个代码解读

ink1219 发布于 2007-10-17 14:28， 1124 次点击

刚介入DELPHI,看到这样一块代码,求高手给下各句的意思~~

procedure TInsertSortForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then
begin
if Edit1.Text <>'' then
N:=StrtoInt(Edit1.text);
Edit1.Text := '';
SingleChainList.InsertSorting (N);
end;
end;

5 回复

sky_yang_sky2007-10-18 08:20

procedure TInsertSortForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then//如果輸入回車鍵
begin
if Edit1.Text <>'' then　//如果edit1控件中不為空
N:=StrtoInt(Edit1.text);//將edit1中的內容由字符串轉化為整數賦給變量N
Edit1.Text := '';//edit1清空
SingleChainList.InsertSorting (N);//在SingleChainList控件按排序的方式插入N的
end;
end;

xiaofkg2007-10-19 08:57

我原想回答，不过斑竹写的不错，支持一下，不过，问问题的怎么不答谢一下呢？

zhongbo2007-10-19 11:05

学习一下！

缘吇弹2007-10-19 17:01

以下是引用xiaofkg在2007-10-19 8:57:03的发言：

我原想回答，不过斑竹写的不错，支持一下，不过，问问题的怎么不答谢一下呢？

有些人很忙,心存感激而未能及时答谢;
有些人很拽,获得恩惠却认为天经地义.

ink12192007-10-19 19:18

楼上的两句话好有哲理啊,看来我是第一种啊谢谢斑竹啊!!!