AW: TFile, TDirectory vs. alte Funktionen
'with' ist nicht bä, sondern nur unpraktisch.
Nur um es noch einmal festzuhalten: TFile.Exists hat nichts, aber auch gar nichts mit OOP zu tun. TFile ist eine statische Klasse und das ist nichts anderes als eine Unit. Der von alda skizzierte Ansatz wäre wirklich sehr angenehm, zumal ich dann auch auf der Ebene ordentliche (bzw. überhaupt) Unittests schreiben kann. Ansonsten ist das Mocken von 'TFile.Exists' auch nicht so einfach. |
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
|
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
|
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
|
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
Delphi-Quellcode:
fände ich persönlich ne Super-Idee.
with X = TMySpecialType.Create(12, 'hallo', Self) do
ShowMessage(X.AsString); (ist aus Modula-3) |
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
1. In Delphi müssen Variablen vordefiniert werden, es spart mir also nichtmal sonderlich viel Tiparbeit 2. In Delphi gibt es keinen kleineren Scope als eine Routine. Solch ein with sollte aber einen bilden, siehe using. |
AW: TFile, TDirectory vs. alte Funktionen
Dann müsste man halt mit compiler magic arbeiten.
Delphi-Quellcode:
->
with x = aClass.aSubClass.AnotherOne do
x.Attribut := <IrgendWas>;
Delphi-Quellcode:
Oder noch besser den Scope verfeinern.
aClass.aSubClass.AnotherOne.Attribut := <IrgendWas>;
|
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
siehe
Delphi-Quellcode:
entspricht in etwa
try
except on E: Exception do ShowMessage(E.Message); end;
Delphi-Quellcode:
und Self ist auch sowas.
var
E: Exception; try except if ExceptObject is Exception then begin E := Exception(ExceptObject); ShowMessage(E.Message); end; end; PS:
Delphi-Quellcode:
ginge doch?
with X = TMySpecialType.Create(12, 'hallo', Self) do
oder meint ihr
Delphi-Quellcode:
:zwinker:
with X := TMySpecialType.Create(12, 'hallo', Self) do
Und sowas wie "Self" für die temporäre "Variable" des WITH wäre auch schön, wenn man schon das X:= nicht selber angeben darf.
Delphi-Quellcode:
:roll::roll::roll:
with Memo1, Memo1.Lines, Memo1.irgendwasanderes do
Text := Value[1] + sonstwas; |
AW: TFile, TDirectory vs. alte Funktionen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:58 Uhr. |
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