[patch_done] Patch for TZSQLiteConnection
Posted: 15.05.2009, 13:27
I've commented out the declareation of a variable named ErrorMessage in the Key and ReKey functions to remove a compiler hint.
Code: Select all
function TZSQLiteConnection.Key(const Key: string):Integer;
var
ErrorCode: Integer;
//HA 090515 removed because never used
//ErrorMessage: PChar;
begin
ErrorCode := FPlainDriver.Key(FHandle, PChar(Key), StrLen(PChar(Key)));
Result := ErrorCode;
end;
Code: Select all
function TZSQLiteConnection.ReKey(const Key: string):Integer;
var
ErrorCode: Integer;
//HA 090515 removed because never used
//ErrorMessage: PChar;
begin
ErrorCode := FPlainDriver.ReKey(FHandle, PChar(Key), StrLen(PChar(Key)));
Result := ErrorCode;
end;