paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpc doesn't allow extended(AnInteger) anymore in mode delphi, since Delphi doesn't allow it either

Browse Source 
git-svn-id: trunk@8732 -
This commit is contained in:
vincents 2006-02-12 13:26:26 +00:00
parent 5125dffdf8
commit a9e4ccfa2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iputils.pas
View File

@ -2653,7 +2653,7 @@ var
s: String;
begin
DecodeDate(DateTime, Yr, Mo, Dy);
s := Format('%g', [Abs(Extended(TimeZoneBias)/60)]);
s := Format('%g', [Abs(TimeZoneBias/60)]);
if Length(s) = 1 then
s := '0' + s;
if TimeZoneBias < 0 then s := '-' + s;