Hallo,
erzeuge eine neue
Unit DataClass0.pas (z.B.)
packe dort eine Daten-Klasse rein,
die global definiert wird
Delphi-Quellcode:
unit DataClass0;
interface
type
TDataClass =
class
public
sName:
String;
end;
// globale Variable
var
DataClass: TDataClass;
implementation
end;
Im FormCreate des Hauptforms wird die Klasse erzeugt,
im FormDesroy freigeben.
Delphi-Quellcode:
FormCreate;
begin
DataClass:= TDataClass.Create;
end;
FormDestroy;
begin
DataClass.Free;
end;
Dazu wird die
unit DataClass0 per Uses (im Implementation-Teil) eingebunden
Im zweiten Form ebenfalls ein uses
und per DataClass.sName kann zugegriffen werden.
Das mit der globalen Variable ist einfach,
man kann das auch per Parameter machen.
Wichtig
In den Forms wird keine Variable TDataClass definiert.
Die Klasse hat auch noch den Vorteil, dass durch Nutzung richtiger prroperties
(Get Set Methoden)
schön festgestellt werden, wer wann wo was ändert.
Heiko