paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 09:29:25 +01: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 interface
uses uses
Classes, SysUtils, cgiApp, LResources; Classes, SysUtils, cgiApp, LCLProc, LResources;
Type Type
TCGIDatamodule = Class(TDataModule) TCGIDatamodule = Class(TDataModule)
@ -71,7 +71,6 @@ ResourceString
function InitResourceComponent(Instance: TComponent; function InitResourceComponent(Instance: TComponent;
RootAncestor: TClass): Boolean; RootAncestor: TClass): Boolean;
begin begin
writeln('AAA');
Result:=InitLazResourceComponent(Instance,RootAncestor); Result:=InitLazResourceComponent(Instance,RootAncestor);
end; end;
@ -80,7 +79,7 @@ end;
procedure TModuledCGIApplication.CreateForm(AClass: TCGIDataModuleClass; procedure TModuledCGIApplication.CreateForm(AClass: TCGIDataModuleClass;
Var Reference: TCGIDataModule); Var Reference: TCGIDataModule);
begin begin
writeln('TModuledCGIApplication.CreateForm ',AClass.CLassName); debugln('TModuledCGIApplication.CreateForm ',AClass.CLassName);
Reference:=AClass.CreateNew(Self,0); Reference:=AClass.CreateNew(Self,0);
If FMainModule=Nil then If FMainModule=Nil then
FMainModule:=Reference; FMainModule:=Reference;