[Pascal] auf Variable aus übergeordneter Unit zugreifen

thosch97

Moin,

ich habe hier ein Lazarus-Projekt (Ruhe, es handelt sich um den Informatikunterricht, mir wär auch was anderes lieber), in dem ich zwei Formulare brauche. Dafür braucht man offenbar auch zwei Units. Jetzt muss ich aber aus der untergeordneten Unit auf eine Variable der oberen Unit zugreifen. Geht das?

Code

unit Unit1; 


{$mode objfpc}{$H+}


interface


uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  unit2;


type


  { TCourt }


  TCourt = class(TForm)
    Ball: TShape;
    Racket: TShape;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure TimerTimer(Sender: TObject);
  private
    { private declarations }
    dx, dy: Integer;
    isRunning: boolean;
  public
    { public declarations }
  end; 


var
  Court: TCourt;


implementation


{$R *.lfm}


{ TCourt }


procedure TCourt.TimerTimer(Sender: TObject);
begin
  if isRunning then begin
   Ball.top:=Ball.top+dy;
   Ball.left:=Ball.left+dx;
   if (Ball.top+Ball.Height>=clientheight) or (Ball.top<=0) then dy:=-dy;
   if (Ball.width+Ball.left>=clientwidth) then dx:=-dx;
   if (Ball.Top>=Racket.Top) and not (Ball.Top>Racket.Top+Racket.Height) and
      (Ball.Left<=Racket.Left+Racket.Width) then begin
        dx:=-dx;
        ControlWindow.pPoints.Caption:=
         inttostr(strtoint(ControlWindow.pPoints.Caption)+1);
   end;
   if (Ball.Left<0) then begin
      ControlWindow.pFails.Caption:=
       inttostr(strtoint(ControlWindow.pFails.Caption)+1);
      isRunning:=false;
   end;


  end;


end;


procedure TCourt.FormCreate(Sender: TObject);
begin
  dx:=10;
  dy:=10;
end;


procedure TCourt.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Racket.Top:=Y;
end;


end.

Alles anzeigen

Code

unit Unit2;


{$mode objfpc}{$H+}


interface


uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;


type


  { TControlWindow }


  TControlWindow = class(TForm)
    btStart: TButton;
    lPoints: TLabel;
    lFails: TLabel;
    pPoints: TPanel;
    pFails: TPanel;
    procedure btStartClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;


var
  ControlWindow: TControlWindow;


implementation


{$R *.lfm}


{ TControlWindow }


procedure TControlWindow.btStartClick(Sender: TObject);
begin
  Court.isRunning:=true;
end;


end.

Alles anzeigen

73
thosch97

Mr. Vain

Aus meiner Turbo Pascal Erfahrung heraus wuerd ich sagen, dass geht NICHT. Auf Variablen uebergeordneter Units kann man nicht zugreifen, weil sich die Referenz auf die Units dann quasi "ueberkreuzen" wuerden. (Cross Link Error... hiess das irgendwie). Ob das nun bei Lazarus immer noch so ist, weiss ich jetzt nicht, da ich nicht so der Delphi Fan bin.

Magic94

Lehrer hätten es gerne mit "gettern und Settern" ... Ich eher stehe auf die Kreuzbezüge

Kreuzbezüge:

du setzt in Unit1 die Variable, welche du in Unit2 braucht in den "public" Teil.
Und bei Unit2 schreibst du (Code aus einem meiner Delphi-Projekte):

Zitat

var
Form1: TForm1;
implementation
uses
Unit1;
{$R *.dfm}

Wenn du es schöner machen willst ohne Kreuzbezüge:

in Unit1 im Public Teil 2 Funktionen erzeugen:

Zitat

private
{ private declarations }
dx, dy: Integer;
isRunning: boolean;
public
function GetDX : integer;
procedure SetDX(temp:integer);
{ public declarations }
end;

Alles anzeigen

Diese sehen vom Code folgendermaßen aus:

Zitat

function GetDX : integer;
begin
Result := dx; //Das Ergebnis dieser Funktion, welche du in Unit2 aufrufst, gibt den Wert der Variable dx aus Unit 1 zurück
end;

Zitat

procedure SetDX(temp:integer);
begin
dx := temp; //Du rufst von Unit2 aus SetDX(3) auf und somit fügt diese Prozedur dann die Variable nach Unit1 über.
end;

Im Endeffekt hast du nach kurzer Zeit aber schon keinen Bock mehr für jede Variable den ganzen Kram zu schreiben.

aber viel Spaß.

PS: Falls das jetzt nicht per STRG+C funktioniert, ich hab das grade so aus dem Kopf runtergeschrieben.

Jetzt mitmachen!