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

* Fixed StrToTime. TimeAMString and/or TimePMString can be empty on some locales and StrToTime crashed in this case.

Browse Source 
git-svn-id: trunk@5957 -
This commit is contained in:
yury 2007-01-13 23:00:55 +00:00
parent c73860bc39
commit 2602ceb7e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -448,10 +448,10 @@ var
Inc(Current);
val(copy(S, j, 1 + Current - j), result, c);
end
else if (S[Current] = TimeAMString[1]) or (S[Current] in ['a', 'A']) then begin
else if ((TimeAMString<>'') and (S[Current] = TimeAMString[1])) or (S[Current] in ['a', 'A']) then begin
Current := 1 + Len;
end
else if (S[Current] = TimePMString[1]) or (S[Current] in ['p', 'P']) then begin
else if ((TimePMString<>'') and (S[Current] = TimePMString[1])) or (S[Current] in ['p', 'P']) then begin
Current := 1 + Len;
PM := True;
end