Hallo,

ich habe eine selbstgeschriebene Komponente. Diese Komponente enthaelt eine Listbox, welche als Items die Dateinamen von Dateien in einem bestimmten Verzeichnis enthaelt. Nun moechte ich innerhalb der Komponente soetwas wie folgende Prozedur haben:

Procedure DoWithFile(Filename : String);

Diese Procedure soll von einer andere Procedure innerhalb der Komponente aufgerufen werden, in etwa soetwas:

Procedure AndereProzedur();
begin
DoWithFile(LV.items[1]);
end;

Nun die Frage. Wie muss ich DoWithFile deklarieren so dass ich sie im Hauptprogramm (das die Komponente verwendet) implementieren kann? In Java waere das soetwas wie ein Interface.

Gutelo

Möchtest du einen Event haben?

Du kannst das mit einem Interface, mit einer Action (Reference to procedure) oder mit einem Event machen. Hier würde ich persönlich ein Interface vorziehen, der Intention entsprechend.

Ein Interface scheint eigentlich schon zu viel Aufwand.

zusammenfalten · markieren

Delphi-Quellcode:

TProzessFileEvent = procedure(Sender: TObject; const AFilename: string) of object;

TMyComponent = class({...})
public
  procedure DoProzessFileList(AProzessFileEvent: TProzessFileEvent);
end;

procedure TMyComponent.DoProzessFileList(AProzessFileEvent: TProzessFileEvent);
var
  Filename: string;
begin
  Assert(Assigned(AProzessFileEvent), Self.Name + '.DoProzessFileList(nil)');

  for Filename in FFileList do
    AProzessFileEvent(Self, Filename);
end;

Eine mögliche Erweiterung für den Objektinspektor:

zusammenfalten · markieren

Delphi-Quellcode:

TMyComponent2 = class(TMyComponent)
private
  FOnProcessFile: TProzessFileEvent;
public
  procedure DoProzessFileList; reintroduce;
published
  property OnProcessFile: TProzessFileEvent read FOnProcessFile write FOnProcessFile;
end;

procedure TMyComponent2.DoProzessFileList;
begin
  if Assigned(FOnProcessFile) then
    inherited DoProzessFileList(FOnProcessFile);
end;

Den Auslöser(Sender) als Parameter mitzuliefern ist langfristig immer eine gute Idee.

Hallo,

allen vielen Dank fuer die Antworten. Blup, die Version sieht ganz gut aus und an Funktionsvariable habe ich auch schon gedacht. Allerdings wuerde ich anstatt einer eigenen Prozedur namens TMyComponent.DoProzessFileList(AProzessFileEvent: TProzessFileEvent); gerne den Aufruf aus dem OnClick Ereignis des Listviews ausfuehren. Wuerde folgendes gehen?:

zusammenfalten · markieren

Delphi-Quellcode:

TProzessFileEvent = procedure(AFilename: string) of object;

TMyComponent = class({...})
public
  VmyEvent : TProzessFileEvent;
  procedure SetMyProzessFileEvent(PFE : TProcessFileEvent);
  procedure OnClickListView(AProzessFileEvent: TProzessFileEvent);
end;

procedure TMyComponent.SetMyProzessFileEvent(PFE : TProcessFileEvent);
begin
  VmyEvent := PFE;
end;

procedure TMyComponent.OnClickListView(Sender: TObject);
var
  Filename: string;
  Li : TListItem;
begin
  Li := ListView1.selected;
  Filename := Li.caption;
  VMyEvent(Filename);
end;

Gutelo


Edit: Funktioniert prima, danke !!!!

Hier werden 'Events' verwendet, wo doch gar kein Ereignis eintritt. Nun ja.

Zitat von Blup:

Ein Interface scheint eigentlich schon zu viel Aufwand.

Aufwand? Du meinst Tippaufwand? Na wenn Du danach die richtige Vorgehensweise wählst...

Die Lösung mit dem Interface finde ich besser, weil erweiterbar. Eine Methode (die sich hinter dem 'Event' bzw. der Methodenvariablen) kann man nur aufblähen, aber ein Interface kann man erweitern.