From a9f1f076b0fca681fb15dde4804b703fb2a7beee Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 17 Mar 2011 23:07:02 +0000
Subject: [PATCH] Fix two minor compiler warnings.

---
 source/main.pas           | 1 +
 source/selectdbobject.pas | 1 -
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/main.pas b/source/main.pas
index 4808f1dd..93487554 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -8103,6 +8103,7 @@ begin
       avg_persec := '';
 
       // Detect value type
+      valIsNumber := False;
       try
         valIsNumber := IntToStr(MakeInt(val)) = val;
       except on E:EInvalidOp do
diff --git a/source/selectdbobject.pas b/source/selectdbobject.pas
index c9036ad5..506e477a 100644
--- a/source/selectdbobject.pas
+++ b/source/selectdbobject.pas
@@ -125,7 +125,6 @@ end;
 procedure TfrmSelectDBObject.TreeDBOFocusChanged(Sender: TBaseVirtualTree;
     Node: PVirtualNode; Column: TColumnIndex);
 var
-  DBObj: PDBObject;
   Tree: TVirtualStringTree;
 begin
   // Overtake node text into lower edit boxes