![]() |
AW: Funktion richtig deklarieren
Zitat:
|
AW: Funktion richtig deklarieren
Du sollst bei Delphi-Code die [delphi]-Tags nutzen und nicht die [code]-Tags, damit das Syntax-Highlighting auch korrekt erfolgt.
|
AW: Funktion richtig deklarieren
Zitat:
Delphi-Quellcode:
ShowMessage('Ja das neue Design hier verwirrt ein bisschen.');
|
AW: Funktion richtig deklarieren
Warum, dass das Delphi-Icon für Delphi steht finde ich recht einleuchtend
|
AW: Funktion richtig deklarieren
Zitat:
|
AW: Funktion richtig deklarieren
So ein Sequenz von if then else ist nicht wirklich übersichtlich. Wenn schon so kompliziert, dann wenigstens ein case:
Delphi-Quellcode:
aber noch viel besser, weil man auf einen Blick sieht, was passiert:
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 *);
Delphi-Quellcode:
Aber die erste Lösung ist natürlich besser, wenn Du für die Anzahl der Codezeilen in Deinem Programm bezahlt wirst. :)
VolumeMuted.Visible := position = 0;
VolumeLow.Visible := position in [1..33]; VolumeMedium.Visible := position in [34..66]; VolumeHigh.Visible := position > 66; |
AW: Funktion richtig deklarieren
[edit]
ach, hatte ja schon jemand geschrieben |
AW: Funktion richtig deklarieren
Zitat:
Es wäre etwas anderes, wenn die Sichtbarkeit für mehrere Fälle gesetzt werden soll. |
AW: Funktion richtig deklarieren
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... |
AW: Funktion richtig deklarieren
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz