Funktion richtig deklarieren

[AlexII]

Hallo,

ich hab eine Funktion geschrieben, aber irgendwie bekomme ich sie nicht zum laufen, wer kann mir da helfen?

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    function VolumeChange(Position: Integer): Integer;


function TForm1.VolumeChange(Position: Integer): 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;

procedure TForm1.VolumeBarChange(Sender: TObject);
begin
VolumeBarChange(VolumeBar.Position); <-- hier ist der Fehler "Inkompatible Typen: 'TObject' und 'Integer'"
end;

Muss dazu noch sage, dass mich noch ein bisschen schlecht mit Funktionen auskenne.

[jfheins]

-- vergiss es, ich sehe die Fehlermeldung jetzt ---

Vielleicht noch ein Hinweis, damit mein Post nicht ganz für die Katz ist: Die Codeeinrückung gefällt mir gar nicht.

[Matze]

VolumeBarChange(VolumeBar.Position); <-- hier ist der Fehler "Inkompatible Typen: 'TObject' und 'Integer'" Deine Funktion heißt "VolumeChange". "VolumeBarChange" ist die Methode von der TTrackBar o.ä.

@Julius: Die Fehlereldung steht im Code. Ich habe sie auch erst übersehen.
@Alex: Da du keinen Wert in der Funktion zurück gibst (kein "Result := ..."), kannst du eine Prozedur daraus machen:

procedure TForm1.VolumeChange(Position: Integer);

[mkinzler]

Wolltest du nicht VolumeChange() statt .VolumeBarChange() aufrufen?

BTW. Auch das neue Forum unterstützt den Delphi-Tag!

[SirThornberry]

@AlexII: Bitte gib dem Thema einen aussagekräftigen Titel.

[guinnes]

Warum eigentlich eine Function, wenn du kein Ergebnis zurücklieferst ?

[AlexII]

Zitat von SirThornberry:

@AlexII: Bitte gib dem Thema einen aussagekräftigen Titel.

Wo mache ich das? Blicke hier nicht durch

[AlexII]

Zitat von guinnes:

Warum eigentlich eine Function, wenn du kein Ergebnis zurücklieferst ?

Ja... ok ich ändere das.

Und sonst ist alles ok? auch die Deklaration der Funktion in "Private"?

[mkinzler]

Antwort Bearbeiten-> Erweiteter Editor

[AlexII]

Zitat von jfheins:

Vielleicht noch ein Hinweis, damit mein Post nicht ganz für die Katz ist: Die Codeeinrückung gefällt mir gar nicht.

Also für mich ist es besser so, voll Übersichtlich.