Träume, Wünsche und Wahnvorstellungen...

[stahli]

Oh, ich wusste nicht, dass man auch Konstanten auswerten kann...
Thom hat mir schon alle meine Träume erfüllt.

Delphi-Quellcode:

const // global definiert, aber gut praktikabel so
  CompileModeFree = 0;
  CompileModeLight = 1;
  CompileModeStandard = 2;
  CompileModeProfessional = 3;
  CompileMode = CompileModeLight;

...

procedure TdmlStahliSport.MIPlayerStatistcsClick(Sender: TObject);
{$IF CompileMode > CompileModeFree}
var
  PanelPlayer: TodPanelPlayer;
{$IFEND}
begin
{$IF CompileMode > CompileModeFree}
  if PopupMenuPlayer.PopupComponent is TodPanelPlayer then
    begin
      PanelPlayer := PopupMenuPlayer.PopupComponent as TodPanelPlayer;
      PanelPlayer.odPlayer.Person.ExportVPEGamesOpen;
      PanelPlayer.odPlayer.Person.ExportVPEGames;
      PanelPlayer.odPlayer.Person.ExportVPEGamesClose;
    end;
{$IFEND}
end;

[Thom]

@Delphi-Laie:

Na ja - das "Erkennen", ob ein Feature zur Verfügung steht, besteht ja darin, daß der Compiler anfängt, mehr oder weniger lange Fehlerlisten zu produzieren. Viel schlimmer ist meines Erachtens der Umstand, daß manche Dinge bei älteren Compilerversionen anders oder (noch) fehlerhalft implementiert ist. Das betrifft zum Beispiel die richtige Auswahl überladenen Methoden oder die Behandlung von Variant-Werten. Will (oder muß) man abwärtskompatibel sein, führt meiner Meinung nach nichts am exzessiven Gebrauch von Compilerschaltern vorbei, wobei ja leider nicht alle älteren Versionen die Variable CompilerVersion unterstützen. Damit wäre es dann einfach, Delphi XE4 schon jetzt zu erkennen:

Delphi-Quellcode:

  {$IF CompilerVersion=25.0}
  ShowMessage('Jetzt habe ich es endlich!');
  {$IFEND}

@stahli:

Das freut mich!

[himitsu]

Die Konstante CompilerVersion ist bestimmt schon recht lange vorhanden,
aber die Conditional-Expressions ({$IF ...} ) gibt es nicht überall. (in D4 noch nicht, in D7 schon ... aber alles Ältere als D7 wird einfach ignoriert)

Ich würde mir ein {$IFOPT ...} für längere Schalternamen wünschen. (nicht nur für die Einbuchstabigen mit + oder -)

[schöni]

Was ich mir wünschen würde und was für mich ein Kaufargument wäre:

- aussagekräftigere integrierte Hilfe mit viiiieeeel mehr Beispielprogrammen zum Hilfethema.

- kommentierte Demoprogramme

- mehr Projektvorlagen zu gängigen Softwareproblemklassen

- Schlankere IDE, die dann schneller startet und Komponenten dann nachlädt, wenn ich sie auf dem Formular platziere, um die IDE schlank zu halten

- güntigeren Preis .)

[stahli]

Es wäre schön, wenn die IDE Methoden im Implementationsabschnitt immer in der gleichen Reihenfolge halten würde, wie sie in den Klassendefinitionen im Interfaceabschnitt definiert werden.
Wenn man dort die Reihenfolge ändert sollte dies auch im Quelltext angepasst werden (optional auf Shortcut).

[sx2008]

Ich wünsche mir die If-Funktion:

Delphi-Quellcode:

// fiktive Berechnung als Beispiel
Zinssatz := (if premiumkunde then Basiszins*0.9 else Basiszins+0.75) - rabattzins;

Und natürlich gleich noch die Case-Funktion dazu:

Delphi-Quellcode:

ShowMessage('Sie haben '+
  (case idx of 1:'Nichts' 2:'Grass' 3:'Wasser' 4:'Felsen' else 'unbekannt') + 'angeklickt');

Man beachte dass man immer den Else-Teil schreiben muss; andernfalls wäre es ein Fehler.

[Der schöne Günther]

Das erste ist doch genau der ternäre Operator aus C!

Code:

zinssatz = (premiumkunde ? Basiszins*0.9 : Basiszins+0.75) - rabattzins:

Ich habe ihn in den ersten Tagen Delphi auch vermisst, mittlerweile bin ich wirklich froh, den nicht mehr sehen zu müssen. Lieber ein, zwei Zeilen mehr. Dafür erkennt man später in der Hälfte der Zeit, was im Code vor sich geht.

[knochen]

Zitat von sx2008:

Ich wünsche mir die If-Funktion:

Delphi-Quellcode:

// fiktive Berechnung als Beispiel
Zinssatz := (if premiumkunde then Basiszins*0.9 else Basiszins+0.75) - rabattzins;

Gibt's schon. Such mal nach der IfThen-Funktion. Die existiert in überladener Form gleich in mehreren Units.

Zitat von sx2008:

Und natürlich gleich noch die Case-Funktion dazu:

Delphi-Quellcode:

ShowMessage('Sie haben '+
  (case idx of 1:'Nichts' 2:'Grass' 3:'Wasser' 4:'Felsen' else 'unbekannt') + 'angeklickt');

Man beachte dass man immer den Else-Teil schreiben muss; andernfalls wäre es ein Fehler.

Auch das kann man leicht selbst schreiben.

Delphi-Quellcode:

function MyCase(idx: Integer; Values: Array of Integer): Integer;
function MyCase(idx: Integer; Values: Array of String): String; overload;
...etc.

Ggf. kann man noch einen Else-Wert übergeben, wenn gewünscht auch als optionalen Parameter.

[sx2008]

Zitat von knochen:

Gibt's schon. Such mal nach der IfThen-Funktion

Ich weiss.
Aber die IfThen-Funktion (oder auch Iff-Funktion) hat den grossen Nachteil, dass alle Argumente ausgerechnet werden, bevor die Funktion aufgerufen wird.

Delphi-Quellcode:

// berechnet leider beide innere Funktionen
erg := IfThen(Juliaset, CalcJulia(...), CalcMandelBrot(...));

Man bräuchte schon Complier-Magic © damit nur ein Zweig ausgewertet wird.
Das Gleiche gilt natürlich auch für das MyCase() oder CaseString() und die Varianten davon.

[knochen]

Zitat von sx2008:

Aber die IfThen-Funktion (oder auch Iff-Funktion) hat den grossen Nachteil, dass alle Argumente ausgerechnet werden, bevor die Funktion aufgerufen wird.

Im letzten Jahrtausend, als die Rechner 1000 mal langsamer waren und tausend mal weniger Speicher hatten als heute, hätte mich dieses Argument bestimmt beeindruckt. Zu Erinnerung: das ist gerade mal 20 Jahre her.