ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/FBClientAPI.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBClientAPI.pas (file contents):
Revision 347 by tony, Mon Sep 20 22:08:20 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

# Line 465 | Line 465 | begin
465   end;
466  
467   {$IFDEF UNIX}
468 +
469   procedure TFBClientAPI.GetTZDataSettings;
470   var S: TStringList;
471   begin
472    FLocalTimeOffset := GetLocalTimeOffset;
473 <  FLocalTimeZoneName := strpas(tzname[tzdaylight]);
473 >  {$if declared(Gettzname)}
474 >  FLocalTimeZoneName := Gettzname(tzdaylight);
475 >  {$else}
476 >  FLocalTimeZoneName := tzname[tzdaylight];
477 >  {$ifend}
478    FIsDaylightSavingsTime := tzdaylight;
479    if FileExists(DefaultTimeZoneFile) then
480    begin

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines