Hi,

Also ich habe ein kleines Problem^^
Ich bin gerade eine Klasse für nen Clienten am Schreiben.

zusammenfalten · markieren

Delphi-Quellcode:

TClientSocket = class
  private
    FOnConnect: TNotifyEvent;
    ...
  public
   function Connect(const Timeout: Integer = -1): Boolean;
   property OnConnect: TNotifyEvent read FOnConnect write SetOnConnect;
   ...
end;

function TClientSocket.Connect(const Timeout: Integer = -1): Boolean;
begin
 // bla bla
 OnConnect;
end;

Das klappt soweit. Aber wenn ich OnConnect nichts bzw nil zweise gibts eine Zugriffsverletzung. Da hab ich mir gedacht:

markieren

Delphi-Quellcode:

procedure TClientSocket.SetOnConnect(const Value: TNotifyEvent);
begin
  if Value = nil then
   FOnConnect := Value
  else FOnConnect := Default; // Default ist ne Leere Procedure(Sender: TObject)
end;

Nur dummerweise gibt es Probleme bei der If-Abfrage.. Er will bei Value einen Parameter. Wenn ich einen Parameter angebe dann heißt es "Inkompatible Typen".. Warum kann man denn einem TNotifyEvent nil zuweisen aber nicht abfragen ob es nil ist ? -.-

Gruß
Neutral General

zusammenfalten · markieren

Delphi-Quellcode:

type
  TOnConnect = procedure(Sender: TObject);

  ... = class(TObject);
  private
    FOnConnect: TOnConnect;
  public
    property OnConenct: TOnConnect read FOnConnect write FOnConnect;
  end;

procedure TClientSocket.SetOnConnect;
begin
  if Assigned(OnConnect) then
    FOnConnect(self);

muss es heißen.

Sehr gut. Danke

Push edit.

Eh deine neue Version funktioniert (bei mir) nicht

abgesehn davon das die Zeile bei dir falsch ist

property OnConenct: TOnConnect read FOnConnect write FOnConnect; Gruß
Neutral General

Nun ja, ich habe sie ja nur mal eben so schnell ihr rein gehackt, musst du natürlich noch eventuelle (Tipp)fehler ausbesser. Aber was heißt bitte sehr "funktioniert (bei mir) nicht"?

Das gibt ne AV. Genau wie meine erste Lösung^^
Und das was du zuerst geschrieben hast das ging bei mir...

Nochwas: ich würde die Assigned() Abfrage nicht auf die Property anwenden sondern auf die Variable FOnConnect.

Ach so, unter der Voraussetzung, das man wirklich Proceduren und keine Methoden dem OnConnect zuweisen soll, dann ist Luckie's Ansatz richtig, ansonsten wäre TOnConnect durch TNotifyEvent zu ersetzen bzw. ein "Of Object" an der Typendeklaration zu ergänzen.

Zitat von Muetze1:

Nochwas: ich würde die Assigned() Abfrage nicht auf die Property anwenden sondern auf die Variable FOnConnect.

Warum? Ich habe es bisher immer so gemacht.

Zitat:

Hinweis: TOnConnect = TNotifyEvent

Nun ja, ob man nun schreibt
TOnConnect = procedure(Sender: TObject); oder
TOnConnect = TNotifyEvent bleibt sich wohl gleich, da TNotyfiy Event so deklariert ist:
type TNotifyEvent = procedure (Sender: TObject) ofobject; @Superr heftig Neutral General:
Bei mir hat noch of object gefehlt bei der Typendeklaration.

Man könnte es natürllich auch gleich so machen, wie Borland es in der VCL macht:

zusammenfalten · markieren

Delphi-Quellcode:

protected
  procedure DoConnect; virtual;
public
   function Connect(const Timeout: Integer = -1): Boolean;
   property OnConnect: TNotifyEvent read FOnConnect write FOnConnect; // kein Setter
   ...
end;

function TClientSocket.Connect(const Timeout: Integer = -1): Boolean;
begin
  // ...
  DoConnect;
end;

procedure TClientSocket.DoConnect;
begin
  if Assigned(FOnConnect) then
    FOnConnect(Self)
  else
  begin
    // Default
  end;
end;

Das ermöglicht auch einer abgeleiteten Klasse, das "Default"-Verhalten zu ändern.