paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-14 09:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix duplicate implementations

Browse Source
This commit is contained in:
michael 2018-03-19 13:26:30 +00:00
parent f607b048ad
commit 2f71f38f31
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/rtl/sysutils.pas
View File

@ -2610,12 +2610,6 @@ begin
result := StrToDate(S,ShortDateFormat,separator)
end;
function StrToDate(const S: String): TDateTime;
begin
result := StrToDate(S,ShortDateFormat,#0);
end;
function StrToDate(const S: String): TDateTime;
begin
result := StrToDate(S,ShortDateFormat,#0);
@ -3187,7 +3181,13 @@ end;
function TryStrToDate(const S: String; out Value: TDateTime): Boolean;
begin
result := TryStrToDate(S, Value, #0);
Result:=TryStrToDate(S,Value,ShortDateFormat,#0);
end;
function TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean;
begin
Result:=TryStrToDate(S,Value,ShortDateFormat,Separator);
end;
function TryStrToDate(const S: String; out Value: TDateTime;
@ -3206,16 +3206,7 @@ begin
end;
function TryStrToDate(const S: String; out Value: TDateTime): Boolean;
begin
Result:=TryStrToDate(S,Value,ShortDateFormat,#0);
end;
function TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean;
begin
Result:=TryStrToDate(S,Value,ShortDateFormat,Separator);
end;
function TryStrToTime(const S: String; out Value: TDateTime; separator : char): Boolean;
Var