const in anderer Unit verwenden?

[Dash]

Hi,

ich benutze jetzt schon eine ganze Weile Delphi, weiß aber immer noch nicht wie ich auf einer constante einer anderen Unit zugreifen kann. So das ich also von der MainFrm.pas auf die constanten der Settings.pas zugreifen kann
Is mir im Moment sehr wichtig das zu wissen

MfG

[malo]

ShowMessage (MainFrm.Konstante1);

[Dash]

Danke,

aber funzt net

Unit 1:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

  uses
    unit2;



{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(Unit2.Test);
end;

end.

Unit2:

Delphi-Quellcode:

unit Unit2;

interface

implementation

  const
    Test = 'lol';
end.

Undefinierter Bezeichner 'Test'

[malo]

Deklarier die Konstante doch mal über den globalen Variablen, also etwa so:

Delphi-Quellcode:

const
  test = 'lol';

var
  Form1: TForm1;

implementation

ungetestet, müsste aber gehen.

[Dash]

Naja da is ja das Prob Wenn ich die constante in die Unit1 pack wie in deinem Beispiel, dann funzt es ja auch, aber nur soll der die const der Unit2 holen


Die const soll halt in einer anderen Unit sein, damit alle Units auf diese const zugreifen können

[malo]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage (unit2.test);
end;

end.

Delphi-Quellcode:

unit Unit2;

interface

const
  test = 'lol';

implementation

end.

Also bei mir funzt es wunderbar

[Dash]

thx, nun funzt es
Jetzt kann ich endlich weiter an meinen Progi schreiben

MfG