Quellcode wird nicht compiliert. Compiler meldet keinen Fehler.

[FriendOfDelphi]

Zitat von blauweiss:

Zitat von FriendOfDelphi:

Der Compiler meldet keinen Fehler beim copilieren.
Aber nur das letzte "end" erhält den blauen Punkt.

In einem Krimi würde der Kommissar genau hier die entscheidenden Indizien finden.
Blauer Punkt beim "end"
-> die Unit wird im Projekt mitkompiliert.
Keine blauen Punkte sonstwo in dieser Unit
-> der Code wird nicht aufgerufen (weil z.B. die Klasse nirgendwo im Projekt instanziiert wird).

Gruß
blauweiss

Wie ich schon in der Antwort an "himitsu" geschrieben habe wird, wenn ich absichtlich einen Fehler im Quellcode der Unit einbaue, dieser auch vom Compiler angemeckert. Das läßt darauf schließen, dass diese auch mitkompiliert wird.
Aber ich instanziiere in einer zweiten Test-Unit ein Objekt der Klasse. Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

[Luckie]

Zitat von FriendOfDelphi:

Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

Was müssen wir tun, damit du ihn uns zeigst?

[FriendOfDelphi]

Zitat von Luckie:

Zitat von FriendOfDelphi:

Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

Was müssen wir tun, damit du ihn uns zeigst?

Lach
Gar nichts, außer vielleicht zu sagen, in welcher Art und weise ich ihn senden soll.
Möchte mir nicht wieder einen "Rüffel" holen, dass ich irgendetwas falsch gemacht habe und unwissentlich gegen irgendwelche Forumsregeln verstoßen habe.
Dafür ist mir das hier zu wichtig. Hier im Forum herrscht ein gewisses Niveau vor, das woanders nicht so ist und ich daher nicht missen möchte.
Das Programm besteht, wie gesagt aus zwei Units.
Soll ich es als ZIP-Datei anhängen, oder beide Quellcodes als Text senden?

[Luckie]

Zitat von FriendOfDelphi:

Zitat von Luckie:

Zitat von FriendOfDelphi:

Wahrscheinlich mache ich hier, bzw. im Konstruktor etwas falsch.

Was müssen wir tun, damit du ihn uns zeigst?

Lach
Gar nichts, außer vielleicht zu sagen, in welcher Art und weise ich ihn senden soll.

Wie wäre es mit posten des relevanten Codeteiles?

[FriendOfDelphi]

Hier Teile der "Test-Unit":

Delphi-Quellcode:

[...schnipp...]

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  UNotifikationen;                                                         //<-- die verwendete, eigene Unit

[...schnipp...]

var
  Form1: TForm1;
  Test: TNotifikationen; //<-- die verwendete Klasse aus eigenen Unit

[...schnipp...]

procedure TForm1.FormCreate(Sender: TObject); //<-- und die beiden Methoden aus der Klasse
begin
  Test.Create(self);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Test.Destroy;
end;

end.

Hier Teile der eigenen Unit:

Delphi-Quellcode:

[...schnipp...]

type
  TNotifikationen = class(TWinControl)
    procedure WMAdsDeviceNotificationSRr( var Message: TMessage );
    message WM_ADSDEVICENOTIFICATIONSRr;
  private
    { Private-Deklarationen }
    LocalAddr      : TAmsAddr;
    procedure AdsOpen();
    procedure AdsClose();
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy;
  end;

[...schnipp...]
procedure TNotifikationen.AdsOpen();
var
  VarName : PChar;
begin
[...tue irgendwas ...]
end;

[...schnipp...]

procedure TNotifikationen.AdsClose();
begin
[...tue irgendwas ...]
end;

[...schnipp...]

constructor TNotifikationen.Create;
begin
  AdsOpen();
end;

destructor TNotifikationen.Destroy;
begin
  AdsClose();
end;

[...schnipp...]

Ist das so nachvollziehbar und ein Fehler erkennar?

[Luckie]

Eine Instanz einer Klasse erstellt man so:
obj := TMyClass.Create;

[FriendOfDelphi]

Zitat von Luckie:

Eine Instanz einer Klasse erstellt man so:
obj := TMyClass.Create;

Das war der entscheidende Hinweis.
Die Quellcode in der Unit wird jetzt vollständig mitkompiliert und die "blauen Punkte" sind da!

[stahli]

Die Instanz einer Klasse weist man so zu:
Test := TTest.Create(Self);

Im Create und Destroy Deiner Komponente fehlen das inherited.
Sie wird also nicht erzeugt und nicht aufgelöst.

Hinter Deinem Destructor fehlt das override.

Die Freigabe der Komponente (im FormDestroy) sollte man über Test.Free veranlassen.
(Bzw. kann diese Freigabe an der Stelle entfallen, da das Formular Deine Komponente als deren Eigentümer automatisch frei gibt.)

Schau mal, ob Dich das schon weiter bringt...

[FriendOfDelphi]

Zitat von stahli:

Die Instanz einer Klasse weist man so zu:
Test := TTest.Create(Self); Im Create und Destroy Deiner Komponente fehlen das inherited.
Sie wird also nicht erzeugt und nicht aufgelöst.

Ich habe die fehlenden "inherited" ergänzt. Aber auch mit Hilfe der Delphi-Hilfe nicht genau verstanden, was das macht.

Zitat von stahli:

Hinter Deinem Destructor fehlt das override.

Habe ich ebenfalls ergänzt.

Zitat von stahli:

Die Freigabe der Komponente (im FormDestroy) sollte man über Test.Free veranlassen.
(Bzw. kann diese Freigabe an der Stelle entfallen, da das Formular Deine Komponente als deren Eigentümer automatisch frei gibt.)

Schau mal, ob Dich das schon weiter bringt...

Die Methode "Free" scheint ja auch ohne mein Zutun zu existieren.
Heißt das, dass ich gar keinen Destruktor selber machen muss?