paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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;
end;
{$WARNINGS OFF}
{$WARNINGS OFF} {$HINTS OFF}
function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData;
begin
RaiseNotApplicable();
@ -1913,7 +1913,7 @@ function TNullStackItem.NilItem(AItem : TJSONData) : TJSONData;
begin
RaiseNotApplicable();
end;
{$WARNINGS ON}
{$WARNINGS ON} {$HINTS ON}
function TNullStackItem.GetScopeItemNames(const AReturnList : TStrings) : Integer;
begin

4
wst/trunk/base_xmlrpc_formatter.pas
View File

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

8
wst/trunk/date_utils.pas
View File

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