Entwickler-Ecke
Sonstiges (Delphi) - Aufruf einer Procedure
Hänsel - So 10.09.17 10:37
Titel: Aufruf einer Procedure
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 - 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:
Delphi-Quelltext
1: 2: 3: 4:
| procedure TForm1.BeitragRechnung(); begin end; |
Wenn du aber ein Ergebnis benötist, musst du das Ganze als Funktion realisieren:
Delphi-Quelltext
1: 2: 3: 4: 5:
| function TForm1.BeitragRechnung(): Integer; begin Result := end; |
Der Aufruf erfolgt dann überall dort, wo die Berechnungen benötigt werden!
Hänsel - So 10.09.17 14:56
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 - 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.
Hänsel - So 10.09.17 15:36
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 - 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:
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!
Hänsel - So 10.09.17 17:14
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 - So 10.09.17 17:16
Genau das hat dir
galagher doch geschrieben als Quelltext.
galagher - 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:
@
jaenicke: Unsere Beiträge haben sich "überschnitten"!
Hänsel - So 10.09.17 17:49
Danke für Eure Hinweise!
Hänsel
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!