编程论坛 » Delphi论坛 » [求助]求这个代码解读

ink1219 发表于 2007-10-17 14:28

[求助]求这个代码解读

<BR>刚介入DELPHI,看到这样一块代码,求高手给下各句的意思~~<BR><BR>procedure TInsertSortForm.Edit1KeyDown(Sender: TObject; var Key: Word;<BR>  Shift: TShiftState);<BR>begin<BR>  if (Key=VK_RETURN) then<BR>  begin<BR>    if Edit1.Text &lt;&gt;'' then<BR>      N:=StrtoInt(Edit1.text);<BR>    Edit1.Text := '';<BR>    SingleChainList.InsertSorting (N);<BR>  end;<BR>end;

sky_yang_sky 发表于 2007-10-18 08:20

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

xiaofkg 发表于 2007-10-19 08:57

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

zhongbo 发表于 2007-10-19 11:05

<FONT color=#ff0000>学习一下！</FONT>

缘吇弹 发表于 2007-10-19 17:01

<DIV class=quote><B>以下是引用<U>xiaofkg</U>在2007-10-19 8:57:03的发言：</B><BR>
<P>我原想回答，不过斑竹写的不错，支持一下，不过，问问题的怎么不答谢一下呢？</P></DIV>
<P>有些人很忙,心存感激而未能及时答谢;<BR>有些人很拽,获得恩惠却认为天经地义.</P>

ink1219 发表于 2007-10-19 19:18

<P>楼上的两句话好有哲理啊,看来我是第一种啊[em02][em02]谢谢斑竹啊!!!</P>

查看完整版本: [求助]求这个代码解读