pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warnings and hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@899 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-07-07 11:19:25 +00:00
parent ed00c63b47
commit f895ddb46d
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_json_formatter.pas
View File

@ -1878,7 +1878,7 @@ begin
Result := nil; Result := nil;
end; end;
{$WARNINGS OFF} {$WARNINGS OFF} {$HINTS OFF}
function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData; function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData;
begin begin
RaiseNotApplicable(); RaiseNotApplicable();
@ -1913,7 +1913,7 @@ function TNullStackItem.NilItem(AItem : TJSONData) : TJSONData;
begin begin
RaiseNotApplicable(); RaiseNotApplicable();
end; end;
{$WARNINGS ON} {$WARNINGS ON} {$HINTS ON}
function TNullStackItem.GetScopeItemNames(const AReturnList : TStrings) : Integer; function TNullStackItem.GetScopeItemNames(const AReturnList : TStrings) : Integer;
begin begin

4
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -2088,7 +2088,7 @@ end;
{ TSimpleTypeStackItem } { TSimpleTypeStackItem }
{$WARNINGS OFF} {$WARNINGS OFF} {$HINTS OFF}
function TSimpleTypeStackItem.FindNode(var ANodeName: string): TDOMNode; function TSimpleTypeStackItem.FindNode(var ANodeName: string): TDOMNode;
begin begin
raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['FindNode']); raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['FindNode']);
@ -2106,7 +2106,7 @@ function TSimpleTypeStackItem.GetScopeItemNames(const AReturnList: TStrings): In
begin begin
raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['GetScopeItemNames']); raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['GetScopeItemNames']);
end; end;
{$WARNINGS ON} {$WARNINGS ON} {$HINTS ON}
end. end.

8
wst/trunk/date_utils.pas
View File

@ -114,7 +114,7 @@ resourcestring
implementation implementation
uses Math, DateUtils; uses DateUtils;
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64): TDateTime; function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64): TDateTime;
begin begin
@ -214,7 +214,7 @@ var
Result := TryStrToInt(Copy(buffer,locStartPos,(bufferPos-locStartPos)),AValue); Result := TryStrToInt(Copy(buffer,locStartPos,(bufferPos-locStartPos)),AValue);
end; end;
function ReadMiliSeconds(out AValue : Integer; const ASeparatorAtEnd : Char) : Boolean; function ReadMiliSeconds(out AValue : Integer) : Boolean;
var var
locDigitCount, locRes, itemp, locErcode : Integer; locDigitCount, locRes, itemp, locErcode : Integer;
begin begin
@ -281,7 +281,7 @@ begin
ok := ReadInt(ss,#0); ok := ReadInt(ss,#0);
if ok and ( bufferPos < bufferLen ) and ( buffer[bufferPos] = '.' ) then begin if ok and ( bufferPos < bufferLen ) and ( buffer[bufferPos] = '.' ) then begin
Inc(bufferPos); Inc(bufferPos);
ok := ReadMiliSeconds(ssss,#0); ok := ReadMiliSeconds(ssss);
end else begin end else begin
ssss := 0; ssss := 0;
end; end;
@ -325,6 +325,7 @@ begin
raise EConvertError.CreateFmt(SERR_InvalidDate,[AStr]); raise EConvertError.CreateFmt(SERR_InvalidDate,[AStr]);
end; end;
{$HINTS OFF}
function xsd_DateTimeToStr(const ADate : TDateTimeRec) : string; function xsd_DateTimeToStr(const ADate : TDateTimeRec) : string;
var var
locDate : TDateTime; locDate : TDateTime;
@ -343,6 +344,7 @@ begin
else else
Result := Format('%.4d-%.2d-%.2dT%.2d:%.2d:%.2d.%.3dZ',[y,m,d, hh,mn,ss,ssss]); Result := Format('%.4d-%.2d-%.2dT%.2d:%.2d:%.2d.%.3dZ',[y,m,d, hh,mn,ss,ssss]);
end; end;
{$HINTS ON}
function xsd_DateTimeToStr(const ADate : TDateTime) : string; function xsd_DateTimeToStr(const ADate : TDateTime) : string;
var var