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
