Schnittstellenproperty für das selbständige Besorgenvon Tex

[valon]

Hallo! Brauche nochmal eure Hilfe.
etwas kompliziert aber ich versuche das Problem einfach rüberzubringen.

Ich habe eine DialogBox programiert.Dort kann ich Dateien auswählen, und öffnen.


Aufgabenteil:

Es wird ein Schnittstellenproperty für das selbständige Besorgen von Texten definiert. Der
Mechanismus erfolgt ähnlich dem der Events (Ereignisse). Der Vorteil dieser Methode besteht
darin, daß der Dialog sich seine Texte selbst aus der Datenbank besorgen kann. Die
Text-IDs beginnen alle mit „idOpenDialog“.

Ich habe keine Ahnung wie ich das machen soll. Der Betreuer hat mit diese Typdeklaration gegeben.

Hier die Deklaration:

type
TBoschResourceText = function(anID: String):WideString of object;

Ich weiss aber nicht wie und wo ich soetwas verwende.

Ich hoffe ihr könnt mir Helfen.

[mirage228]

Hi,

also die DialogBox kriegt Funktionen solchen Typs übergeben und arbeitet damit? Meinst Du das?

Dann müsst Du das so ähnlich lösen (z.B.)

In der DialogBox:

Delphi-Quellcode:

TDialogBox = class(TForm)
// ...
// ...
private
  FBoschResourceText: TBoschResourceText;
  function GetResourceText(anId: String): WideString;
public
  property BoschResourceText: TBoschResourceText read FBoschResourceText write FBoschResourceText;
end;

var
  DialogBox: TDialogBox;

implementation

function TDialogBox.GetResourceText(anId: String): WideString;
begin
  if Assigned(FBoschResourceText) then
    Result := FBoschResourceText(anId) else
  Result := ''; 
end;

In der DialogBox arbeitest Du dann mit "GetResourceText".

Dort, wo Du die DialogBox aufrufst:

Delphi-Quellcode:

  // einmalig:
  DialogBox.BoschResourceText := MeineBochResourceTextProzedur;
  // form anzeigen:
  DialogBox.ShowModal; // oder andere Methode

Ich hoffe ich habe das jetzt richtig verstanden...

mfG
mirage228

[valon]

Hallo ! Danke für deine Antwort.
Ich schaue mir das jetzt mal in Ruhe an. und sag bescheid wenn ich nicht weiterkomme.
Danke nochmal.

[valon]

Hallo!

Das sieht gut aus. Bloss noch ne Frage. Wo mach ich die TypDeklaration rein?
type
TBoschResourceText = function(anID: String):WideString of object;

[mirage228]

Zitat von valon:

Hallo!

Das sieht gut aus. Bloss noch ne Frage. Wo mach ich die TypDeklaration rein?
type
TBoschResourceText = function(anID: String):WideString of object;

Hi,

ich lege für sowas (also spezielle Typdeklarationen) immer eine Dritte Unit an, die dann von beiden Seiten aus eingebunden wird.

mfG
mirage228

[valon]

Ich möchte keine neue Unit dafür verwenden.Wo genau sollte ich die platzieren.
Ich bin ein ganz frischer Delphi user.Also wundere dich nicht über solche dummen fragen .

[mirage228]

Dann packe die Deklaration am Besten in die DialogBox Unit.
Undzwar über die Form-Klasse.

mfG
mirage228

[valon]

Hi!

Noch eine letzte frage, dann lass ich dich wirklich in ruhe.

// einmalig:
DialogBox.BoschResourceText := MeineBochResourceTextProzedur;
// form anzeigen:
DialogBox.ShowModal; // oder andere Methode


Die Prozedur "MeineBochResourceTextProzedur" was ist das für eine? Ist das die Funktion die mit Hilfe der IDs die Texte aus einer bestimmten zb. Datenbank holt?

Danke für deine Mühe.

[mirage228]

Zitat von valon:

Die Prozedur "MeineBochResourceTextProzedur" was ist das für eine? Ist das die Funktion die mit Hilfe der IDs die Texte aus einer bestimmten zb. Datenbank holt?

Japp, das ist die Funktion, die die Texte besorgt

Zitat von valon:

Danke für deine Mühe.

Kein Problem

mfG
mirage228