Freiwillige Variable...

[Christian S.]

Du könntest auch mehrere Funktionen gleichen Namens mit "overload" deklarieren und dann getrennt implementieren. So irgendwie:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    function my_function(param1 : Integer; var my_var : Integer) : Boolean; overload;
    function my_function(param1 : Integer) : Boolean; overload;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function tform1. my_function(param1 : Integer; var my_var : Integer) : Boolean;
begin
  my_var:=1;
  result:=true;
end;
function tform1. my_function(param1 : Integer) : Boolean;
begin
  result:=false;
end;

end.