Ja, gebe euch Recht. Hab aus den abstrakten virtuelle gemacht, die Codevervollständung gedrückt und den Source so ergänzt.
Delphi-Quellcode:
procedure TMemoForm.Button2Click(Sender: TObject);
var
I: integer;
S0, S1, S2:
string;
C: char;
begin
C := '
''
';
for I := 0
to MemoA.Lines.Count - 3
do
begin
S0 := Trim(MemoA.Lines[I]);
S1 := Trim(MemoA.Lines[I + 1]);
S2 := Trim(MemoA.Lines[I + 2]);
if (S0 = '
begin')
and (S1 = '
')
and (S2 = '
end;')
then
MemoA.Lines[I + 1] := '
raise Exception.Create(' + C +'
abstract Method' + C + '
);';
end;
end;