[patch_done] Patch for TZSQLiteConnection

[Ostfriese]

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;

[mdaems]

Done in http://fisheye2.atlassian.com/changelog/zeos?cs=512 already.

Mark