Como crear procedimiento

[hernan35]

Buenas tardes a todos.

Estoy haciendo un programita de cálculo y necesito usar una ecuación varias veces durante la ejecución, pero introduciendo distintos coeficientes cada vez.
Creo que la solución es poner la ecuación como procedimiento. Mi problema es que no se como crear un procedimiento, espero puedan ayudarme.

Desde ya muchas gracias a todos.

[bothy]

Código Delphi [-]
procedure NombreDelProcedimiento ;
begin
..........
...........
............ //codigo de la ecuacion
..........
end;
//y para llamar este procedimiento nomas tendria que poner en el  procedure principal o en un
//boton que tengas para hacer esta ecuacion

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

[[coso]]

Hola,
deberas usar una funcion, la cual te devuelva un valor especifico:

Código Delphi [-]
 
function Solver(a,b,c : integer) : double;
begin
   Solver := a + b + c;
end;
...
var 
    x : double;
begin
    x := Solver(3,2,1);
    ShowMessage(FormatFloat('0.00',x));
end;

yo de ti le echaria un vistazo largo a algun tutorial sobre funciones y procedimientos, porque es algo muy basico y bastante necesario en programacion. Un saludo.

[rrf]

Este ejemplo es de una función que recibe parámetros y devuelve un resultado y se declara en la cabecera de la unit.

Se incluye un etiqueta (label1) y un botón (button1) en el form.

Este es el código completo, espero que te sirva.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;

            // Aquí se declara la función "Mi_Ecuacion". De esta manera
            // podrá ser llamada desde otra Unit de esta forma:
            //     "Form1.Mi_Ecuacion ( 3, 2, 5 ); "
    Function Mi_Ecuacion( v1, v2, v3 : integer): real ;

    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

   // recibe v1, v2 y v3 que son valores enteros y devuelve un valor "real"
function TForm1.Mi_Ecuacion(v1, v2, v3: integer): real ;
begin

    // "result" es el valor que devolverá la función
  result := ( v1 + v2 ) / v3 ;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    // Muestra el resultado de la ecuación en Label1
    // 3, 4 y 8  son los valores que se dan para que se haga el
    // cálculo con la función "Mi_Ecuacion". Pueden ser otros valores, claro.

  Label1.Caption := FloatToStr(   Mi_Ecuacion ( 3, 4, 8 )  ) ;

end;

end.

Está probado en Delphi 7 y funciona bien.

Salu2.

Ramón.