Variablen über Formularen

[JP29]

ok das hab ich jetzt so weit verstanden nur die umsetzung mit den units noch nicht ganz also praktisch gesehen
ich zeig euch mal ein bischen von meinem quelltext und könnt ihr mir dort zeigen wie dir beiden units aufeinander zugreifen können...

unit 1:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Spin;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox4: TGroupBox;
    SpinEdit1: TSpinEdit;
    Label9: TLabel;
    Button1: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  abholung: string;
  ruckgabe: string;
  dauer: integer;

implementation

uses Unit2;

{$R *.dfm}

und unit2:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    GroupBox1: TGroupBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  abholung1: string;
  ruckgabe1: string;
  dauer1: integer;

implementation

uses unit1;

{$R *.dfm}

end.

...ist das jetzt so richtig ...

und kann ich jetzt auch mit einer procedure in form1 variablen in form2 verändern ??

und wie ist das wenn ich in beiden units variablen mit gleichem namen erstelle ... erkennt delphi das??

dankle schon mal im voraus...bis jetzt großes dankeschön an alle

[Bummi]

NEIN und das ist eine der Gefahren der globalen Variablen, also vorzugsweise alle immer in einer Unit verwalten
oder so ansprechen unit1.abholung, ansonsten sind schwer zu findende Fehler vorprogrammiert.

[JP29]

ahhh...ok
und gibt es auch eine möglichkeit durch z.b. einen button in form1 bspw. einen eintrag in einem editfeld oder label auf form2 zu machen

[JP29]

problem schon gelöst ... danke

[himitsu]

Sind dir schon die Private-/Public-Abschnitte in der Form-Klasse aufgefallen?

In Private kommen Variablen Felder, welche innerhalb der Klasse verwendet werden.
Und in Public kommen öffentliche Felder, oder besser öffentliche Property, welche auf private Felder zugreifen. Den schreibenden zugriff eventuell auch noch über einen Setter, damit man auf Änderungen reagieren kann.

Deine Edits, Memos, Labels haben doch auch ein öffentliches Text-Property, oder greifst du da auch über irgendeine globale Variable auf den Text drauf zu?

Praktisch genauso, wie die Caption deiner Forms.