Thema: Delphi Freiwillige Variable...

Einzelnen Beitrag anzeigen

Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.642 Beiträge
 
Delphi 2009 Professional
 
#3
  Alt 7. Mai 2003, 14:47
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.
  Mit Zitat antworten Zitat