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

* Correctly split date/time parts when dateseparator is a space

Browse Source 
git-svn-id: trunk@13888 -
This commit is contained in:
michael 2009-10-17 11:18:16 +00:00
parent df5dec2106
commit 4c2fe8bc31
1 changed files with 46 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -633,51 +633,58 @@ end;
function StrToDateTime(const s: string): TDateTime;
var
i: integer;
I: integer;
begin
i := Pos(' ',s);
if i > 0 then begin
result := ComposeDateTime(StrToDate(@S[1], i - 1, ShortDateFormat, DateSeparator)
, StrToTime(@S[i+1], Length(S)-i , TimeSeparator));
end
else if pos(TimeSeparator,s) > 0 then
result := StrToTime(s,TimeSeparator)
else
result := StrToDate(s,LongDateFormat, DateSeparator)
end ;
function StrToDateTime(const s: ShortString; const UseFormat : TFormatSettings): TDateTime;
var
i : integer;
begin
with useformat do begin
i := Pos(' ',s);
if i > 0 then begin
result := ComposeDateTime(StrToDate(@S[1], i - 1, ShortDateFormat, DateSeparator)
, StrToTime(@S[i+1], Length(S)-i , TimeSeparator));
end
else if pos(TimeSeparator,s) > 0 then
result := StrToTime(s,TimeSeparator)
else
result := StrToDate(s, ShortDateFormat, DateSeparator)
end;
I:=Pos(TimeSeparator,S);
If (I>0) then
begin
While (I>0) and (S[I]<>' ') do
Dec(I);
If I>0 then
result:=ComposeDateTime(StrToDate(Copy(S,1,I-1)),StrToTime(Copy(S,i+1, Length(S)-i)))
else
result:=StrToTime(S)
end
else
Result:=StrToDate(S);
end;
function StrToDateTime(const s: AnsiString; const UseFormat : TFormatSettings): TDateTime;
var
i : integer;
I: integer;
begin
with useformat do begin
i := Pos(' ',s);
if i > 0 then begin
result := ComposeDateTime(StrToDate(@S[1], i - 1, ShortDateFormat, DateSeparator)
, StrToTime(@S[i+1], Length(S)-i , TimeSeparator));
end
else if pos(TimeSeparator,s) > 0 then
result := StrToTime(s,TimeSeparator)
else
result := StrToDate(s,ShortDateFormat, DateSeparator)
end;
I:=Pos(TimeSeparator,S);
If (I>0) then
begin
While (I>0) and (S[I]<>' ') do
Dec(I);
If I>0 then
result:=ComposeDateTime(StrToDate(Copy(S,1,I-1),UseFormat.ShortDateFormat,UseFormat.DateSeparator),
StrToTime(Copy(S,i+1, Length(S)-i),UseFormat.TimeSeparator))
else
result:=StrToTime(S,UseFormat.TimeSeparator)
end
else
Result:=StrToDate(S,UseFormat.ShortDateFormat,UseFormat.DateSeparator);
end;
function StrToDateTime(const s: ShortString; const UseFormat : TFormatSettings): TDateTime;
var
I: integer;
begin
I:=Pos(TimeSeparator,S);
If (I>0) then
begin
While (I>0) and (S[I]<>' ') do
Dec(I);
If I>0 then
result:=ComposeDateTime(StrToDate(Copy(S,1,I-1),UseFormat.ShortDateFormat,UseFormat.DateSeparator),
StrToTime(Copy(S,i+1, Length(S)-i),UseFormat.TimeSeparator))
else
result:=StrToTime(S,UseFormat.TimeSeparator)
end
else
Result:=StrToDate(S,UseFormat.ShortDateFormat,UseFormat.DateSeparator);
end;
{ FormatDateTime formats DateTime to the given format string FormatStr }