So I commented them out to stop bloating the compiler log
Code: Select all
function TZAbstractDatabaseMetadata.GetBestRowIdentifier(const Catalog: string;
const Schema: string; const Table: string; Scope: Integer; Nullable: Boolean): IZResultSet;
var
Key: string;
//HA 090515 remove unused variables ..
//IndexName: string;
//ColumnNames: TStrings;
//..
begin
Key := GetBestRowIdentifierCacheKey(Catalog, Schema, Table, Scope,
Nullable);
Result := GetResultSetFromCache(Key);
if Result = nil then
begin
Result := UncachedGetBestRowIdentifier(Catalog, Schema, Table, Scope, Nullable);
AddResultSetToCache(Key, Result);
end;
end;
Code: Select all
function TZAbstractDatabaseMetadata.UncachedGetCrossReference(const PrimaryCatalog: string;
const PrimarySchema: string; const PrimaryTable: string; const ForeignCatalog: string;
const ForeignSchema: string; const ForeignTable: string): IZResultSet;
//HA 090515 remove unused variables ..
//var
//Key: string;
//..
begin
Result := ConstructVirtualResultSet(CrossRefColumnsDynArray);
end;