С удивлением обнаружил Exception при failed в тесте DUnit.
То есть в коде:
Exception формирует сам DUnit. Детали напишу позже.
-----------------------
ЕСТЕСТВЕННО!! RTFM
А Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.
То есть в коде:
procedure TestTParser.TestCreate; var l_Parser : TScriptParser; begin l_Parser := TScriptParser.Create('Test_4_1.txt'); CheckFalse(l_Parser.EOF); // Если это условие не выполнится FreeAndNil(l_Parser); // сюда мы не попадем end;
Exception формирует сам DUnit. Детали напишу позже.
-----------------------
ЕСТЕСТВЕННО!! RTFM
А Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.
ЕСТЕСТВЕННО!! RTFM
ОтветитьУдалитьА Create Free без TRY..FINALLY - за это руки надо по локоть обрубать. СРАЗУ.