Freiwillige Variable...

[Jens Schumann]

Hallo,
Du musst ja nicht unbedingt Integers als var-Parameter übergeben. Du kannst ja die Integer als PInteger deklarieren.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    function BSP(wert1,wert2:integer;R1 : PInteger = Nil;R2 : PInteger = Nil) : boolean;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }


{ TForm1 }

function TForm1.BSP(wert1, wert2: integerR1 : PInteger = Nil;R2 : PInteger = Nil): boolean;
begin
  {Damit hier irgendetwas passiert}
  Result:=True;
  If wert1=wert2 then
    Result:=True;
  If (wert1<>wert2) and (R1<>Nil) and (R2<>Nil) then
    begin
    R1^:=wert2;
    R2^:=wert1;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   a,b : Integer;
begin
  a:=5;
  b:=6;
  BSP(a,b,@a,@b);
  {Schau Dir mal hier die Werte für a und b an }
end;

end.