TZSQLite3PlainDriver.Open
Posted: 07.12.2008, 03:19
IS
Should be
Code: Select all
function TZSQLite3PlainDriver.Open(const filename: PAnsiChar; mode: Integer;
var errmsg: PAnsiChar): Psqlite;
var
Result0: Psqlite;
Version: string;
FileNameString: String;
begin
Result0:= nil;
Version := LibVersion;
FileNameString := filename;
if (Version > '3.2.5') then
ZPlainSqLite3.sqlite_open(PAnsiChar(AnsiToUTF8(FileNameString)), Result0)
else
ZPlainSqLite3.sqlite_open(filename, Result0);
Result := Result0;
end;
Code: Select all
function TZSQLite3PlainDriver.Open(const filename: PAnsiChar; mode: Integer;
var errmsg: PAnsiChar): Psqlite;
var
Result0: Psqlite;
begin
Result0:= nil;
ZPlainSqLite3.sqlite_open(FileName, Result0);
Result := Result0;
end;