frage zu einer przedur

[PomBär]

hallo leutz
ich bin gerade dabei mit delphisource durchzulesen und hätte dazu mal ne frage.
Beispiel: Die folgende Prozedur gibt so viele Töne über den PC-Lautsprecher aus, wie über den Parameter "Anzahl" angegeben.

Delphi-Quellcode:

 
 procedure Toene(Anzahl: integer);
  var i: integer;
  begin
    for i:=1 to Anzahl do
      beep;
  end;

Der Aufruf für fünf Töne geschieht so:
  Toene(5); allerdings, wenn ich

Delphi-Quellcode:

procedure Toene(5);
  var i: integer;
  begin
    for i:=1 to 5 do
      beep;
  end;

mache funzt das irgendwie net. wie müsste es denn sein damit es läuft?
danke im voraus
PomBär

[Smokey]

Hmm mal ganz bescheiden gefragt:

Wozu willst du ne Prozedur mit Konstantem Übergabeparameter schreiben? Den du dann eh nicht benutzt?
Was unsinnigeres gibts doch eigendlich garnet oder?

Wenn immer 5 Töne kommen sollen, lass Parameter ganz weg.

[ustra]

Hi,

Du kannst eine Prozedur nicht deklarieren, indem Du als Parameter einfach Fünf schreibst. Du musst immer schreiben, wie die Variable heißt und was es für ein Typ (string, integer) ist, so wie es auf Delphi-source.de gemacht. UNd im Übrigen sehe ich auch nicht den Sinn darin, immer den Wert 5 zu übergeben.

Ulrich

[trifid]

Hallo,

probiers mal mit :

Delphi-Quellcode:

for i:=1 to 5 do
      MessageBeep (i);

wenn nicht muss Du wohl ein MCI-Kommando (mciSendCommand) abschicken um die Soundgeschichte wieder zurückzusetzen

[PomBär]

es ist ein beispiel für den aufbau einer prozedur.
was meinst du mit konstanten übergabeparametern die ich dann nicht benutze? ich versuche nur das beispiel zu verstehen.

[PomBär]

MessageBeep ist ein undefinierter bezeichner.
was muss ich tun?

[braingrenade]

Probiers mal so :

Delphi-Quellcode:

procedure Toene;
  var i: integer;
  begin
    for i:=1 to 5 do
      beep;
  end;

Einfach ganz ohne Parameter.

[Niels]

Moin!

procedure Toene(Anzahl: integer); Die Parameterliste hinter Toene dient dazu, Werte an die Prozedur zu übergeben. Anzahl ist ein Wertparameter und dient als Endwert der For-Schleife. An dieser Stelle musst du nun auch einen Wert an die Prozedur weitergeben. Tust du das so
procedure Toene(5); dann weiß dein Prog doch gar nicht was es mit der 5 anfangen soll. Dass da früher mal Anzahl stand, oder dass er die 5 als Anzahl nutzen soll kann der Compiler ja nicht wissen.
Die Prozedur hat den Zweck, dass in irgend einem Programm eine variable Anzahl an Beeps über den Speaker ausgegeben werden kann. Deshalb ist auch dieser Parameter enthalten. Willst du irgendwo mal 5 Beeps ausgeben, brauchst du diese Prozedur nicht und kannst das einfach (wie auch in vorherigen Posts gesagt) über eine Schleife im Quellcode machen:

Delphi-Quellcode:

var i: integer;
begin
...
...
  for i:=1 to 5 do
    beep;
...
...
end;

MfG Niels