Инструменты пользователя

Инструменты сайта


remobject_pascal_script:obrabotka_iskljuchitelnyx_situacij

Различия

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

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

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>​
remobject_pascal_script/obrabotka_iskljuchitelnyx_situacij.txt · Последние изменения: 2018/04/23 09:14 — 7bit