Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Wirkliche Unterschiede?? (https://www.delphipraxis.net/192494-wirkliche-unterschiede.html)

Delbor 24. Apr 2017 10:01

Delphi-Version: XE8

Wirkliche Unterschiede??
 
Hi zusammen

In einem der in Delphi enthaltenen Demos gibt es eine einzige Prozedure, die in einem Case..of-Block zwischen allen unter Delphi möglichen DBs unterscheidet. In den den einzelnen Selektorblöcken befinden sich eine ganze Menge Konstrukte wie das unten nicht auskommentierte.
Die ganzen with..do begin..end-Konsttrukte benötigen insgesamt geschätzt wohl ebensoviel Platz wie die eigentlichen Anweisungen, was die komplette Prozedur sagenhaft aufbläht. Um etwas mehr Übersichtlichkeit zu erreichen, habe ich unter einem der Selektoren diese with-Konstrukte durch solche zu ersetzen, wie sie der ausgeklammerte Block widergibt - und prompt meckerte Delphi wegen unbekanntem Bezeichner PrecMax(zum Bleistift).

Delphi-Quellcode:
      with MapRules.Add do begin
        PrecMax := 19;
        PrecMin := 4;
        SourceDataType := dtFmtBCD;
        TargetDataType := dtCurrency;
      end;

//        MapRules.Add(PrecMax := 2);
//        MapRules.Add(PrecMin := 0);
//        MapRules.Add(SourceDataType := dtFmtBCD);
//        MapRules.Add(TargetDataType := dtBoolean);
An was liegt das? Ich habe zwar eine Vermutung. Aber sowas ist letzten Endes weniger als Halbwissen. Ich selst verwende seit Jahren aus mehreren Gründen keine with do begin - Blöcke mehr.

Gruss
Delbor

DeddyH 24. Apr 2017 10:07

AW: Wirkliche Unterschiede??
 
MapRules.Add wird wohl eine neue Instanz von irgendwas (bin gerade zu faul zum Nachsehen) zurückgeben. Von daher ist Deine Syntax schlicht falsch. Richtig müsste es dann so lauten:
Delphi-Quellcode:
var
  Dings: TWasAuchImmer;
begin
  Dings := MapRules.Add;
  Dings.PrecMax := 19;
  Dings.PrecMin := 4;
  Dings.SourceDataType := dtFmtBCD;
  Dings.TargetDataType := dtCurrency;

Bernhard Geyer 24. Apr 2017 10:19

AW: Wirkliche Unterschiede??
 
Zitat:

Zitat von DeddyH (Beitrag 1368803)
MapRules.Add wird wohl eine neue Instanz von irgendwas (bin gerade zu faul zum Nachsehen) zurückgeben. Von daher ist Deine Syntax schlicht falsch.

AFAIK funktioniert diese Logik.
Aber wir bauen diese With-Anweisungen überall aus wenn wir in der Unit eh Anpassungen vornehmen.
Diese with-Statements sind immer ein Quell von Überraschungen.

DeddyH 24. Apr 2017 10:21

AW: Wirkliche Unterschiede??
 
Ja, aber darum ging es ja nicht. Ich finde es lobenswert, das with zu eliminieren, wo man darauf trifft, aber man muss es dann auch syntaktisch korrekt machen.

Hobbycoder 24. Apr 2017 10:26

AW: Wirkliche Unterschiede??
 
In dem Code:
Delphi-Quellcode:
MapRules.Add(PrecMax := 2);
MapRules.Add(PrecMin := 0);
MapRules.Add(SourceDataType := dtFmtBCD);
MapRules.Add(TargetDataType := dtBoolean);
Wird 4 mal ein Instanz von Irgenwas erzeugt, und in der Add-Methode jedes mal etwas anderes Übergeben.
Zitat:

Zitat von DeddyH (Beitrag 1368803)
Delphi-Quellcode:
var
  Dings: TWasAuchImmer;
begin
  Dings := MapRules.Add;
  Dings.PrecMax := 19;
  Dings.PrecMin := 4;
  Dings.SourceDataType := dtFmtBCD;
  Dings.TargetDataType := dtCurrency;

Das hier erzeug aber nur eine Instanz, und das ist dann auch der Unterschied.

Delbor 24. Apr 2017 11:03

AW: Wirkliche Unterschiede??
 
Hi DeddyH
Ehrlich gesagt, war ich auch zu faul, um nachzusehen - ich ging allerdings davon aus, dass mit Add etwas einer Liste oder einer Collection hinzugefügt wird. Also müsste das, was da hinzugefügt wird, unter beiden Schreibweisen schon bekannt sein.

Angenommen, Dings ist ein Object:
Methoden:
-Add;
Propertys:
-Percmax : integer;
-Percmin : integer;
-SourceDataType := TWasAuchImmer;
-TargetDataType := TWasAuchImmer;


Um nun an die Propertys Werte zuzuweisen, brauche ich doch gar keine Methode Add, sondern kann die neuen Werte direkt zuweisen:
Delphi-Quellcode:
Dings.PrecMax := 19;

Delphi-Quellcode:
var
  Dings: TWasAuchImmer;
begin
  Dings := MapRules.Add;
  Dings.PrecMax := 19;
  Dings.PrecMin := 4;
  Dings.SourceDataType := dtFmtBCD;
  Dings.TargetDataType := dtCurrency;
Das hier lese ich so:

Dings ist ein Object der Klasse TWasAuchImmer
Dieser Klasse wird
-eine Unterklasse (Dings.Add)
-ein Property oder
-eine Methode
zugewiesen. Letztere zwei Punkte fallen weg. Somit wäre nur eine Wertzuweisung an die Unterklasse 'Add' der Dings-Klasse möglich. Da 'PrecMax ' in der Unterklasse bekannt ist, gibts auch keinen Fehler.
Aber wer nennt seine Klasse schon 'Add'??

Gruss
Delbor

DeddyH 24. Apr 2017 11:05

AW: Wirkliche Unterschiede??
 
Add ist keine Klasse! Das ist eine Methode (Funktion) der Klasse, von der MapRules ist (TMapRules vermutlich). Diese Funktion gibt Dir eine Instanz zurück, und dieser Instanz weist Du nun die Werte zu.

bra 24. Apr 2017 11:09

AW: Wirkliche Unterschiede??
 
Also so wie ich die gängigen Add-Methoden kenne (bei TListView u.ä.) ist DeddyHs Variante die einzig korrekte Alternative zu dem with...do-Statement.

Delbor 24. Apr 2017 11:17

AW: Wirkliche Unterschiede??
 
Hi HobbyCoder
Zitat:

Das hier erzeug aber nur eine Instanz, und das ist dann auch der Unterschied.
Ich fragte nicht nachdem Unterschied von meinem Codeschnipsel zu demjenigen von DeddyH. Die Frage war nach dem Unterschied der Syntax, wie ich sie in der Demo angetroffen habe und meinem Konstrukt:
Delphi-Quellcode:
      with MapRules.Add do begin
        PrecMax := 19;
        PrecMin := 4;
        SourceDataType := dtFmtBCD;
        TargetDataType := dtCurrency;
      end;
Oben das in der Demo angetroffene Konstrukt, unten das Konstrukt, das ich satt dessen zu verwendsen gedachte und das zu einer AV führte.
Delphi-Quellcode:
//        MapRules.Add(PrecMax := 2);
//        MapRules.Add(PrecMin := 0);
//        MapRules.Add(SourceDataType := dtFmtBCD);
//        MapRules.Add(TargetDataType := dtBoolean);
Gruss
Delbor

DeddyH 24. Apr 2017 11:24

AW: Wirkliche Unterschiede??
 
Hat sich das kompilieren lassen? Damit hätte ich jetzt nicht gerechnet.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:32 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz