Wenn du sie nicht "public" braucht, dann gehört sie da auch nicht hin, wieso auch ...
Edit: Was, du hast diese Formatierung in der Schule gelernt?!
Ich finde es so o.ä. deutlich angenehmer. Bei vielen Verzweigungen geht so der Code nicht "auseinander":
Delphi-Quellcode:
procedure TForm1.VolumeChange(Position: Integer);
begin
if Position = 0 then
begin
VolumeLow.Visible := false;
VolumeMedium.Visible := false;
VolumeHigh.Visible := false;
VolumeMuted.Visible := true;
end
else if (Position > 0) and (Position <= 33) then
begin
VolumeLow.Visible := true;
VolumeMedium.Visible := false;
VolumeHigh.Visible := false;
VolumeMuted.Visible := false;
end
else if (Position > 33) and (Position <= 66) then
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;
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, Position / 100);
end;
Aber gut, die Formatierungsdiskussion müssen wir hier nicht wiederholen. Sonderlich gut ist die deines Lehrers jedoch nicht.
Solltest du an einen zukünftigen Arbeitgeber Beispielcode schicken, der so formatiert ist wie deiner, wirst du vermutlich keine allzu guten Chancen haben, genommen zu werden.
Folgende Verzweigung wäre übrigens auch denkbar, wenn die Werte immer positiv sind (im Prinzip sind die Verzweigungen auch nicht nötig, nur ob boolsche Verknüpfungen übersichtlicher sind, ist die andere Frage). Schneller ist's vermutlich wie du's hast.
Delphi-Quellcode:
if Position = 0 then
// ...
else if Position <= 33 then
// ...
else if Position <= 66 then
// ...
else
// ...