[patch_done] Patch for TZSQLiteConnection

Code patches written by our users to solve certain "problems" that were not solved, yet.

Moderators: gto, cipto_kh, EgonHugeist, mdaems

Ostfriese
Junior Boarder
Junior Boarder
Posts: 25
Joined: 12.05.2009, 10:48
Location: Coburg
Contact:

[patch_done] Patch for TZSQLiteConnection

Postby Ostfriese » 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;
Thomas Jefferson wrote:Information ist die Währung der Demokratie

User avatar
mdaems
Zeos Project Manager
Zeos Project Manager
Posts: 2766
Joined: 20.09.2005, 15:28
Location: Brussels, Belgium
Contact:

Postby mdaems » 20.05.2009, 22:07

Image


Return to “User Patches”

Who is online

Users browsing this forum: No registered users and 1 guest