Einzelnen Beitrag anzeigen

Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge
 
Delphi 10.1 Berlin Starter
 
#40

AW: Komponentenentwicklung LED über TShape ?

  Alt 15. Jun 2015, 15:27
  • 'Standard' = SDefault aus Vcl.Consts
Gibt es auch ein FMX.Consts o.ä ?

  • Aber vorallem solltest du dich auf Einwas einigen, also entweder mit Prefix oder Ohne, also ohne Namespace oder mit (TStatusLEDShape und TStatusLEDStatus > {$SCOPEDEUNMS} )
Ich hoffe ich habe das kapiert.

Delphi-Quellcode:
  {$SCOPEDENUMS ON}
  TLEDShape = (ctRoundLED,ctRectLED,ctTriangleLED);
  TLEDStatus = (UndefinedStatus,OnStatus,OffStatus);
  {$SCOPEDENUMS OFF}
Jetzt muss man konsequent den Namespace immer voranstellen.

 if StatusLED1.LEDStatus = TLEDStatus.UndefinedStatus then StatusLED1.LEDStatus := TLEDStatus.OnStatus;
Chris
  Mit Zitat antworten Zitat