No sabia si postearlo por aca, soy novato en el foro y en delphi, tengo poco tiempo de estar usandolo, Trabajo con delphi 2010(Embarcadero).
El problema es el siguiente: estoy elaborando una aplicacion en la cual tengo 3 procedures,
( procedure proceso1(), procedure proceso2(),procedure proceso3()
) adjunto el codigo:
Código Delphi
[-]
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure proceso3();
var I:Integer;
begin
for I := 1 to 100 do
Begin
Form2.Proceso2.Caption:= 'Proceso3';
End;
end;
procedure proceso2();
var I:Integer;
begin
for I := 1 to 100 do
Begin
Form2.Proceso1.Caption:= 'Proceso2';
End;
Form2.Proceso1.Caption:= '';
end;
procedure proceso1();
var I:Integer;
begin
for I := 1 to 100 do
Begin
Form2.Proceso1.Caption:= 'Proceso1';
End;
Form2.Proceso3.Caption:= '';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
proceso1();
end;
end.
El problema es que necesito hacer una llamada infinita de estos procedimientos de tal forma que:
El dentro del proceso1 pueda llamar al proceso2, dentro del proceso2 pueda llamar al proceso3 y dentro del proceso3 llame al proceso1, representando un ciclo infinito.
Entonces.. logro hacer que un procedimiento llame a otro que previamente haya sido definido, pero no logro hacerlo cuando este no ha sido posteriormente, de forma mas concreta, en el proceso1 llamo al proceso2, en proceso2 llamo al proceso3, pero cuando intento llamar al proceso1, dentro del proceso3, me dice un mensaje de que proceso1 no se ha declarado, intente colocar el procedura en public, pero no me ha funcionado.
Espero puedan ayudarme con esto, de antemano, gracias.