Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
Delphi XE7 Professional
|
AW: [XE5]: Nutzung des Datenmoduls
31. Jan 2014, 08:59
Moin,
es gibt jetzt zwar beim Compilieren keine Fehlermeldung mehr, aber der Variableninhalt wird nicht übertragen.
Setzen:
Delphi-Quellcode:
unit allgemein;
...
implementation
{$R *.dfm}
uses datenablage;
procedure TForm_Allgemein.CoB_SymboltypChange(Sender: TObject);
begin
Global.Symboltyp:= CoB_Symboltyp.ItemIndex;
CB_Activate_Symbol.Caption:=IntToStr(CoB_Symboltyp.ItemIndex)+' ##'+inttostr(datenablage.Global.Symboltyp);
end;
Auslesen:
Delphi-Quellcode:
unit anschluesse;
...
implementation
{$R *.dfm}
uses datenablage;
procedure TForm_Anschluesse.FormShow(Sender: TObject);
begin
lbledt_AnzAnschluesse.EditLabel.Caption:=IntToStr(Global.Symboltyp);
if Global.Symboltyp in [7,8,9,10,11,12,13,14] then
Hier kommt nichts an.
Warum?
Gruss Heiko
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
|
|
Zitat
|