Ähm...das kann nicht kompilieren:
Delphi-Quellcode:
unit bpl_unit;
interface
procedure bpl_unit1_test;
implementation
procedure bpl_unit1_test;
begin
raise Exception.Create (bpl_unit1_test);
// Exception nicht definiert durch fehlende SysUtils und das Argument für den Konstruktor muss ein string sein.
end;
end.
Also wenn dann, kann höchstens so:
Delphi-Quellcode:
unit bpl_unit;
interface
uses
System.SysUtils;
procedure bpl_unit1_test;
implementation
procedure bpl_unit1_test;
begin
raise Exception.Create ('
bpl_unit1_test');
end;
en
Dann kompiliert auch alles.