[XE5]: Nutzung des Datenmoduls

[Kralle]

Hallo Detlef,

Zitat von DeddyH:

Delphi-Quellcode:

class procedure Global.SetSymboltyp(const Value : Integer);
 begin
   FSymboltyp:=Value;
 end;

Es ist ja als Klassenmethode deklariert, deshalb muss es auch so implementiert werden.

Jetzt gibt es nur noch eine Fehlermeldung:

Zitat:

[dcc32 Fehler] datenmodul.pas(10): E2355 Für den Zugriff auf Klasseneigenschaften muss ein Klassenfeld oder eine statische Klassenmethode verwendet werden

Gruß Heiko

[mkinzler]

Zitat von Kralle:

Jetzt gibt es nur noch eine Fehlermeldung:

Zitat:

[dcc32 Fehler] datenmodul.pas(10): E2355 Für den Zugriff auf Klasseneigenschaften muss ein Klassenfeld oder eine statische Klassenmethode verwendet werden

Gruß Heiko

Wie ist FSymbolTyp deklariert als class var ?

[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.

[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.

[DeddyH]

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