| # | 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 | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |