missice's Blog

語法：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
    s:string;
    ss:integer;
begin
  //程式功能1
  if key=VK_F1 then
  begin
    if label1.caption='-' then label1.caption:='-1';
    label1.Caption:=inttostr(strtoint(label1.Caption)+1);
    if strtoint(label1.Caption)=10 then label1.Caption:='0';
  end;
  //程式功能2
  if key=VK_F2 then
  begin
    label2.Caption:=inttostr(strtoint(label2.Caption)+1);
    if strtoint(label2.Caption)=10 then label2.Caption:='0';
  end;
   //程式功能3
  if key=VK_F3 then
  begin
    if label1.caption='-' then label1.caption:='0';
    s:=inttostr(strtoint(label1.Caption)+strtoint(label2.Caption));
    if length(s)=2 then
      begin
        label2.Caption:=copy(s,2,1);
        label1.Caption:=copy(s,1,1);
      end
    else
      begin
        label2.Caption:=copy(s,1,1);
        label1.Caption:='0';
      end;
  end;
 //程式功能4
  if key=VK_F4 then
  begin
    if label1.caption='-' then label1.caption:='0';
    ss:=strtoint(label1.Caption)-strtoint(label2.Caption);
    if ss>=0 then
      begin
        label1.Caption:='0';
        label2.Caption:=inttostr(ss);
      end
    else if ss       begin
        label1.Caption:='-';
        label2.caption:=inttostr(abs(ss));
      end;
    end;
  end;