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

* Fixed warning and removed semicolon-typo

Browse Source 
git-svn-id: trunk@13248 -
This commit is contained in:
joost 2009-06-09 14:57:19 +00:00
parent f0e6946688
commit 04ca09c600
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/fpweb.pp
View File

@ -38,10 +38,10 @@ Type
Procedure DoHandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean); override;
Procedure DoGetContent(ARequest : TRequest; Content : TStream; Var Handled : Boolean); virtual;
Procedure GetContent(ARequest : TRequest; Content : TStream; Var Handled : Boolean);
Procedure Assign(Source : TPersistent); override;
Public
Constructor create(ACollection : TCollection); override;
Destructor destroy; override;
Procedure Assign(Source : TPersistent); override;
published
Property Content : String Read GetStringContent Write SetContent;
Property Contents : TStrings Read GetContents Write SetContents;
@ -332,7 +332,7 @@ end;
procedure TCustomFPWebModule.SetActions(const AValue: TFPWebActions);
begin
if (FActions<>AValue) then;
if (FActions<>AValue) then
FActions.Assign(AValue);
end;