--- Merging r21523 into '.':

U    rtl/objpas/sysutils/datih.inc

# revisions: 21523
r21523 | jonas | 2012-06-08 00:36:15 +0200 (Fri, 08 Jun 2012) | 3 lines
Changed paths:
   M /trunk/rtl/objpas/sysutils/datih.inc

  * add default parameter values defined in implementation also to interface
    (they don't have effect when they only appear in the implementation, and
     therefore this situation will cause an error in the future)

git-svn-id: branches/fixes_2_6@22684 -

rtl/objpas/sysutils/datih.inc

@@ -130,8 +130,8 @@ function StrToTime(const S: Ansistring): TDateTime;                   {$ifdef SY
 function StrToTime(const S: ShortString; separator : char): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}
 function StrToTime(const S: AnsiString; separator : char): TDateTime; {$ifdef SYSUTILSINLINE}inline;{$endif}
 function StrToTime(const S: string; FormatSettings : TFormatSettings): TDateTime;
-function StrToDate(const S: ShortString; const useformat : string; separator : char): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}
-function StrToDate(const S: AnsiString; const useformat : string; separator : char): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}
+function StrToDate(const S: ShortString; const useformat : string; separator : char = #0): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}
+function StrToDate(const S: AnsiString; const useformat : string; separator : char = #0): TDateTime;{$ifdef SYSUTILSINLINE}inline;{$endif}
 function StrToTime(const S: PChar; Len : integer; separator : char = #0): TDateTime;
 function StrToDate(const S: PChar; Len : integer; const useformat : string; separator : char = #0): TDateTime;
 function StrToDateTime(const S: string): TDateTime;