Browse Source

* Fix some warnings/hints

git-svn-id: trunk@42899 -
michael 6 years ago
parent
commit
81d398068f

+ 2 - 2
packages/fcl-base/tests/tccsvreadwrite.pp

@@ -5,7 +5,7 @@ unit tccsvreadwrite;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry, csvreadwrite;
+  Classes, SysUtils, fpcunit, testregistry, csvreadwrite;
 
 type
 
@@ -102,7 +102,7 @@ end;
 procedure TTestCSVReadWrite.SetUp;
 begin
   FParser:=TCSVParser.Create;
-  FData:=Tstrings.Create;
+  FData:=TStringList.Create;
 end;
 
 procedure TTestCSVReadWrite.TearDown;

+ 2 - 0
packages/fcl-base/tests/testexprpars.pp

@@ -5127,6 +5127,7 @@ Var
   Res : TFPExpressioNResult;
 
 begin
+  Res:=Default(TFPExpressioNResult);
   AssertEquals('Only one identifier',1,FP.Identifiers.Count);
   Case FAccessAs of
     rtBoolean  : FP.Identifiers[0].AsBoolean:=res.ResBoolean;
@@ -6738,6 +6739,7 @@ Var
   I : Integer;
 
 begin
+  Result:=Default(TExprArgumentArray);
   SetLength(Result,High(Args)-Low(Args)+1);
   For I:=Low(Args) to High(Args) do
     Result[I]:=Args[i].VObject as TFPExprNode;