Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

remobject_pascal_script:obrabotka_iskljuchitelnyx_situacij [2018/04/02 11:11]
jurist23rus создано
remobject_pascal_script:obrabotka_iskljuchitelnyx_situacij [2018/04/23 09:14] (текущий)
7bit Форматирование кода
Строка 3: Строка 3:
 <code delphi> <code delphi>
 try try
- FS := TFileStream.Create(MyFileName, fmCreate);+  FS := TFileStream.Create(MyFileName, fmCreate);
 except except
- MsgBox(‘Ошибка’, ExceptionToString(ExceptionType, ExceptionParam);+  MsgBox(‘Ошибка’, ExceptionToString(ExceptionType, ExceptionParam);
 end; end;
 </code> </code>
Строка 12: Строка 12:
 <code delphi> <code delphi>
 try try
- FS := TFileStream.Create(MyFileName, fmCreate); +  FS := TFileStream.Create(MyFileName, fmCreate); 
- try +  try 
-  … +    … 
- finally +  finally 
-  FS.Free; +    FS.Free; 
- end;+  end;
 except except
- MsgBox(‘Ошибка’, ExceptionToString(ExceptionType, ExceptionParam);+  MsgBox(‘Ошибка’, ExceptionToString(ExceptionType, ExceptionParam);
 end; end;
 </code> </code>
Строка 27: Строка 27:
 <code delphi> <code delphi>
 try try
- +  
 except except
- +  
 finally finally
- +  
 end; end;
 </code> </code>
Строка 38: Строка 38:
 <code delphi> <code delphi>
 var var
- filename, emsg: string; +  filename, emsg: string; 
 begin begin
- filename = ''; +  filename = ''; 
- try +  try 
-  if filename = '' then +    if filename = '' then 
-  RaiseException(erCustomError, 'Имя файла не может быть пустым'); +      RaiseException(erCustomError, 'Имя файла не может быть пустым'); 
-  …  +    …  
- except +  except 
-  emsg := ExceptionToString(ExceptionType, ExceptionParam); +    emsg := ExceptionToString(ExceptionType, ExceptionParam); 
-  …  +    …  
- end;+  end;
 end; end;
 </code> </code>