Variable aus anderem Formular übernehmen

[Willie1]

von Matze

Zitat:

Re: Variable einer anderen Form übergeben!
Alt 2. Mär 2005, 16:06
Die Variable in Form1 global deklarieren (z.B. unter public).

Im Form2 bei den uses Unit1 eintragen und du kannst mittels

Variable := Form1.x; darauf zugreifen oder ohne vorangestelltes "Form1", wenn die Variable in Form1 da deklariert ist, wo "Form1: TForm1;" steht.

Aber das hatten wir schon des öfteren.

Hallo, ich bin genauso vorgegangen. Sie wird in Form2 nicht erkannt. Form1 schon aber keine Variablen aus Form1 unter public.
Gruß Willie.

Wie kann ich erreichen, dass Zitat: Matze zu lesen ist?

[bcvs]

Zeig mal deinen Code (nur den betreffenden Teil), sonst kann dir hier keiner helfen.

[Blup]

Sind die Variablen wirklich im abschnitt "public" der Form1 deklariert?

Gehören die beiden Units für Form1 und Form2 tatsächlich zu deinem Projekt und werden gemeinsam compiliert?
Möglicherweise wird bei dir nur die Unit für Form2 übersetzt und greift auf eine veraltete Form1.dcu zu, die diese Variablen noch nicht hat.

Gib den Formularen mal vernünftige Namen und versuch es erneut.

[Jumpy]

Sprichst du die Variablen von Form2 aus auch als Form1.Variable1 an oder nur mit Variable1?

[Willie1]

Unit TelListe_h

Delphi-Quellcode:

  private
    {Private-Deklarationen }
  public
    TelList: TTelList;
    Wei: Boolean;
    PfDateina: string;
  end;

var
  MainForm: TForm;

Unit TelListe_Zeig

Delphi-Quellcode:

unit TelListe_Zeig;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, TelListe_h, Vcl.StdCtrls, Edit1,
  Vcl.ExtCtrls;

MainForm.Wei wird in TelListe_Zeig nicht gefunden.
Gehören zum gleichen Projekt und werden gemeinsam kompiliert.

[Willie1]

Zitat:

MainForm: TForm;

<------------------
Hier ist der Fehler: es muss MainForm: TMainForm heißen. Ich hatte im Objekt Inspektor Name Form1 in MainForm geändert. Aber warum hat es vorher mit Form1 auch nicht funktioniert?

[bcvs]

Wahrscheinlich stand da auch schon

Delphi-Quellcode:

var Form1: TForm

und nicht

Delphi-Quellcode:

var Form1: TForm1

, warum auch immer.

[Hobbycoder]

Ich mache das immer etwas anders.

Ich referenziere nach Möglichkeit nie die aufrufende Form, wenn es sich vermeiden lässt. Da ich die aufzurufende Form eh in die Uses der aufrufenden Form aufnehmen muss, setze ich auch von dort die Daten.

Delphi-Quellcode:

procedure TMainForm.btnEdit(Sender: TObject);
begin
  frmDetails.edtName.Text:=BeispielObject.Name;
  frmDetails.edtAlter.Text:=IntToStr(BeispielObject.Name);
  if frmDetails.ShowModal=mrOK then
  begin
    BeispielObject.Name:=frmDetails.edtName.Text;
    BeispielObject.Alter:=StrToInt(frmDetails.edtAlter.Text);
  end;
end;

Bei Umfangreicheren Datenstrukturen übergebe ich nur den Zeiger auf das Objekt oder schreibe mir ein Assign, mache mir also eine Kopie in eine Object, welches als Public in der frmDetails deklariert ist, und verteile die Daten dann im TfrmDetails.OnFormShow.

So vermeide ich Rückwärtsbeziehungen. Ich bestimme den Zeitpunkt, wann und wie meine Variablen in der aufrufenden Form aktualisiert werden.

[DeddyH]

Ich mache es noch anders und verpasse dem aufzurufenden Form entsprechende Properties, die ich dann setzen und auslesen kann. Das hat den Vorteil, dass es mir egal ist, wo und in welchen Komponenten die jeweiligen Daten dargestellt werden.

