mosco,
Cita:
Empezado por mosco
quiero hacer que se ejecuten varias funciones dentro de un procedimiento y salir cuando pulse otro boton:
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
Procedure Procedimiento1();
Procedure Procedimiento2();
Function Funcion1(Param1 : Integer) : Integer;
Function Funcion2(Param2 : Integer) : Integer;
var
Form1: TForm1;
CancelLoop : Boolean;
implementation
{$R *.dfm}
Procedure Procedimiento1();
begin
end;
Procedure Procedimiento2();
begin
end;
Function Funcion1(Param1 : Integer) : Integer;
begin
Result := Param1; end;
Function Funcion2(Param2 : Integer) : Integer;
begin
Result := Param2; end;
procedure TForm1.Button1Click(Sender: TObject);
var
F1 : Integer;
F2 : Integer;
Param1 : Integer;
Param2 : Integer;
begin
CancelLoop := False;
Param1 := StrToInt(Edit1.text);
Param2 := StrToInt(Edit1.text);
repeat
Application.ProcessMessages;
Procedimiento1;
Procedimiento2;
F1 := Funcion1(Param1);
F2 := Funcion2(Param2);
until CancelLoop;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
CancelLoop := True;
end;
end.
El código anterior se explica por si mismo.
Espero sea útil
Nelson.