Funktion richtig deklarieren

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

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

[mkinzler]

Es geht auch nicht darum, dir Musterlösungen zu liefern!
Ich sehe dich auch absolut nicht in der Position andere Benutzer zu veren.!

[Matze]

Zitat von AlexII:

Du hast aber das Ausschalten der Images vergessen.

Und außerdem ist das bereits integriert. Sobald die boolsche Bedingung false ist, wird der Eigenschaft "Visible" ebenfalls "false" zugewiesen.
Also nicht in dem Tonfall. Du kannst auch mal selbst etwas machen bzw. versuchen, den Code zu verstehen, denn das hast du nicht.

So habe ich überhaupt keine Lust mehr, dir zukünftig zu helfen. Auch wenn deine Fragen noch so banal sind.