求代码解读~
刚刚介入可视化编程,对一些代码不是很明白,求高手解读~~
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;
