pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

compile fix for BCB XE3

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@174 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2013-02-05 11:43:53 +00:00
parent 31f7a854e8
commit b153e2469b
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
synautil.pas
View File

@@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 004.015.003 |
| Project : Ararat Synapse | 004.015.004 |
|==============================================================================|
| Content: support procedures and functions |
|==============================================================================|
@@ -607,7 +607,7 @@ begin
x := rpos(':', Value);
if (x > 0) and ((Length(Value) - x) > 2) then
Value := Copy(Value, 1, x + 2);
Value := ReplaceString(Value, ':', {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}TimeSeparator);
Value := ReplaceString(Value, ':', {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}TimeSeparator);
Result := -1;
try
Result := StrToTime(Value);
@@ -2081,7 +2081,7 @@ var
begin
for n := 1 to 12 do
begin
CustomMonthNames[n] := {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
MyMonthNames[0, n] := {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
CustomMonthNames[n] := {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
MyMonthNames[0, n] := {$IFDEF COMPILER15_UP}FormatSettings.{$ENDIF}ShortMonthNames[n];
end;
end.