From 0a6c06921c64e011af3d6317e3d089711c4af488 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 29 Dec 2014 18:54:07 +0000 Subject: [PATCH] Fix some compiler hints --- source/dbconnection.pas | 3 --- 1 file changed, 3 deletions(-) diff --git a/source/dbconnection.pas b/source/dbconnection.pas index b0750e2f..fa6b0c46 100644 --- a/source/dbconnection.pas +++ b/source/dbconnection.pas @@ -1437,7 +1437,6 @@ var begin rx := TRegExpr.Create; rx.ModifierI := True; - Match := False; MatchLen := 0; for i:=0 to High(FDatatypes) do begin Types := FDatatypes[i].Name; @@ -5224,7 +5223,6 @@ var NumResults: Integer; FieldTypeOID: POid; LastResult: PPGresult; - TypeFound: Boolean; rx: TRegExpr; begin if UseRawResult = -1 then begin @@ -5268,7 +5266,6 @@ begin FColumnNames.Add(Connection.DecodeAPIString(PQfname(LastResult, i))); FColumnOrgNames.Add(FColumnNames[FColumnNames.Count-1]); FieldTypeOID := PQftype(LastResult, i); - TypeFound := False; FColumnTypes[i] := FConnection.GetDatatypeByNativeType(FieldTypeOID, FColumnNames[FColumnNames.Count-1]); end; rx.Free;