Check 是TestCase 類提供的一個(gè)方法。以下是TestCase 的實(shí)現(xiàn)代碼：

　　如果Check 沒有通過的話，Dunit 將報(bào)錯(cuò)。錯(cuò)誤提示在第二個(gè)參數(shù)中定義，其他有關(guān)類及方法的定義請(qǐng)看連機(jī)文檔，文檔放在Dunit 安裝目錄docAPIIDH_Library_DUnit_-_Xtreme_Unit_Testing_for_Delphi.htmInitialzation 代碼完成測(cè)試單元的注冊(cè)。

　　修改Project 主文件

　　運(yùn)行前的后一步是修改Project 主文件TestProject.dpr。先使用菜單Project->View Source 打開TestProject.dpr.

　　修改后的代碼如下：

       program TestProject;
       uses
       Forms，
       TestFrameWork，
       GUITestRunner，
       TestUnit in 'TestUnit.pas';
       {$R *.res}
       begin
              Application.Initialize;
       //Application.Run;
       GUITestRunner.RunRegisteredTests;
       end.

　　上面的加粗代碼是要增加和修改。