Meldungen aus einer Unit an ein Formular senden

[ngott2]

Wenn ich das richtig verstehe!
Dann kannst einfach eine Funktion in der Unit2 schreiben die eine String liste zurück gibt.

Beispiel

Code:

MeinMemo.text := ObjectFromUnit2.DoSomethingfunction;

Wenn ich dein Problem falsch verstanden habe, dann sorry.

[p80286]

Zitat von ngott2:

Wenn ich das richtig verstehe!
Dann kannst einfach eine Funktion in der Unit2 schreiben die eine String liste zurück gibt.

Beispiel

Code:

MeinMemo.text := ObjectFromUnit2.DoSomethingfunction;

Wenn ich dein Problem falsch verstanden habe, dann sorry.

Das ist nicht so optimal. Wenn Du (String)Listen befüllen willst, dann solltest Du diese an eine prozedure übergeben (siehe #2) und nicht durch eine Funktion erstellen lassen. Du könntest Dir ein Speicherleck einhandeln.

Gruß
K-H

[LarsSchwencke]

Hallo,

vielen Dank für die schnellen Antworten.
Wenn ich es mit einer StringList mache, dann muß ich in der Unit1
über eine Pollingfunktion immer nachschauen ob neue Meldungen in der StringList stehen,
da ich ja nicht weiß wann die Unit2 neue Mitteilungen in die StringList schreibt, oder?

Gibt es eine Möglichkeit das Pollen zu vermeiden.

MfG
Lars

[DeddyH]

Wie gesagt: ich würde mir eine kleine Klasse schreiben, die die Mitteilungen intern in einer Stringliste verwaltet und über ein Event samt zugehöriger Property verfügt, das bei Hinzufügen einer Mitteilung gefeuert wird.

[Hobby-Programmierer]

Zitat von DeddyH:

Wie gesagt: ich würde mir eine kleine Klasse schreiben, die die Mitteilungen intern in einer Stringliste verwaltet und über ein Event samt zugehöriger Property verfügt, das bei Hinzufügen einer Mitteilung gefeuert wird.

Hallo DeddyH,
könntest du vielleicht kurz ein Code-Beispiel dazu schreiben. Ich sitze vor einem ähnlichen Problem und mich würde interessieren wie man dies universal handhaben könnte.

Danke und Lg

[DeddyH]

Ganz minimale Klasse ohne eigene Stringliste:

Delphi-Quellcode:

unit MsgManager;

interface

uses Classes;

type
  TNewMessageEvent = procedure(Sender: TObject; const NewMsg: string) of object;

  TMessageManager = class
  private
    FOnNewMessage: TNewMessageEvent;
  public
    procedure AddMessage(const NewMessage: string);
    property OnNewMessage: TNewMessageEvent read FOnNewMessage write FOnNewMessage;
  end;

implementation

{ TMessageManager }

procedure TMessageManager.AddMessage(const NewMessage: string);
begin
  if Assigned(FOnNewMessage) then
    FOnNewMessage(self, NewMessage);
end;

end.

Diese Unit wird nun in beiden Formularunits eingebunden. Form1 erstellt die Instanz im FormCreate und weist einen Eventhandler zu:

Delphi-Quellcode:

type
  TfrmMitMemo = class(TForm)
    mmoMessages: TMemo;
    btnShowInput: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnShowInputClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    FManager: TMessageManager;
    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;

procedure TfrmMitMemo.FormCreate(Sender: TObject);
begin
  FManager := TMessageManager.Create;
  FManager.OnNewMessage := AddMessage;
end;

Die andere Formularunit verfügt über eine Property vom Typ TMessageManager, der man dann einfach diese Instanz zuweist:

Delphi-Quellcode:

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

Delphi-Quellcode:

procedure TfrmMitMemo.btnShowInputClick(Sender: TObject);
begin
  frmInput.Manager := FManager;
  frmInput.Show;
end;

Der Code innerhalb des Innput-Formulars ist dann recht überschaubar:

Delphi-Quellcode:

procedure TfrmInput.btnAddClick(Sender: TObject);
begin
  if Assigned(FManager) then
    FManager.AddMessage(edtMessage.Text);
end;

Nun noch bei Freigabe des Memo-Formulars ordentlich aufräumen:

Delphi-Quellcode:

procedure TfrmMitMemo.FormDestroy(Sender: TObject);
begin
  FManager.Free;
end;

und fertig ist die Laube. 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.

[Hobby-Programmierer]

Oi, des ging ja schnell. Vielen Dank, werde mir das mal zu Gemüte führen.

LG

[baumina]

Wie wärs denn so?

In der Unit ohne Formular:

Delphi-Quellcode:

procedure SchreibeInMemo(MyStrings : TStrings);
begin
  MyStrings.Add('noch ne Zeile');
end;

Und der Aufruf in der Unit mit Formular wäre dann so:
  SchreibeInMemo(memo1.Lines);

[Der schöne Günther]

Zitat von p80286:

Wenn Du (String)Listen befüllen willst, dann solltest Du diese an eine prozedure übergeben (siehe #2) und nicht durch eine Funktion erstellen lassen. Du könntest Dir ein Speicherleck einhandeln.

Verstehe ich nicht. Wie das denn? Ich möchte bitte eine StringList haben. Entweder die Funktion gibt mir eine, oder sie gibt mir keine. Wenn ich eine haben wollte, ist es auch meine Verantwortung, die Liste später ordentlich in den Müll zu tun.

[DeddyH]

Zitat von Der schöne Günther:

Zitat von p80286:

Wenn Du (String)Listen befüllen willst, dann solltest Du diese an eine prozedure übergeben (siehe #2) und nicht durch eine Funktion erstellen lassen. Du könntest Dir ein Speicherleck einhandeln.

Verstehe ich nicht. Wie das denn? Ich möchte bitte eine StringList haben. Entweder die Funktion gibt mir eine, oder sie gibt mir keine. Wenn ich eine haben wollte, ist es auch meine Verantwortung, die Liste später ordentlich in den Müll zu tun.

Wahrscheinlich meint er so etwas: http://www.detlef-heibing.de/program...rueckgabe.html