Warum kennt Delphi eigentlich keine Makros?

[Mikkey]

Zitat von himitsu:

Wobei UNLESERLICH nicht für alles gilt.

Bei jeder Sprache und Spracherweiterung gibt es Leute, die schlechte lesbaren Code schreiben und andere die so etwas nicht schaffen

Zitat:

Die __LINE__ und __FILE__-Makros vom PHP wären eigentlich ganz nett, vorallem für den Code der Fehlerbehandlung und das Logging.

Ergänze: __FUNCTION__ zumindest in C gibt es die drei.

Zitat:

Und was das "Mehrfachvererben" ist vielleicht ein zu großes Wort für:
Ich hab mehrere Klassen ala TEdit, TButton usw. und mächte denen allen ein zusätzliches "gleiches" Property/Funktion verpassen,
wobei man das hier nunmal nicht in einen gemeinsamem Vorfahren reinmachen kann, sondern nur in einen jeweils "gleichartig" erweiterten Nachfahren.
Hierbei ist das Makro dann ein an einer Stelle notierter Copy&Paste-Code, den man sonst überall reinkopieren würde.

So etwas müsste sich doch mit Generics á la

Code:

TControlExtended<TEdit>

machen lassen. Ich habe keine passende delphiversion um das auszuprobieren, aber im C# kann man das AFAIR machen.

[himitsu]

Nein, denn in Generics gibt es Einwas, das man nicht generisch machen kann und das ist der Vorfahre, da die Generics ebenfalls immer nur eine Einfachvererbung können.

Das geht nicht und das wäre dafür dann nötig

Delphi-Quellcode:

type
  TMyClass<TVorfahr> = class(TVorfahr)
  end;

Sowas geht zwar

Delphi-Quellcode:

type
  TMyClass<TAndereClasse> = class
  private
    FGekapselt: TAndereClasse;
  published
    property Gekapselt: TAndereClasse read FGekapselt;
  end;

Aber grade in der VCL ist das auch nicht so gut, außer du fängst an nochmal alles z.B. in unsichtbaren TPanels zu kapseln und findest dann alle Property versteckt als Unterproperty in dem Gekapselt, da die Generics Diese nicht alle nach oben durchreichen kann, weil sie ja überall unterschiedlich sind, oder du schreibst die Weiterleitungen wieder manuell überall rein.

[Mikkey]

Zitat von himitsu:

Nein, denn in Generics gibt es Einwas, das man nicht generisch machen kann und das ist der Vorfahre, da die Generics ebenfalls immer nur eine Einfachvererbung können.

Das geht nicht und das wäre dafür dann nötig

Delphi-Quellcode:

type
  TMyClass<TVorfahr> = class(TVorfahr)
  end;

Dann würde ich mir eher wünschen, dass das ginge. Mit Mehrfachvererbung hat das ja nichts zu tun, weil ich immer noch eine eindeutige Ableitungskette TObject->TComponent->...->TEdit->TGen<TEdit> habe.

Übrigens kann man sich für's Loggen einen Präprozessor schreiben, der geschriebene Aufrufe

Log('blabla'); in Aufrufe

Log('blabla', 'u_TestUnit', 234, 'TestFunction'); übersetzt bzw. die bereits vorhandenen weiteren Parameter aktualisiert.

[mquadrat]

Die zwei PHP Beispiele sind eher schlecht gewählt, für das Logging bringt das nämlich nicht so wahnsinnig viel. Wir haben das früher immer mitprotokolliert, aber inzwischen verzichten wir darauf. Der Mehrwert ging gegen null, da sich die Log-Meldungen ja sowieso unterscheiden. Und für das Logging im Fehlerfall ist es untauglich, da man dort ja eigentlich eher die Infos aus dem Stack-Trace braucht, also das von wo wurde aufgerufen, weniger das was (denn den Ort kennt man ja aus der Meldung).

Was die VCL angeht: Bei dem Fall wäre ich eher für Class Helper. die auf mehrere Klassen passen.