Entwickler-Ecke :: Thema anzeigen - Erzwungener Sprung in andere Prozedur?!

Anarkids - Fr 17.03.06 10:43
Titel: Erzwungener Sprung in andere Prozedur?!

hi leute.

ich hätt da mal ne etwas doofe frage: kann ich einen sprung aus einer prozedur in die andere erzwingen?

mfg, anarkids

Moderiert von Gausi: Topic aus Sonstiges (Delphi) verschoben am Fr 17.03.2006 um 09:45

Gausi - Fr 17.03.06 10:47

Klar geht das:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure eins;
begin
  showmessage('Eins');
end;

procedure zwei;
begin
  eins;
  showmessage('Zwei');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  zwei;
end;

Anarkids - Fr 17.03.06 10:52

erstmal danke dir!

kann ich auch an bestimmte stellen springen? oder muss ich die procedure immer neu aufrufen, wenn ich springen will?

und was ist wenn ich z.b. sowas mache:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure eins;
begin
  showmessage('Eins');
end;

procedure zwei;
begin
  TForm1.Button1Click; //Hier will ich in die Button Click procedure springen...
  showmessage('Zwei');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  zwei;
end;

danke im vorraus!

Gausi - Fr 17.03.06 10:57

Hab ich eben noch vergessen: :welcome: in der Entwickler-Ecke!

Delphi-Quelltext

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

procedure zwei;   
begin   
  TForm1.Button1Click(NIL); //Hier will ich in die Button Click procedure springen...   
  showmessage('Zwei');   
end;   

procedure TForm1.Button1Click(Sender: TObject);   
begin   
  zwei;   
end;

Das kann man machen. Dir sollte aber klar sein, dass das ne Endlosschleife gibt ;-)

An eine bestimmte Zeile in einer Prozedur springen geht nicht. Eine Prozedur kann nur als ganzes aufgerufen werden.
Aber man kann über Parameter steuern, was die Prozedur machen soll:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure einzwei(zahl: integer);
begin
  if zahl=1 then eins
  else
   if zahl=2 then zwei;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!