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

* fix bug #9438

Browse Source 
git-svn-id: trunk@8288 -
This commit is contained in:
Almindor 2007-08-16 09:58:35 +00:00
parent 78c364db94
commit 1e4dd0685a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -371,9 +371,16 @@ begin
n := 0;
for i := 1 to length(s) do
begin
if (s[i] in ['0'..'9']) then
if s[i] in ['0'..'9'] then
s1 := s1 + s[i];
if (s[i] in [dateseparator,' ']) or ((i = length(s)) and (s[i] in ['0'..'9'])) then
{ space can be part of the shortdateformat, and is defaultly in slovak
windows, therefor it shouldn't be taken as separator (unless so specified)
and ignored }
if (DateSeparator <> ' ') and (s[i] = ' ') then
Continue;
if (s[i] = dateseparator) or ((i = length(s)) and (s[i] in ['0'..'9'])) then
begin
inc(n);
if n>3 then