浏览代码

* another cleanup of unnecessary variables

git-svn-id: trunk@3782 -
Tomas Hajny 19 年之前
父节点
当前提交
0d4beaedaf
共有 1 个文件被更改,包括 0 次插入1 次删除
  1. 0 1
      rtl/os2/keyboard.pp

+ 0 - 1
rtl/os2/keyboard.pp

@@ -102,7 +102,6 @@ function SysGetShiftState: Byte;
 
 
 var
 var
  K: TKbdInfo;
  K: TKbdInfo;
- L: cardinal;
 begin
 begin
  KbdGetFocus (IO_NoWait, Handle);
  KbdGetFocus (IO_NoWait, Handle);
  K.cb := SizeOf (K);
  K.cb := SizeOf (K);