Delphi-Quellcode:

type
  TModalForm = class(TForm)
    edtName: TEdit;
    // weitere Komponenten
  private
    function GetUserName: string;
    procedure SetUserName(const Value: string);
  public
    property UserName: string read GetUserName write SetUserName;
  end;

...

function TModalForm.GetUserName: string;
begin
  Result := edtName.Text;
end;

procedure TModalForm.SetUserName(const Value: string);
begin
  edtName.Text := Value;
end;

Auf der anderen Seite dann

Delphi-Quellcode:

procedure TfrmDingens.EditUsername;
var
  frm: TModalForm;
begin
  frm := TModalForm.Create(nil);
  try
    frm.UserName := Username;
    if frm.ShowModal = mrOK then
      Username := frm.UserName;
  finally
    frm.Free;
  end;
end;

[Hobbycoder]

Zitat:

Zitat von DeddyH (Beitrag 1467629)

Ich mache es noch anders und verpasse dem aufzurufenden Form entsprechende Properties, die ich dann setzen und auslesen kann. Das hat den Vorteil, dass es mir egal ist, wo und in welchen Komponenten die jeweiligen Daten dargestellt werden.

ist ja fast das gleiche. Nur, dass ich auf Getter und Setter verzichtet habe.

[DeddyH]

Das gleiche würde ich jetzt nicht sagen. Was ist denn, wenn man einmal die darstellende Komponente wechselt (Memo in Listbox z.B.)? Dann hat man nicht nur eine Stelle, die man ändern muss, sondern ggf. viele über mehrere Units verteilt. Da mache ich mir lieber einmal die Mühe und trenne gleich die Logik von der Darstellung (ein String geht rein, ein String kommt raus... fertig).

[Hobbycoder]

Zitat:

Zitat von DeddyH (Beitrag 1467665)

Das gleiche würde ich jetzt nicht sagen. Was ist denn, wenn man einmal die darstellende Komponente wechselt (Memo in Listbox z.B.)? Dann hat man nicht nur eine Stelle, die man ändern muss, sondern ggf. viele über mehrere Units verteilt.

Da hast du zwar recht, aber das passiert bei mir nicht sooft. Und auch habe ich nicht so viele Programme, wo ich Formulare mehrfach verwende. (Wir reden ja nicht über Klassen)

Zitat:

Zitat von DeddyH (Beitrag 1467665)

Da mache ich mir lieber einmal die Mühe und trenne gleich die Logik von der Darstellung (ein String geht rein, ein String kommt raus... fertig).

Ob ich jetzt die Daten direkt an die Komponente der Form gebe, bzw. von dort lese, oder über Getter/Setter im Grunde das gleiche mache, hat nicht unbedingt was mit der Trennung von Logik und Darstellung zu tun. Das ist halt die Schnittstelle zwischen Logik und Darstellung, ob nun so oder so. Über den Sinn von Getter/Setter brauch wir nicht diskutieren.

[himitsu]

Ob mit oder ohne Getter/Setter ist erstmal egal, Hauptsache Property und kein direkter Zugriff, denn wenn benötigt, kann man Setter/Getter nachrüsten, ohne die Aufrufe zu ändern.

[DeddyH]

Genau, wenn ich den Code von TModalForm nicht gezeigt hätte, wüsste man ja gar nicht, dass über die Property auf das Edit zugegriffen wird. Man muss es auch gar nicht wissen, es genügt, wenn man die Property benutzt.

[Willie1]

Hallo,
dieser blöde Fehler hat Zeit gekostet. Ich habe schon oft auf Variablen aus einem anderen Formular zugegriffen, deshalb war ich so irritiert, als es nicht klappte. Die Ursache weiß ich immer noch nicht richtig.

Ich habe mal in einem Kurs gelernt, dass man nicht direkt auf Variablen einer class zugreifen sollte. Das Fenster-Formular habe ich allerdings immer davon heraus gelassen. Willie.