Hi !
Thanks EgonHugeist ! I found one more little problem, below is the cod segment and the solution:
unit ZDbcCache
function CompareNativeRaw(const V1, V2): Integer;
begin
{$IFDEF MSWINDOWS}
Result := CompareStringA(LOCALE_USER_DEFAULT, 0,
PAnsiChar(Pointer(V1)^)+PAnsiInc, PLongWord(Pointer(V1)^)^,
PAnsiChar(Pointer(V2)^)+PAnsiInc, PLongWord(Pointer(V2)^)^) - 2{CSTR_EQUAL}
{$ELSE}
if Assigned(PPAnsichar(Pointer(V1)^) and Assigned(PPAnsiChar(Pointer(V2)^) then <--- ZDbcCache.pas(441,80) Fatal: Syntax error, ")" expected but "THEN" found
Result := {$IFDEF WITH_ANSISTRCOMP_DEPRECATED}AnsiStrings.{$ENDIF}
AnsiStrComp(PPAnsiChar(V1)^+PAnsiInc, PPAnsiChar(V2)^+PAnsiInc)
else //we've found out on other (FPC)OS's a nil compare crahs!
if not Assigned(PPAnsichar(Pointer(V1)^) and not Assigned(PPAnsiChar(Pointer(V1)^) then <--- ZDbcCache.pas(445,92) Fatal: Syntax error, ")" expected but "THEN" found
Result := 0
else
Result := -1
{$ENDIF}
end;
the solution is to add ")" to the end of Assigned functions.
Regards, Patyi.
PS. I lost (forget) my Zeos forum password, and can't get it because my email is changed from patyi@_.yu to patyi@_.rs. I will open a new Zeos account ...