Die alte Leier: Zirkulaere Referenzen, aber warum nicht so: ...?

[EWeiss]

Zitat:

@Fritzew Das unterschreibe ich sofort.

Ich auch ;)

Nachdem du mir dabei geholfen hast mit den Interfaces zurecht zu kommen arbeite ich auch sehr gerne damit.
Da ist man wirklich sehr flexibel.

gruss

[hzzm]

Zitat:

Zitat von EWeiss (Beitrag 1377484)

Nachdem du mir dabei geholfen hast mit den Interfaces zurecht zu kommen

Gibt es zu Deinem Lern-Prozess Threads hier?
Ich moechte mir diese Technik auch aneignen, finde aber leider keine interface Beispiele, die genau fuer diesen Zweck angelegt sind.
Ich brauch das einfach mal schwarz auf weiss, minimal und vollstaendig.

[jaenicke]

Ein minimales Beispiel:

Delphi-Quellcode:

// MyMain.pas
uses
  UnitX, MainInterface;

type
  TMyMain = class(TForm, IMainInterface)
    StatusEdit: TEdit;
  public
    procedure SetStatusMessage(const AValue: string);
  end;

[...]

procedure TMyMain.SetStatusMessage(const AValue: string);
begin
  StatusEdit.Text := AValue;
end;

// Aufruf:
PerformHCoreOperation(Self);

Delphi-Quellcode:

unit MainInterface;
...
type
  IMainInterface = interface
  ['{2A2A7B02-5612-44C4-8A76-D90C857C36C7}']
    procedure SetStatusMessage(const AValue: string);
  end;

Delphi-Quellcode:

unit UnitX;

uses
  MainInterface;

procedure PerformHCoreOperation(const AStatusInterface: IMainInterface);
begin
  AStatusInterface.SetStatusMessage('PowerMonger status ON!');
end;

Das ist nur ein minimales Beispiel und eine Trennung des Formulars von der Klasse, die IMainInterface implementiert wäre durchaus wünschenswert, aber für den Anfang reicht das so vollkommen aus.

Die GUID (im Interface, hier ['{2A2A7B02-5612-44C4-8A76-D90C857C36C7}']) dient dazu das Interface eindeutig zu identifizieren. Du kannst diese mit Strg + Shift + G in Delphi erzeugen.

[bra]

Ist die GUID für das Interface eigentlich zwingend notwendig, wenn man das nur in seinem eigenem Projekt verwendet?

[Fritzew]

Zitat:

Ist die GUID für das Interface eigentlich zwingend notwendig, wenn man das nur in seinem eigenem Projekt verwendet?

Nicht zwingend aber manches geht nicht ohne. Z.B Supports, cast mit as oder auch der is Operator.
Um Problemen aus dem Weg zu gehen würde ich immer eine GUID empfehlen

[freimatz]

Was habe ich da nur losgetreten? :shock:

[QUOTE=Fritzew;1377492]

Zitat:

Um Problemen aus dem Weg zu gehen würde ich immer eine GUID empfehlen

Und der Haarspalter meldet sich wieder: :twisted:
bei interfaces mit generics rate ich entschieden davon ab.

[Fritzew]

Zitat:

Und der Haarspalter meldet sich wieder:
bei interfaces mit generics rate ich entschieden davon ab.

Ja die sind wirklich ein Spezialfall ....

[jaenicke]

Um aus dem Skript bestimmte Interfaces anfragen zu können, müssen diese bei uns alle eine GUID haben. Aus dem Grund sind generische Interfaces bei uns immer noch einmal abgeleitet und dort mit einer GUID versehen.

[Rollo62]

+1 Guter Vorschlag :lol:

Bislang habe ich generische Interfaces vermieden um Probleme zu Vermeiden ...

Rollo

[freimatz]

Machen wir auch so. Zum Beispiel:

Delphi-Quellcode:

  IViewValueBase = interface(IViewBase)
    ['{3EF209C2-81FD-44C6-B231-328BA2FAABE5}']
    procedure RegisterHostValidation(const p_ValidationMethod: THostPropertyValidationDelegate);
    procedure ClearRegisteredHostValidation();
  end;

  IViewValueBase<T> = interface(IViewValueBase)
    function GetValue(): T;
    property Value: T read GetValue;
  end;

  IViewValue<T> = interface(IViewValueBase<T>)
    procedure SetValue(const p_Value: T);
    property Value: T read GetValue write SetValue;
  end;

  IViewValueBoolean = interface(IViewValue<Boolean>)
    ['{13871F02-44C4-40C4-B2D7-4A592D2A86D3}']
  end;

  IViewValueString = interface(IViewValue<String>)
    ['{1322615D-4628-4398-806D-E4E34BCF3BCE}']
  end;

  IViewValueInteger = interface(IViewValue<Integer>)
    ['{42524A7C-8BAF-41B4-90D0-77D8C457EDC9}']
  end;

  IViewValueDouble = interface(IViewValue<Double>)
    ['{016EE305-1856-4CD5-ACC2-9021F52DED63}']
  end;
  ...

Die implementierenden Klassen sind dann analog dazu.