[Pas2js] Optimization
    pas2js at gauns.org 
    pas2js at gauns.org
       
    Wed Feb 26 09:31:18 CET 2020
    
    
  
> Add somewhere safe:
>   if false then Button1Click(nil);
thats the way i do it now
-----
procedure TForm1.Button1Click(Sender: TObject);
begin
   if Sender = Nil then
     Exit;
   WriteLn( 'Button1 Clicked' );
end;
-----
but its not very nice to have the same code in every event
would be better to have a method to tell the optimization process
"do not remove this procedure" with {$O-} and {$O+} or what ever 
directive
thanks
peter
> 
> Mattias
> _______________________________________________
> Pas2js maillist  -  Pas2js at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/pas2js
    
    
More information about the Pas2js
mailing list