paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 00:07:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ cycling with 1.0.x fixed, hopefully the last fix of this for ever ;)

Browse Source
This commit is contained in:
florian 2005-05-08 08:03:15 +00:00
parent 868c3c9644
commit 207e67cc4d
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/dati.inc
View File

@ -753,6 +753,7 @@ begin
EncodeTime(Time shr 11, (Time shr 5) and 63, (Time and 31) shl 1,0);
end;
{$ifndef VER1_0}
function TryStrToDate(const S: string; out Value: TDateTime): Boolean;
begin
@ -798,10 +799,14 @@ function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
// function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
{$endif VER1_0}
{
$Log$
Revision 1.10 2005-05-07 10:23:17 florian
Revision 1.11 2005-05-08 08:03:15 florian
+ cycling with 1.0.x fixed, hopefully the last fix of this for ever ;)
Revision 1.10 2005/05/07 10:23:17 florian
+ TryStrToDate/Time functions
Revision 1.9 2005/03/25 22:53:39 jonas

7
rtl/objpas/sysutils/datih.inc
View File

@ -122,19 +122,24 @@ function FormatDateTime(FormatStr: string; DateTime: TDateTime):string;
procedure DateTimeToString(var Result: string; const FormatStr: string; const DateTime: TDateTime);
Function DateTimeToFileDate(DateTime : TDateTime) : Longint;
Function FileDateToDateTime (Filedate : Longint) :TDateTime;
{$ifndef VER1_0}
function TryStrToDate(const S: string; out Value: TDateTime): Boolean;
// function TryStrToDate(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
function TryStrToTime(const S: string; out Value: TDateTime): Boolean;
// function TryStrToTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
// function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
{$endif VER1_0}
{ FPC Extra }
Procedure GetLocalTime(var SystemTime: TSystemTime);
{
$Log$
Revision 1.5 2005-05-07 10:23:17 florian
Revision 1.6 2005-05-08 08:03:15 florian
+ cycling with 1.0.x fixed, hopefully the last fix of this for ever ;)
Revision 1.5 2005/05/07 10:23:17 florian
+ TryStrToDate/Time functions
Revision 1.4 2005/03/17 15:21:10 marco