Internet










 

 

Try ... Except ...

:

var
      number, zero :Integer;
begin
  Try
       zero := 0;
       number := 1 div zero;
       ShowMessage('number / zero = '+IntToStr(number));
  Except
      ShowMessage(' ');
  end;
end;

ekonom-it.ru

    OpenDialog  SaveDialog  Try ... Finally ...  Delphi  Delphi      .  


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru