Meldungen aus einer Unit an ein Formular senden

[Sigi55]

Moin Detlef,

perfekt, super, löppelt wunderbar ... Vielen Dank

Zitat von DeddyH:

Gedacht habe ich mir das Ganze letztes Jahr so: der "Konsument" der Nachrichten erzeugt den Manager und weist ihm einen OnNewMessage-Handler zu ...

Genau mein Ansatz, bin gerade dabei möglichst alle hardcodierten Abhängigkeiten von unit zu unit auszumerzen ...

Zitat von DeddyH:

Man muss lediglich sicherstellen, dass man anschließend nicht mehr aus dem Input-Formular auf diesen Manager zugreift, da wir zugegebenermaen dort nun einen dangling pointer lauern haben.

Das hab ich nicht verstanden, was soll das bedeuten ?

Und, Da kommen auch gleich weitere Ideen auf:
Ich habe meistens mit Datenumschaufeln oder Prüfroutinen zu tun die über etliche Datensätze iterieren und da verwende ich gern eine Progressbar. Kann man das so umbauen oder erweitern das der Fortschritt in unit2 auf der Hauptform angezeigt wird ?

Ich denke, das Thema ist noch nicht durch und sollte auch als Beispiel in die Codelib.

Vielen Dank schonmal und Gruß

Sigi

[DeddyH]

Das mit dem Dangling Pointer bedeutet, dass wir bei dieser Vorgehensweise ja 2 Verweise auf dieselbe Instanz haben. Wird das Formular, das diese anlegt, zerstört, gibt es sie wieder frei, somit zeigt der Verweis in der sendensen Klasse dann ins Leere.

[Sigi55]

Moin nochmal ...

Zitat von DeddyH:

Das mit dem Dangling Pointer bedeutet, dass wir bei dieser Vorgehensweise ja 2 Verweise auf dieselbe Instanz haben. Wird das Formular, das diese anlegt, zerstört, gibt es sie wieder frei, somit zeigt der Verweis in der sendensen Klasse dann ins Leere.

Ok, verstanden, aber ich wollt eh nix kaputt machen

Und mit der Progressbar ?
Ich hab mir überlegt, ich könnte das ja so machen wie bei z.B. einer Stringliste mit "name" and "value" ('Hans=12'), also quasi als Parameter übergeben und dann in der Hauptform ausgeben oder auch ignorieren, oder ist das blö.. ?

Gruß

Sigi

[Sir Rufo]

Eigentlich bringt doch diese MessageManager-Klasse keinen Vorteil gegenüber dem einfachen Zuweisen eines Callbacks/einer Event-Methode. Gut es fügt noch ein wenig mehr Code hinzu - macht es also aufwendiger/komplizierter ohne einen wirklichen Mehrwert zu schaffen.

[Sigi55]

Moin Sir,

Zitat von Sir Rufo:

Eigentlich bringt doch diese MessageManager-Klasse keinen Vorteil gegenüber dem einfachen Zuweisen eines Callbacks/einer Event-Methode. Gut es fügt noch ein wenig mehr Code hinzu - macht es also aufwendiger/komplizierter ohne einen wirklichen Mehrwert zu schaffen.

.. also, für mich (NICHT OOPler, Anfang 80er=BASIC, 90er=CLIPPER(dBase), 20Jahre Pause, seit 2 Jahren DELPHI (TopDown Progging [prozedural], so mal als Background ) ist das einfach und verständlich, oder geht's noch einfacher ?

Mir ist wichtig, die festverdrahteten unit2unit Verbindungen aufzulösen ..

Gruß

Sigi

[Sir Rufo]

Nehmen wir mal das Beispiel von oben und designen das mal ohne den MessageManager:

Delphi-Quellcode:

type
  TfrmMitMemo = class(TForm)
    mmoMessages: TMemo;
    btnShowInput: TButton;
    procedure btnShowInputClick(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure AddMessage(Sender: TObject; const NewMsg: string);
  public
    { Public-Deklarationen }
  end;

...

procedure TfrmMitMemo.AddMessage(Sender: TObject; const NewMsg: string);
begin
  mmoMessages.Lines.Add(NewMsg);
end;

Delphi-Quellcode:

type
  TfrmInput = class(TForm)
    edtMessage: TEdit;
    btnAdd: TButton;
    procedure btnAddClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FNewMessageCallback: TNewMessageEvent;
  public
    { Public-Deklarationen }
    property NewMessageCallback: TNewMessageEvent read FNewMessageCallback write FNewMessageCallback;
  end;

Delphi-Quellcode:

procedure TfrmMitMemo.btnShowInputClick(Sender: TObject);
begin
  frmInput.NewMessageCallback := AddMessage;
  frmInput.Show;
end;

Delphi-Quellcode:

procedure TfrmInput.btnAddClick(Sender: TObject);
begin
  if Assigned(FNewMessageCallback) then
    FNewMessageCallback(Self, edtMessage.Text);
end;

Das macht jetzt exakt das Gleiche ohne eine weitere Instanz da irgendwo noch reinzubasteln.

[Sigi55]

Moin Sir;

Zitat von Sir Rufo:

... Das macht jetzt exakt das Gleiche ohne eine weitere Instanz da irgendwo noch reinzubasteln.

Yes, Sir, hab ich getestet, macht es, prima Schlanker ist immer gut


Nur ...

Delphi-Quellcode:

procedure TfrmMitMemo.FormCreate(Sender: TObject);
begin
  TMessageManager.Create; // OK, geht
end;

procedure TfrmMitMemo.FormDestroy(Sender: TObject);
begin
  //TMessageManager.Free; // Fehler ??
end;

Hmm??

Und wie mach ich das z.B. mit der Progressbar ?

Danke und Tschüss

Sigi