[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.

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.

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;

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.