delphi 中 返回 是Result :='1'; 吗? 返回后是不是不在继续执行 后面代码了
比如:这样是不是 如果发现按键0按下 就返回0 下面代码就不在执行了?function GetKeyA:string;
var vKey:integer;
begin
if GetAsyncKeyState(96)<>0 then begin
Result :='0';
end; if GetAsyncKeyState(97)<>0 then begin
Result :='1';
end; if GetAsyncKeyState(98)<>0 then begin
Result :='2';
end; if GetAsyncKeyState(99)<>0 then begin
Result :='3';
end; if GetAsyncKeyState(100)<>0 then begin
Result :='4';
end; if GetAsyncKeyState(101)<>0 then begin
Result :='5';
end; if GetAsyncKeyState(102)<>0 then begin
Result :='6';
end; if GetAsyncKeyState(103)<>0 then begin
Result :='7';
end; if GetAsyncKeyState(104)<>0 then begin
Result :='8';
end; if GetAsyncKeyState(105)<>0 then begin
Result :='9';
end;
end;
比如:这样是不是 如果发现按键0按下 就返回0 下面代码就不在执行了?function GetKeyA:string;
var vKey:integer;
begin
if GetAsyncKeyState(96)<>0 then begin
Result :='0';
end; if GetAsyncKeyState(97)<>0 then begin
Result :='1';
end; if GetAsyncKeyState(98)<>0 then begin
Result :='2';
end; if GetAsyncKeyState(99)<>0 then begin
Result :='3';
end; if GetAsyncKeyState(100)<>0 then begin
Result :='4';
end; if GetAsyncKeyState(101)<>0 then begin
Result :='5';
end; if GetAsyncKeyState(102)<>0 then begin
Result :='6';
end; if GetAsyncKeyState(103)<>0 then begin
Result :='7';
end; if GetAsyncKeyState(104)<>0 then begin
Result :='8';
end; if GetAsyncKeyState(105)<>0 then begin
Result :='9';
end;
end;
解决方案 »
- Delphi怎么修改DLL?
- 请问一个C和DELPHI数组转换的问题
- ad0query1中一个参数传
- 急急急?在线等待!如何动态在WorkBooks中增加WorkSheets?
- 我有EXE加密(PE加密保护)源代码(Delphi)出售.
- 高手请进,如何用程序实现对摄像头的控制 分数可以在加
- 帮忙介绍一个可以实现WORD风格标尺的控件,最好能跟RichEdit结合使用,送100分
- 数据库中有一员工表,我想利用它直接做个打印胸卡的小程序,请问各位有什么好的意见?谢谢!
- 谁能告诉哪里能申请教育网的免费邮件地址,或你给我一个算了,100分给你!
- Delphi,SQL,自增字段
- 如何将汉字转化成UCS2码?
- 一个关于procedure的名称问题
EXIT