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

* Patch from Joao Morais to fix the case where only a time is provided

Browse Source 
git-svn-id: trunk@11199 -
This commit is contained in:
michael 2008-06-05 07:06:47 +00:00
parent 3df8e7ae7b
commit 767e3fee62
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -516,15 +516,37 @@ begin
end ;
{ StrToDateTime converts the string S to a TDateTime value
if S does not represent a valid date and time value
if S does not represent a valid date and/or time value
an EConvertError will be raised }
function StrToDateTime(const s: string): TDateTime;
var i: integer;
var
i, j, k, l: integer;
sd, st: string;
begin
i := pos(' ', s);
if i > 0 then result := ComposeDateTime(StrToDate(Copy(S, 1, i - 1)), StrToTime(Copy(S, i + 1, length(S))))
else result := StrToDate(S);
l := Length(s);
i := 1;
while (i <= l) and (s[i] = ' ') do
Inc(i);
j := i;
while (j <= l) and (s[j] <> ' ') do
Inc(j);
k := j;
while (k <= l) and (s[k] = ' ') do
Inc(k);
sd := Copy(s, i, j - i);
st := Copy(s, k, l);
if (st = '') and (Pos(TimeSeparator, sd) > 0) then
begin
st := sd;
sd := '';
end;
if (sd <> '') and (st <> '') then
Result := ComposeDateTime(StrToDate(sd), StrToTime(st))
else if st = '' then
Result := StrToDate(sd)
else
Result := StrToTime(st);
end ;
{ FormatDateTime formats DateTime to the given format string FormatStr }