Prozedur in Prozedur aufrufen!?

Ashiaka · Hält's aus hier Beiträge: 2 Win XP D3 Prof

Hi!
Hab ne Frage:

Wie ist es möglich innerhalb einer Procedur eine andere aufzurufen, so dass diese dann 1 mal durchläuft und dann wieder zur eigentlichen zurückspringt?

MfG, Ashiaka

Moderiert von Tino: Topic verschoben.

Gast Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure foo;
begin
 showmessage('afdnkap');
end;

procedure bar;
begin
 showmessage('asd');
 foo;
 showmessage('asd');
end;

ist es das oder hab ich deine Frage falsch verstanden?

Killmag10 · Verfasst: So 02.11.03 14:46

Da du denk ich mal noch nicht so gut Delphi kannst erkläre ich dir nochmal den aufbau !

procedure Prozedurname(Parameterliste);

Procedure = sagt das es eine Procedure ist

Prozedurname = ist einfach der Name

Parameterliste = sind die Varieablen und Konstanden die du übergibst (must du auch beim aufrufen immer mit über geben !)

Beispiel

markieren

Delphi-Quelltext

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

Procedure TForm1.test(Sender :TObject);
begin
showmessage('test');
end;

Procedure TForm1.Button1Click(Sender: TObject);
begin
test(Procedure_butten);
end;

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik

Ashiaka · Hält's aus hier Beiträge: 2 Win XP D3 Prof

Danke! Werde es mit euren Tipps mal versuchen!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo und

hier im Delphi-Forum.de!

Wenn die Procedure nur in der einen anderen Procedure aufgerufen werden muss dann kannst du das auch so implementieren:

markieren

Delphi-Quelltext

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

Procedure Test;

    Procedure Test2;
    Begin
      { Hier der Code }
    End;

Begin
  Test2;
End;

Dadurch ist die Procedure Text2 nur in der Procedure Text1 aufrufbar.

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme