[Delphi] przejście do jakiejś procedury

jak zrobić tak żeby w czasie wykonywania jakiejś procedury przeskoczyć nagle do innej ?

Po prostu w kodzie pierwszej procedury umieścić wywołanie drugiej

a jak to wywołanie ma wyglądać ?

.....
bla bla bla
procedure TForm1.Procedura1;
begin
ShowMessage('tralala');
end;

......
bla bla bla

Procedure Tralall; (jakas procedyra w ktorej chcesz wykonac inna)
begin
.....
bla bla bla
Procedura1; // To jest wywolanie innej procedury
....
bla bla bla
end;

pewnie narozbilem jakichs bledow w pisowni ale tak to powinno wygladac. Bynajmniej ja tak robie.

Np. procedure.button1.click;

hm
może tak :
private
procedure pierwsza;
procedure druga;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
procedure Tform1.pierwsza;
begin
showmessage('heee');
begin
druga
end;
end;
procedure Tform1.druga;
begin
showmessage('he');
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
pierwsza;
end;
end.
:-)

ok dzięki :-) , ale da sie wywołać procedure która została wygenerowana np po kliknięciu na przycisk a nie z sekcji prywatnej ?

ok dzięki :-) , ale da sie wywołać procedure która została wygenerowana np po kliknięciu na przycisk a nie z sekcji prywatnej ?

Tak: Button1Click(nil)

tenkju all :-)