paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

suppress warning

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1001 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-11-10 10:52:11 +00:00
parent 4915b284cc
commit 73d227205a
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/date_utils.pas
View File

@ -433,10 +433,10 @@ var
buffer : string;
begin
//hh ':' mm ':' ss ('.' s+)? (zzzzzz)?
if ( ( ATime.Hour < 0 ) or ( ATime.Hour > 23 ) ) or
( ( ATime.Minute < 0 ) or ( ATime.Minute > 59 ) ) or
( ( ATime.Second < 0 ) or ( ATime.Second > 59 ) ) or
( ATime.MilliSecond < 0 )
if ( {( ATime.Hour < 0 ) or} ( ATime.Hour > 23 ) ) or
( {( ATime.Minute < 0 ) or} ( ATime.Minute > 59 ) ) or
( {( ATime.Second < 0 ) or} ( ATime.Second > 59 ) ) {or
( ATime.MilliSecond < 0 )}
then begin
buffer := Format('{ Hour : %d; Minute : %d; Second : %d; SecondFractional : %d}',[ATime.Hour,ATime.Minute,ATime.Second,ATime.MilliSecond]);
raise EConvertError.CreateFmt(SERR_InvalidTime,[buffer]);

2
wst/trunk/imp_utils.pas
View File

@ -147,6 +147,8 @@ begin
prcsn := 7;
{$IFEND}
end;
else
prcsn := 7;
end;
frmt := '#.' + StringOfChar('#',prcsn) + 'E-0';
{$IFDEF HAS_FORMAT_SETTINGS}

2
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@ -1384,6 +1384,7 @@ var
begin
if not AnsiSameText(ExtractNameFromQName(FTypeNode.NodeName),s_complexType) then
raise EXsdParserAssertException.CreateFmt('%s expected but %s found.',[s_complexType,ExtractNameFromQName(FTypeNode.NodeName)]);
Result := nil;
CreateNodeCursors();
ExtractTypeName();
locContinue := True;
@ -1604,6 +1605,7 @@ var
begin
if not AnsiSameText(ExtractNameFromQName(FTypeNode.NodeName),s_simpleType) then
raise EXsdParserAssertException.CreateFmt('%s expected but %s found.',[s_simpleType,ExtractNameFromQName(FTypeNode.NodeName)]);
Result := nil;
CreateNodeCursors();
ExtractTypeName();
locContinue := True;