Funktion richtig deklarieren

[AlexII]

Zitat von mkinzler:

Rede ich gegen eine Wand

Was denn?

[Matze]

Du sollst bei Delphi-Code die [delphi]-Tags nutzen und nicht die [code]-Tags, damit das Syntax-Highlighting auch korrekt erfolgt.

[AlexII]

Zitat von Matze:

Du sollst bei Delphi-Code die [delphi]-Tags nutzen und nicht die [code]-Tags, damit das Syntax-Highlighting auch korrekt erfolgt.

ShowMessage('Ja das neue Design hier verwirrt ein bisschen.');

[mkinzler]

Warum, dass das Delphi-Icon für Delphi steht finde ich recht einleuchtend

[AlexII]

Zitat von mkinzler:

Warum, dass das Delphi-Icon für Delphi steht finde ich recht einleuchtend

Ab jetzt schon.

[idefix2]

So ein Sequenz von if then else ist nicht wirklich übersichtlich. Wenn schon so kompliziert, dann wenigstens ein case:

Delphi-Quellcode:

case Position of 
0:
  begin
    VolumeLow.Visible := false;
    VolumeMedium.Visible := false;
    VolumeHigh.Visible := false;
    VolumeMuted.Visible := true;
  end;
1..33:
  begin
    VolumeLow.Visible := true;
    VolumeMedium.Visible := false;
    VolumeHigh.Visible := false;
    VolumeMuted.Visible := false;
  end;
34..66:
  begin
    VolumeLow.Visible := false;
    VolumeMedium.Visible := true;
    VolumeHigh.Visible := false;
    VolumeMuted.Visible := false;
  end;
else
  begin
    VolumeLow.Visible := false;
    VolumeMedium.Visible := false;
    VolumeHigh.Visible := true;
    VolumeMuted.Visible := false;
  end;
end (* case *);

aber noch viel besser, weil man auf einen Blick sieht, was passiert:

Delphi-Quellcode:

VolumeMuted.Visible := position = 0;
VolumeLow.Visible := position in [1..33];
VolumeMedium.Visible := position in [34..66];
VolumeHigh.Visible := position > 66;

Aber die erste Lösung ist natürlich besser, wenn Du für die Anzahl der Codezeilen in Deinem Programm bezahlt wirst.

[himitsu]

[edit]
ach, hatte ja schon jemand geschrieben

[Matze]

Zitat von idefix2:

aber noch viel besser, weil man auf einen Blick sieht, was passiert:

Delphi-Quellcode:

VolumeMuted.Visible := position = 0;
VolumeLow.Visible := position in [1..33];
VolumeMedium.Visible := position in [34..66];
VolumeHigh.Visible := position > 66;

Genau das meinte ich vorher. Ich habe nur nicht gesehen, dass pro Case-Fall immer nur 1 "Dingens" sichtbar gesetzt wird. In dem Fall ist es folglich sehr übersichtlich.
Es wäre etwas anderes, wenn die Sichtbarkeit für mehrere Fälle gesetzt werden soll.

[Teekeks]

Eine andere Möglichkeit wäre es zuerst alles auf false zu setzen und dann im case immer nur noch das entsprechende auf true.
Spart auch Zeilen...

[AlexII]

Zitat von idefix2:

Delphi-Quellcode:

VolumeMuted.Visible := position = 0;
VolumeLow.Visible := position in [1..33];
VolumeMedium.Visible := position in [34..66];
VolumeHigh.Visible := position > 66;

Du hast aber das Ausschalten der Images vergessen.