[XE5]: Nutzung des Datenmoduls

[Sir Rufo]

Zitat von DeddyH:

Es steht ja da: die Setter-Methode muss statisch sein.

Delphi-Quellcode:

   Global = class
     private
       class var FSymboltyp : Integer;
       class procedure SetSymboltyp (const Value : Integer); static; //hier
     public
       class property Symboltyp : Integer read FSymboltyp write SetSymboltyp;
   end;

Allerdings würde ich persönlich bei der üblichen Nomenklatur bleiben und dem Klassennamen noch ein "T" voranstellen.

Dies hier ist die Ausnahme von der Regel, da diese Klasse kein Type im Sinne von Instanzvorlage werden soll.
Von daher würde ich dieser Klasse eben kein T voranstellen

[DeddyH]

Dann sag mal bei Emba Bescheid, dass sie z.B. TEncoding falsch benannt haben.

[Sir Rufo]

Zitat von DeddyH:

Dann sag mal bei Emba Bescheid, dass sie z.B. TEncoding falsch benannt haben.

Haben sie nicht, denn das ist ein Type.
Oder welchen Typ hat die Instanz UTF8 ?

Hier kann man es sehen
http://docwiki.embarcadero.com/Libra...TEncoding.UTF8

[DeddyH]

http://docwiki.embarcadero.com/Libra...tils.TEncoding

Zitat:

TEncoding = class

Und so steht es auc in meiner SysUtils.

[Kralle]

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

[Sir Rufo]

Das können wir dir nicht sagen, weil wir nicht wissen, in welcher Reihenfolge das aufgerufen wird.

Wenn die Form Anschlüsse schon angezeigt wird und du dann erst die Änderung machst, dann "kommt" der Wert da nicht an, weil der Wert ja nicht durch Magie die Methode aufruft.

[Kralle]

Hallo Rufo;

Zitat von Sir Rufo:

Das können wir dir nicht sagen, weil wir nicht wissen, in welcher Reihenfolge das aufgerufen wird.

Wenn die Form Anschlüsse schon angezeigt wird und du dann erst die Änderung machst, dann "kommt" der Wert da nicht an, weil der Wert ja nicht durch Magie die Methode aufruft.

Also, das erstmal werden alle Units so aufgerufen:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);

begin
// Die Einzelnen Units an die TABs binden
 Form_Allgemein:= TForm_Allgemein.Create(Self);
 Form_Allgemein.Parent:=Tab01_Allgemein;
 Form_Allgemein.Show;
 //
  //
 Form_Anschluesse:= TForm_Anschluesse.Create(Self);
 Form_Anschluesse.Parent:=Tab05_Anschluesse;
 Form_Anschluesse.Show;
end;

Beim laufenden Programm wähle ich erst auf dem TAB "Allgemein" den Symboltyp aus und Wechsel dann auf den TAB "Anschluesse".

Was mir gerade noch auffiel: Ich habe kein "Blauen Punkte" vor den Codezeilen und Breakpoints nutzen auch nichts.
Unter XE2 hat damals das geholfen:

Zitat:

Nachdem ich in den Projekteinstellungen beim Linker den Punkt "Mit
Laufzeit-Packages linken" aktiviert habe, klappt das auch mit den debuggen.

Unter XE5 klapt das nicht.

Gruß Heiko

[DeddyH]

Wo landest Du, wenn Du in beiden Units einmal mit STRG-Linksklick auf "Global" abspringst? Ist das auch dieselbe Stelle?

[Kralle]

Moin,

Zitat von DeddyH:

Wo landest Du, wenn Du in beiden Units einmal mit STRG-Linksklick auf "Global" abspringst? Ist das auch dieselbe Stelle?

Beides mal auf dem "G" von Global:

Delphi-Quellcode:

unit datenablage;

interface
 type
   Global = class

Gruß HEiko

[Sir Rufo]

Aber dann ist es doch logisch, dass du die Änderung nicht in der Form siehst.

Du holst die Werte beim OnShow Event ab und der ist doch schon lange durch