With Class1, Class2 do

[smudo]

Ich hab mal eine Frage...

Ich verwende folgendes (stark reduziert):

Delphi-Quellcode:

With Class1, Class2 do
  DoSomething;

Wenn beide Klassen eine Methode DoSomething haben wird nur die Methode von Class2 ausgeführt.
Kann man Delphi dazu bringen, beide nacheinander auszuführen? Ich meine genau in diesem Konstrukt?

René

[Elvis]

Ich nehme an, er führt die Implementierung von der zuletzt aufgeführten Instanz an.
Sowas überhaupt zu nutzen grenzt schon fast an vorsätzliches Bug-einschleusen.

edit: au mann, jetzt fang ich selbst schon an Klasse und Instanz zu vertauschen

[Robert Marquardt]

In der Delphi-Hilfe nachschlagen.
with Class1, Class2 do ist aequivalent zu

Delphi-Quellcode:

with Class1 do
  with Class2 do

Die Bindung ist natuerlich immer zur innersten Klammer.

[Bernhard Geyer]

Zitat von Elvis:

Ich nehme an, er führt die Implementierung von der zuletzt aufgeführten Klasse an.
Sowas überhaupt zu nutzen grenzt schon fast an vorsätzliches Bug-einschleusen.

Kann ich nur zustimmen. Überall wo in unserem Code noch with...-Reste sind werden diese bei anstehender Überarbeitung/Erweiterung der Unit entfernt. Spart einige sterbende Gehirnzellen.

[Union]

Ich setze das gerne ein, aber nur einstufig und Lokal begrenzt. Oder will man z.B. so was etwa 10 mal schreiben:
cxGridLsKopfDBTableViewLsKopf.TcxGridDataRow(ViewData.Records[i]).Values[...]

[r2c2]

Zitat von Union:

Ich setze das gerne ein, aber nur einstufig und Lokal begrenzt. Oder will man z.B. so was etwa 10 mal schreiben:
cxGridLsKopfDBTableViewLsKopf.TcxGridDataRow(ViewData.Records[i]).Values[...]

Nö, will man nicht. Man muss aber auch hier kein with nehmen. Ein einfacher typisierter Pointer tuts auch...

mfg

Christian

[smudo]

Wow, einfache typisierte Pointer. Das klingt mir wenig verlockend.
Ich werde natürlich weiterhin wie gewohnt With verwenden, da ich daran interessiert bin, möglichst wenig Code eintippen zu müssen (das Beispiel von Union zeigt den Grund).

Ich sehe meine Frage als mit Nein beantwortet. Muss ich halt eine Proc draus machen, in der ich nur noch eine übergebene Klasse verwende. Natürlich mit "With Class do"

[r2c2]

Zitat von smudo:

Wow, einfache typisierte Pointer. Das klingt mir wenig verlockend.

Warum? Je nachdem, was du machst, kann das IMHO deutlich übersichtlicher sein, als ein with ohne Alias...

Delphi-Quellcode:

var
  value: <TypVonValues>;
begin
  ...
  value := cxGridLsKopfDBTableViewLsKopf.TcxGridDataRow(ViewData.Records[i]).Values[...];
  value.Methode;
  value.Property := test;
  ...

Du musst ein with weniger, ein do weniger und einen begin..end-Block weniger schreiben. Dafür nur ein Zeilchen mehr und hast dafür auch noch n sprechenden Alias...

mfg

Christian

[Elvis]

Zitat von r2c2:

Du musst ein with weniger, ein do weniger und einen begin..end-Block weniger schreiben. Dafür nur ein Zeilchen mehr und hast dafür auch noch n sprechenden Alias...

Und du weißt auch immer was auf wem aufgerufen wird.
Nicht zu vergessen, das Debugging mit with-Gedöns eher einem Selbstmartyrium gleicht als professionellem Entwickeln.

[smudo]

Ich gebe zu, dass r2c2 die elegantere Form verwendet, die noch dazu besser zu debuggen ist. Ich hab das nur nicht mit dem Begriff einfacher typisierter Pointer in Verbindung gebracht.
Ich werd mal meine With-Verwendung überdenken.

Vielen Dank.