Programming Forums - View Single Post

Jimmy Bazooka · Mar 12th, 2007, 2:15 PM

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
     if Initalise > 0 then
       showmessage('Initalisation Error')
     else
       MessageBox.Text := 'Init OK';
  except
     showmessage('Error in Dll');
  end;
end;

firstly, i dont see the reason why you use try except block?

you have no crash unsafe calls there so you can easly remove it.

secondly, could you supply more info what components you want to implement in your DLL?

and what is MessageBox in your case? Is it the component created by DLL?

Mar 12th, 2007, 2:15 PM	#8
Jimmy Bazooka Newbie Join Date: Mar 2007 Location: at this heap offset AF3A: 66C3 Posts: 10 Rep Power: 0	(Toggle Plain Text) procedure TForm1.Button1Click(Sender: TObject); begin try if Initalise > 0 then showmessage('Initalisation Error') else MessageBox.Text := 'Init OK'; except showmessage('Error in Dll'); end; end; procedure TForm1.Button1Click(Sender: TObject); begin try if Initalise > 0 then showmessage('Initalisation Error') else MessageBox.Text := 'Init OK'; except showmessage('Error in Dll'); end; end; firstly, i dont see the reason why you use try except block? you have no crash unsafe calls there so you can easly remove it. secondly, could you supply more info what components you want to implement in your DLL? and what is MessageBox in your case? Is it the component created by DLL?