TFile, TDirectory vs. alte Funktionen

[Der schöne Günther]

Wir sollten uns echt langsam mal zusammentun und Quellcode sammeln

http://www.delphipraxis.net/182276-d...-projekte.html

Ich habe auch mittlerweile eine Menge an Klassen die bestimmt auch andere mal brauchen könnten. Wir sollten wirklich mal ein bisschen Gehirmsturm für eine halbwegs einheitliche Strukturierung und Philosophie (z.B. Teeren und Federn bei "with", ...) und eine gemeinsame Library aufbauen.

[bernau]

@rd3: Nenn mich altmodisch, aber bei einer Klassenfunktion, die sich FileInfo nennt, erwarte ich nicht die eigene Klasse instanziert zurück, sondern etwas was mir Informationen zu einer bestimmten Datei liefert.

Übrigens: with ist bäh

Bin echt überrascht, was Ihr so alles mit Dateifunktionen macht. In der Regel prüfe ich mit TFile.exists, ob eine Datei vorhanden ist. Meist wird dann eine andere Klasse (Z.b.TStringlist oder TMeinWuppdiObjekt )verwendet und dort gibt es die Funktion LoadFromFile. Muss also den Dateinamen sowiso übergeben. Mir fällt auf die schnelle nicht wirklich etwas ein, bei dem ich mehr als drei Funktionen von TFile hintereinander aufrufen würde.

Einzig die Implementation von TIniFile finde ich unglücklich, weil es als record deklariert ist. Eine Custom-Erweiterung mit eigenen Funktionen ist somit nicht wirklich praktikabel. Eine Klasse wäre da besser gewesen.

[Dejan Vu]

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

[Perlsau]

Zitat von Dejan Vu:

'with' ist nicht bä, sondern nur unpraktisch.

Ist doch völlig wurscht, ob man jetzt "bä" oder "böse" oder "besser nicht verwenden" sagt. Fakt ist, daß die Verwendung von with gewisse Risiken birgt, die zu schwer auffindbaren Fehlern führen können und deshalb tunlichst vermieden werden sollte.

[uligerhardt]

Zitat von Perlsau:

Fakt ist, daß die Verwendung von with gewisse Risiken birgt, die zu schwer auffindbaren Fehlern führen können und deshalb tunlichst vermieden werden sollte.

Fakt ist, daß Programmieren gewisse Risiken birgt, die zu schwer auffindbaren Fehlern führen können und deshalb tunlichst vermieden werden sollte.

[bernau]

Zitat von Dejan Vu:

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.

Ich habe nicht geschrieben, daß die jetzige Version OOP ist, sondern daß ich diese Schreibweise als sehr angenehm empfinde.

[alda]

Zitat von Dejan Vu:

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.

Genau, und die einzige Möglichkeit die Du für solche "prozeduralen" Ansätze hast, ist die komplette Unit im Testprojekt zu überschreiben. Das geht dann aber halt auch nur ein einziges Mal innerhalb dieses Testprojektes

[Frickler]

Zitat von bernau:

Übrigens: with ist bäh

So, wie es Delphi aktuell macht, ja. Aber ein "with" wie in

Delphi-Quellcode:

with X = TMySpecialType.Create(12, 'hallo', Self) do
  ShowMessage(X.AsString);

fände ich persönlich ne Super-Idee.


(ist aus Modula-3)

[Stevie]

Zitat von Frickler:

Zitat von bernau:

Übrigens: with ist bäh

So, wie es Delphi aktuell macht, ja. Aber ein "with" wie in

Delphi-Quellcode:

with X = TMySpecialType.Create(12, 'hallo', Self) do
  ShowMessage(X.AsString);

fände ich persönlich ne Super-Idee.


(ist aus Modula-3)

Leider passt das nicht so ganz in Delphi wegen einigen Konzepten:

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.

[mkinzler]

Dann müsste man halt mit compiler magic arbeiten.

Delphi-Quellcode:

with x = aClass.aSubClass.AnotherOne do
  x.Attribut := <IrgendWas>;

->

 aClass.aSubClass.AnotherOne.Attribut := <IrgendWas>; Oder noch besser den Scope verfeinern.