Stealth Client Forum

CFA wrote:

drabadan wrote:O_o а может тогда и аут оф рендж можно обработать?

try/except в PS вроде работает, можно попробовать перехватить исключение.

Error exec script method "TestTryExcept" - Wrong index!

procedure TestTryExcept;
var
 fArray : Array of Byte;
begin
 
 fArray := [0,1,2,3,4];
 try
  AddToSystemJournal(IntToStr(fArray[8]));
 except
  raiseException(erCustomError, 'Wrong index!'); 
 end; 

 
 AddToSystemJournal(IntToStr(fArray[0])); 
end;

CFA wrote:

Code: Select all

try
  AddToSystemJournal(IntToStr(fArray[8]));
 except
  //raiseException(erCustomError, 'Wrong index!'); 
  AddToSystemJournal('Wrong index!');
 end; 

raiseException не нужно, эта команда создает исключение, которое останавливает скрипт.

И еще вместо raiseException для остановки скрипта можно использовать процедуру Halt.

drabadan wrote:А ивент реально создать на такой екзепт?

CFA wrote:

drabadan wrote:А ивент реально создать на такой екзепт?

Ивент скорее всего нет, да и не нужен он - try/except это стандартный способ обработки исключительных ситуаций.