paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed writeln

Browse Source 
git-svn-id: trunk@8671 -
This commit is contained in:
mattias 2006-01-31 14:00:48 +00:00
parent ebb80e5949
commit dedc5ad403
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/cgi/cgimodules.pas
View File

@ -19,7 +19,7 @@ unit cgiModules;
interface
uses
Classes, SysUtils, cgiApp, LResources;
Classes, SysUtils, cgiApp, LCLProc, LResources;
Type
TCGIDatamodule = Class(TDataModule)
@ -71,7 +71,6 @@ ResourceString
function InitResourceComponent(Instance: TComponent;
RootAncestor: TClass): Boolean;
begin
writeln('AAA');
Result:=InitLazResourceComponent(Instance,RootAncestor);
end;
@ -80,7 +79,7 @@ end;
procedure TModuledCGIApplication.CreateForm(AClass: TCGIDataModuleClass;
Var Reference: TCGIDataModule);
begin
writeln('TModuledCGIApplication.CreateForm ',AClass.CLassName);
debugln('TModuledCGIApplication.CreateForm ',AClass.CLassName);
Reference:=AClass.CreateNew(Self,0);
If FMainModule=Nil then
FMainModule:=Reference;