Zirkuläre Unit Referenz auf Unit 1

[Klaus01]

Guten Morgen,

baue Dir eine Unit mit einem Datencontainer.
Binde sie in Unit1 und Unit2 ein.
Den Container kannst Du aus der Unit2 befüllen und aus der Unit1 anzeigen lassen.

Grüße
Klaus

[Borschti]

Du kannst im implementation Teil auch noch Units einbinden, so solltest du die Fehlermeldung umgehen können.

Edit: Hier mal ein kleines beispiel:

Delphi-Quellcode:

implementation

uses
  UnSettings, UnSettingLog;

[xZise]

Moin,
alternativ bietet die Klasse in Unit2 ein Ereignis an, dass dann in der Unit1 ein Update des ListViews ausführt.

MfG
Fabian

PS: Sowas wie Borschti sagt, geht zwar auch, aber ich würde sowas immer vermeiden, weil im interface-Abschnitt ist die Unit1 noch nicht bekannt, und es gibt andere Wege um das zu umgehen. Außerdem kannst du die Unit2 einfach austauschen, solange es eine andere Klasse gibt mit der gleichen Methode.

[David Martens]

Mach die Form der Unit2 Modal:

Delphi-Quellcode:

procedure tform1.showform2click(Sender : tobject);
begin
  if form2.showmodal = mrOK then
  begin
    // hier kannst du fleißig auf alle daten auf form2 zugreifen
    name := form2.edtname;
    ort :=  form2.edtort;
    ...
  end;
end;

P.S.: mein hundertster Beitrag

[omata]

Zitat von David Martens:

    // hier kannst du fleißig auf alle daten auf form2 zugreifen

Bitte nicht so programmieren. Benutze Zugriffsmethoden, um Daten zwischen Units bzw. Formularen auszutauschen. Alles andere ist nicht sinnvoll.

[David Martens]

@omata: Entschuldigung ich hab mich vielleicht nicht ganz klar ausgedrückt.

So hab ich das hingeschrieben:

name := form2.edtname; wenn du aufmerksam liest, dann fällt dir auf das ich nicht direkt auf die Edits zugreife, sonst würde da stehen:


name := form2.editname.text; Gruß Atlan

[mkinzler]

Das Problem ist auch eher das Form2