Repetir varias funciones y salir

[mosco]

Esta puede ser una pregunta basica pero yo no se como resolverla. Llevo poco tiempo con DELPHI. La cuestion es que quiero hacer que se ejecuten varias funciones dentro de un procedimiento y salir cuando pulse otro boton:

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
BorraBuffer;
EnviaDatos();
RecibeDatos;
end;

He probado con repeat...until pero no lo he conseguido.

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[mosco]

Disculpas por no pegar el codigo correctamente. No llevo mucho tiempo por aquí, ya lo pego a continuacion para ir practicando:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  begin
       Memo1.Clear;
      BorraBuffer;
      EnviaDatos();
      RecibeDatos;
   end;

Ahora si....

Gracias.

[ecfisa]

Hola mosco.

Una posibilidad es:

Código Delphi [-]
...
procedure TForm1.btnComenzarClick(Sender: TObject);
begin
  repeat
    Memo1.Clear;
    BorraBuffer;
    EnviaDatos();
    RecibeDatos;
    Application.ProcessMessages;
  until btnTerminar.Tag = -1;
  btnTerminar.Tag := 0;
end;

procedure TForm1.btnTerminarClick(Sender: TObject);
begin
  btnTerminar.Tag:= -1;
end;
...

Saludos.

[[nlsgarcia]]

mosco,

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
    { Private declarations }
  public
    { Public declarations }
  end;

  // Declara los procedimientos y funciones a ejecutar
 
  Procedure Procedimiento1();
  Procedure Procedimiento2();
  Function Funcion1(Param1 : Integer) : Integer;
  Function Funcion2(Param2 : Integer) : Integer;

var
  Form1: TForm1;
  CancelLoop : Boolean;

implementation

{$R *.dfm}

// Implementa los procedimientos y funciones a ejecutar

Procedure Procedimiento1();
begin
   // Codigo a ejecutar
end;

Procedure Procedimiento2();
begin
   // Codigo a ejecutar
end;

Function Funcion1(Param1 : Integer) : Integer;
begin
   // Codigo a ejecutar
   Result := Param1; // Devuelves el valor que calculastes en el código
end;

Function Funcion2(Param2 : Integer) : Integer;
begin
   // Codigo a ejecutar
   Result := Param2; // Devuelves el valor que calculastes en el código
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   F1 : Integer;
   F2 : Integer;
   Param1 : Integer;
   Param2 : Integer;

begin

   CancelLoop := False;

   // Carga los paramtros de inicio de las funciones de ejemplo
   Param1 := StrToInt(Edit1.text);
   Param2 := StrToInt(Edit1.text);

   // El Ciclo se repite hasta que la variable CancelLoop sea true
   repeat

      // Lee eventos externos al loop para permitir su cancelación
      Application.ProcessMessages;

      // Ejescuta varias funciones y procedimientos
      Procedimiento1;
      Procedimiento2;
      F1 := Funcion1(Param1);
      F2 := Funcion2(Param2);

   until CancelLoop;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   // Cambia el valor de la variable CancelLoop a True y cancela el loop repeat
   CancelLoop := True;
end;

end.

El código anterior se explica por si mismo.

Espero sea útil

Nelson.

[mosco]

Gracias ecfisa y Nelson. Funciona perfecto. Sin vuestra ayuda no se lo que hubiera tardado en implementarlo.

Saludos.