超级新手 求助 delphi中的返回 (50分)
比如:这样是不是 如果发现按键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;

