Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Modul in modul (https://www.delphipraxis.net/90966-modul-modul.html)

Mosi17 26. Apr 2007 17:17


Modul in modul
 
Guten tag verehrte DP!

Ich hab ein problem, wofür ihr cracks bestimmt nicht ma richtig nachdenken müsst, aber ich weiß nicht woran das liegt.
Ich möchte in der externen Prozedur pruefung2 die Prozedur galgen1 aufrufen, ungefähr so:

Delphi-Quellcode:
procedure pruefung2;
begin
case fehler of
  1: galgen1;
[...]
end;
end;

procedure galgen1;
begin
with form1.img_galgen.canvas do
 begin
 pen.Width:=2;
 moveto(75,200);
 lineto(75,50);
 end;
end;

Doch ich erhalten den Fehler "Undefinierter Bezeichner 'galgen1'".
Wenn ich galgen1 aber im Buttonclick aufruf klappts wunderbar!
Weiß einer Rat?! Danke schonma im Voraus!

Matze 26. Apr 2007 17:20

Re: Modul in modul
 
Hi,

ich vermute, der Aufruf würde mit

Delphi-Quellcode:
Formx.galgen1;
klappen. Du kannst deine pruefung2-Prozedur auch im Interface-Abschnitt deklarieren:

Delphi-Quellcode:
private
  procedure pruefung2;
dann sollte dein ursprünglicher Aufruf funktionieren.

DGS 26. Apr 2007 17:25

Re: Modul in modul
 
Wenn du "galgen1" nicht in dein Interface aufnehmen willst, dann verschiebe diese procedur nach vorne. Sie soll in implementation vor der pruefung auftauchen.

also:
Delphi-Quellcode:
implementation

procedure galgen1;
begin
  ...
end;

procedure pruefung2;
begin
  ...
end;
das mit dem Button hat wahrscheinlich geklappt, weil die Button prozedur ganz am Ende der Unit hinzugefügt wurde und somit erst nach der galgen1 prozedur stand.

Mosi17 26. Apr 2007 17:29

Re: Modul in modul
 
Ok erledigt...hab's selbst schon gesehen :-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz