pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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; buffer : string;
begin begin
//hh ':' mm ':' ss ('.' s+)? (zzzzzz)? //hh ':' mm ':' ss ('.' s+)? (zzzzzz)?
if ( ( ATime.Hour < 0 ) or ( ATime.Hour > 23 ) ) or if ( {( ATime.Hour < 0 ) or} ( ATime.Hour > 23 ) ) or
( ( ATime.Minute < 0 ) or ( ATime.Minute > 59 ) ) or ( {( ATime.Minute < 0 ) or} ( ATime.Minute > 59 ) ) or
( ( ATime.Second < 0 ) or ( ATime.Second > 59 ) ) or ( {( ATime.Second < 0 ) or} ( ATime.Second > 59 ) ) {or
( ATime.MilliSecond < 0 ) ( ATime.MilliSecond < 0 )}
then begin then begin
buffer := Format('{ Hour : %d; Minute : %d; Second : %d; SecondFractional : %d}',[ATime.Hour,ATime.Minute,ATime.Second,ATime.MilliSecond]); buffer := Format('{ Hour : %d; Minute : %d; Second : %d; SecondFractional : %d}',[ATime.Hour,ATime.Minute,ATime.Second,ATime.MilliSecond]);
raise EConvertError.CreateFmt(SERR_InvalidTime,[buffer]); raise EConvertError.CreateFmt(SERR_InvalidTime,[buffer]);

2
wst/trunk/imp_utils.pas
View File

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

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

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