write
and
writeln
to write to the output document.
procedure TFormHTSAMP.WebDemoAppExecute(Sender: TWebOutputApp; var bContinue: Boolean); begin inherited; with tWebApp(Sender) do if Command='WRITE' then with WebOutput do begin ConsoleOutput:=true; //insure that the console is available; Command:=''; //create an entire page using standard output. //note the HtmlTitle and HtmlFooter functions to structure the page. Open; //actually happens implicitly on the first write. write(HtmlTitle('Hello There'),'Hello ',1234,' ',12345.678:10:2,'<br>'); writeln('Testing!','<br>',HtmlFooter); Close; //close the page to signal that we're done. end; end;
constructor CreateFor(aOwner:TComponent;const aProperty:String); virtual; constructor CreateFor(aOwner:TComponent;const aProperty:String; ItemClass:TCollectionItemClass);