opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix two minor compiler warnings.

Browse Source
This commit is contained in:
Ansgar Becker
2011-03-17 23:07:02 +00:00
parent 49a97584e6
commit a9f1f076b0
2 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/main.pas
View File

@ -8103,6 +8103,7 @@ begin
avg_persec := ''; avg_persec := '';
// Detect value type // Detect value type
valIsNumber := False;
try try
valIsNumber := IntToStr(MakeInt(val)) = val; valIsNumber := IntToStr(MakeInt(val)) = val;
except on E:EInvalidOp do except on E:EInvalidOp do

1
source/selectdbobject.pas
View File

@ -125,7 +125,6 @@ end;
procedure TfrmSelectDBObject.TreeDBOFocusChanged(Sender: TBaseVirtualTree; procedure TfrmSelectDBObject.TreeDBOFocusChanged(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex); Node: PVirtualNode; Column: TColumnIndex);
var var
DBObj: PDBObject;
Tree: TVirtualStringTree; Tree: TVirtualStringTree;
begin begin
// Overtake node text into lower edit boxes // Overtake node text into lower edit boxes