Prozeduren(-pointer) von Instanzen einer Class unterscheiden

[HeinerGrimm]

Pardon, in einer der Prozeduren befand sich noch Müll aus einem gescheiterten Versuch. Hier die Prozedur, wie sie gedacht war:

Delphi-Quellcode:

procedure TTestObj.DelProc(Proc: TTestProc);
Var
  I: Integer;
  Pr: TTestProc;
begin
  I := ProcList.Count - 1;

  While (I >= 0) do begin
    Pr := TProcRec(ProcList.Items[I]^).Proc;
    If (Pr = Proc) then begin
      ProcList.Delete(I); // Item wird entfernt.
    end;
    Dec(I);
  end;
end;

[edit=Christian Seehase]Delphi-Tags gesetzt. BBCode aktivieren könnte hierfür nicht schaden. Mfg, Christian Seehase[/edit]