Probleme beim Aufrufen einer Prozedur in einer anderen Unit

[ustra]

Hallo,

ich habe ein Delphi-Projekt mit 2 Units (Unit1, Unit2). In Unit2 habe ich eine Prozedur (Formular heißt FSicherung):

Delphi-Quellcode:

procedure TFSicherung.Sicherung;
begin
  ShowMessage('bla');
end;

Nun möchte ich aus der Unit1 (Formular heißt Form1) diese Prozedur aufrufen. Ich habe diese Prozedur als Public in der Unit2 deklariert:

Delphi-Quellcode:

  ....
    BManuell: TButton;
    procedure FormCreate(Sender: TObject);
    procedure TAutoTimer(Sender: TObject);
    procedure TWartenTimer(Sender: TObject);  
    procedure BManuellClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Sicherung;
  end;

Nun müßte es nach meinem Kenntnisstand eigentlich problemlos möglich sein, diese Prozedur aus Unit1 mit:

FSicherung.Sicherung; aufzurufen. Ich bekomme aber immer die Meldung: "Undefinierter Bezeichner 'Sicherung'.

In Unit1 steht auch:

Delphi-Quellcode:

implementation

uses Unit2;

Könnt Ihr mir helfen?

Ulrich

[Touchdown]

Sieht so aus, als sei FSicherung keine Instanz von deinem 2. Formular. Sollte sonst gehen.

[ustra]

Hi,

danke für Deine Antwort. Eins verstehe ich leider noch nicht so ganz. Wo muss ich das einfügen? In dem Moment, wo ich die Prozedur aufrufen will oder muss ich das bei onCreate machen?

Ulrich

[Touchdown]

Ich hoffe mein Beispiel erklärt eine Instanz ein wenig:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Instanz : TForm2; // Unit 2 muss hierfür man einusen, sonst ist TForm2 unbekannt
begin
  Instanz := TForm2.create( Application ); //TForm2 ist der Bauplan eines Fensters und Instanz ist nun ein Fenster
  Instanz.Sicherung; // vorraussetung: sicherung ist public
end;

Wichtig wäre auch zu wissen ob die Formulare bei dir automatisch erstellt werden (Projektoptionen). Mein Beispiel ist ein manuelles erzeugen

[ustra]

So,

nun meckert er nicht mehr, dass er die Prozedur nicht mehr kennt. Jetzt gibt er die Meldung aus "Name not Unique in this context".

Was nun? Die VAriable Instanz ist einmalig. Die Meldung erscheint, wenn die Instanz erzeugt wird.

Ich habe die Formulare normal über Datei/Neues Formular hinzugefügt.

Ulrich

PS: Ich geh jetzt weg. Ich kann erst morgen an meinem Projekt weiter arbeiten.

[Touchdown]

Wahrscheinlich ist das Formular per automatische Erstellung bereits im Speicher. Einfach unter Projekt/Optionen/Formulare rauswerfen. Nicht benötigte Instanzen haben nichts im Speicher verloren, sowas muss man selber machen.