paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes Joost's commit for non unix hopefully

Browse Source 
git-svn-id: trunk@3690 -
This commit is contained in:
florian 2006-05-27 08:35:56 +00:00
parent 6fa48a858a
commit 02db8f5c84
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -580,7 +580,7 @@ var
end ;
token:=#255;
lastformattoken:=' ';
while FormatCurrent < FormatEnd do
while FormatCurrent < FormatEnd do
begin
Token := UpCase(FormatCurrent^);
Count := 1;
@ -756,7 +756,7 @@ Var Date,Time : Word;
begin
Date:=FileDate shr 16;
Time:=FileDate and $ffff;
Result:=ComposeDate(EncodeDate((Date shr 9) + 1980,(Date shr 5) and 15, Date and 31),
Result:=ComposeDateTime(EncodeDate((Date shr 9) + 1980,(Date shr 5) and 15, Date and 31),
EncodeTime(Time shr 11, (Time shr 5) and 63, (Time and 31) shl 1,0));
end;
{$else unix}
@ -779,8 +779,8 @@ function TryStrToDate(const S: string; out Value: TDateTime): Boolean;
result:=false
end;
end;
// function TryStrToDate(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
@ -794,8 +794,8 @@ function TryStrToTime(const S: string; out Value: TDateTime): Boolean;
result:=false
end;
end;
// function TryStrToTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;
@ -809,8 +809,8 @@ function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
result:=false
end;
end;
// function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean;