Aufruf einer Procedure

Hänsel · Beiträge: 144

Hallo,
Ich habe folgendes Problem, wer kann mir da etwas weiter helfen.

Ich habe ein Vereinsprogramm und möchte an verschiedenen Stellen die gleiche Rechenoperation durchführen. Es wäre ja nicht sinnvoll an jeder dieser Stellen das gleiche noch einmal zu schreiben. Ich möchte dazu eine Prozedur hierfür anlegen. Wie sieht diese aus bzw. wo muss ich diese deklarieren und wie kann ich diese dann aus dem Programm heraus aufrufen. Die Prozedur sollte "Prozedure BeitragRechnung" heißen.

Im Voraus besten Dank
Hänsel

galagher · Verfasst: So 10.09.17 12:00

Hänsel hat folgendes geschrieben :

Wie sieht diese aus bzw. wo muss ich diese deklarieren und wie kann ich diese dann aus dem Programm heraus aufrufen. Die Prozedur sollte "Prozedure BeitragRechnung" heißen.

Hallo!

Nun ja, du erstellst zunächst einmal die Prozedur und schreibst deine Berechnungen hinein, zB:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.BeitragRechnung({ggf. benötigte Parameter});
begin
  //die Berechnungen
end;

Wenn du aber ein Ergebnis benötist, musst du das Ganze als Funktion realisieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function TForm1.BeitragRechnung({ggf. benötigte Parameter}): Integer;
begin
  //die Berechnungen
  Result := //das Ergebnis der Berechnungen
end;

Der Aufruf erfolgt dann überall dort, wo die Berechnungen benötigt werden!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Hänsel · Beiträge: 144

Ich habe eine Programmschleife, wo während des Durchlaufes entschieden wird (abhängig von den Einstellungen im Programm) ob die Procedure BeitragRechnung1 oder Procedure BeitragRechnung2 zur Anwendung kommt. Wie rufe ich die entsprechende Procedure auf?

galagher · Verfasst: So 10.09.17 15:19

Hänsel hat folgendes geschrieben :

Ich habe eine Programmschleife, wo während des Durchlaufes entschieden wird (abhängig von den Einstellungen im Programm) ob die Procedure BeitragRechnung1 oder Procedure BeitragRechnung2 zur Anwendung kommt. Wie rufe ich die entsprechende Procedure auf?

Wenn das während des Durchlaufes entschieden wird, dann rufe die entsprechende Prozedur eben je nach Entscheidung auf (= es steht also fest, welche Prozedur aufgerufen werden soll). Irgendein Kriterium, welche Prozedur nun drankommt, muss es ja geben.

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Hänsel · Beiträge: 144

Die Entscheidung erfolgt :

IF Person > 10 then
Begin
wie rufe ich jetzt die Berechnung1 auf?
End
else
Begin
wie rufe ich jetzt die Berechnung2 auf?
End

galagher · Verfasst: So 10.09.17 16:47

Hänsel hat folgendes geschrieben :

Die Entscheidung erfolgt :

IF Person > 10 then
Begin
wie rufe ich jetzt die Berechnung1 auf?
End
else
Begin
wie rufe ich jetzt die Berechnung2 auf?
End

So:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

IF Person > 10 then
Begin
  Berechnung1;
End
else
Begin
  Berechnung2;
End;

Wenn deine Prozeduren Berechnung1 und Berechnung2 Parameter erfordern, musst du diese natürlich mit angeben!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Hänsel · Beiträge: 144

Ich benötige dazu keine Parameter. Ich möchte nur über IF-Anwendung eines dieser Prozeduren starten .Da hätte ich gern die Befehlszeile hierzu. Sorry, da habe ich mich sicher schlecht ausgedrückt.

jaenicke · Verfasst: So 10.09.17 17:16

Genau das hat dir user profile icon

galagher doch geschrieben als Quelltext.

galagher · Verfasst: So 10.09.17 17:17

Hänsel hat folgendes geschrieben :

Ich möchte nur über IF-Anwendung eines dieser Prozeduren starten .Da hätte ich gern die Befehlszeile hierzu.

Die Befehlszeile ist der Name der Prozedur! Schreib ihn hin und das ist es auch schon.

//Edit:
@ user profile icon

jaenicke: Unsere Beiträge haben sich "überschnitten"!

_________________
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!

Hänsel · Beiträge: 144

Danke für Eure Hinweise!

Hänsel

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme