method pointer und regular procedure

[StanY]

Delphi-Quellcode:

  TConnection = class(TIdTCPClient)
    Thread: TMyThread;
  private
    Channel: Array of TChannel;
  end;

Delphi-Quellcode:

procedure OnConnect(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to High(Connection) do begin
    if (Sender = Connection[i]) then
      Break;
  end;

  Connection[i].Thread.Resume;
end;

Und hier liegt der Fehler:
'incompatible types: method pointer and regular procedure'

Delphi-Quellcode:

Connection[i].OnConnected := OnConnect;

Vielen Dank im Vorraus.

(es ist eine Konsolenanwendung, wenn das eine Rolle spielt)

[mirage228]

Hi,

das Thema hatten wir schon einmal ;)

Am besten Du packst OnConnectt in eine Klasse, damit es ein Methodenzeiger wird [verstecker Self-Parameter] (wahlweise als class procedure).

mfG
mirage228

[StanY]

Danke. Klappt. Hab's einfach in das private-Teil der TConnection-Klasse gepackt (=