AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Funktion richtig deklarieren

Ein Thema von AlexII · begonnen am 4. Jul 2010 · letzter Beitrag vom 4. Jul 2010
Antwort Antwort
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:39
Also hab schon ne Procedure daraus gemacht.

Code:
procedure TForm1.VolumeChange(Position: Integer);
Und das ich diese in der private deklariert habe, ist das ok? Oder lieber public?
Rede ich gegen eine Wand
Zitat:
BTW. Auch das neue Forum unterstützt den Delphi-Tag!
Markus Kinzler
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:45
Rede ich gegen eine Wand
Was denn?
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#3

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:46
Du sollst bei Delphi-Code die [delphi]-Tags nutzen und nicht die [code]-Tags, damit das Syntax-Highlighting auch korrekt erfolgt.
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:48
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.');
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:49
Warum, dass das Delphi-Icon für Delphi steht finde ich recht einleuchtend
Markus Kinzler
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 11:53
Warum, dass das Delphi-Icon für Delphi steht finde ich recht einleuchtend
Ab jetzt schon.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
idefix2

Registriert seit: 17. Mär 2010
Ort: Wien
1.027 Beiträge
 
RAD-Studio 2009 Pro
 
#7

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 15:17
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.

Geändert von idefix2 ( 4. Jul 2010 um 15:25 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#8

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 17:27
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.
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Funktion richtig deklarieren

  Alt 4. Jul 2010, 18:54

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.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:24 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-2025 by Thomas Breitkreuz