Eine Art umgekehrte Prozedur

[Thomasl]

Eine ganz andere aber einfache Möglichkeit ist, den gleichen teil in eine IncludeDatei zu packen

Delphi-Quellcode:

function Test1(x: Integer): Integer;
begin
  {$I aaa.inc}
  Result := Result * x; //<<<<<< Nur diese Zeile ist anderes <<<<<<
  {$I bbb.inc}
end;

function Test2(y: Integer; s: String): Integer;
begin
  {$I aaa.inc}
  Result := Result * x + StrToInt(s); //<<<<<< Nur diese Zeile ist anderes <<<<<<
  {$I bbb.inc}
end;

aaa.inc

Code:

Result := 10; //Stellvertretend für viel Code

bbb.inc

Code:

Result := Result * 10; //Stellvertretend für viel Code