Funciones?, Procedimientos?

[[Caral]]

Hola
Como bien sabéis, de estas cosas no se pero se que algunos, muy pocos, sabéis un poco menos que yo, así que os quiero explicar, como novato, que aveces no necesariamente se tienen que hacer las cosas de una u otra manera, que se pueden hacer como le quede a uno mas cómodo, mas fácil de entender o incluso mas practico.
Sabemos que en internet, el Club y en muchos sitios encontramos funciones que nos hacen la vida mas simple, si claro, ya están hechas y para que romperse la cabeza.
Pues bien, muchas veces queremos, incluso por curiosidad, entenderlas pero no nos dan las neuronas, entonces a donde recurrimos, bueno, puede ser a un amigo, aun asi, recuerden, las neuronas no nos dan.
Bueno, según lo poco que he aprendido me gusta usar los procedimientos, incluso mas que las funciones, si ya se, en ciertos casos es inevitable, pero os quiero dar un simple ejemplo para que tratéis de entender que no necesariamente tenemos que menospreciar nos por no saber o poder tener claro el uso de las funciones teniendo en la mano a los procedimientos.
Primero hagamos una función, sencilla pero tediosa:
Creemos un form y coloquemos le tres edit y un botón.
Ahora pongamos una variable global, en este caso integer, asi:

Código Delphi [-]
var
  Form1: TForm1;
  VariableGlobal: integer;
implementation

Ahora creemos nuestra funcion, sencilla:

Código Delphi [-]
function suma(dato1,dato2:Integer; dato3:bool):bool;
begin
 if (dato1+dato2 = VariableGlobal) and (dato3 = true) then
     result := true
 else result := false;
end;

Tratemos de entender que hace esta cosa:
La función se llama suma, bueno, debería de sumar.
Tiene dos datos integer y un dato boleano.
Osea, los primeros son la ejecución y el tercero cumple un criterio.
Si el criterio es cierto, envía un resultado boleano, es lo que esperamos recibir de esta función.

Ahora veamos el desarrollo de la función:
Dice: SI el dato1 sumado al dato2, (integer, dentro de la variable) y el dato3 es verdadero (cumple un criterio) se disparara, enviando el resultado dentro de (result), muy obvio, el nombre lo dice.

Ahora veamos como funciona esta función, sencilla:
Usemos el boton y en el evento onclick ponemos esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 VariableGlobal := strtoint(Edit1.Text);
 if Suma(StrToInt(Edit2.Text),StrToInt(Edit3.Text),true) then
 ShowMessage('El resultado es '+Edit1.Text);
end

Tratemos de analizarlo:
La primera linea llama a la variable global e indica que es igual al edit1.
En la segunda linea dice:
SI (LLAMAMOS O NOS POSICIONAMOS EN LA FUNCIÓN SUMA) le eviamos los datos dentro del edit2 y el edit3 he indicamos que tiene que ser verdadero (TRUE), entonces, si se cumplió lo que indica la función, envia un mensaje en el que concatenamos el resultado, recordad (result) al edit1.

Como veis, esta sencilla función lo único que hizo fue comparar dos datos que al ser sumados den como resultado el tercer dato, de obtenerse el dato correcto enviara un mensaje.
Ojala todas las funciones fueran tan sencillas........

Bien, ahora veamos como se haría esto usando un procedimiento y si varia el resultado:
En el mismo form pongamos otro boton:
Creemos el procedimiento (suma1), al principio, donde estan todos, asi:

Código Delphi [-]
    procedure suma1;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

Coloquemos un par de variables globales, en este caso una string, la llamamos x, otra boolean, la llamamos b asi:

Código Delphi [-]
var
  Form1: TForm1;
  x: String;
  b: boolean;
  VariableGlobal: integer;
implementation

Ahora hagamos nuestro procedimiento:

Código Delphi [-]
Procedure TForm1.suma1;
begin
  If FloatToStr(StrToFloat(Edit3.Text) + StrToFloat(Edit2.Text)) = Edit1.Text then
   begin
   x:= Edit1.Text;
   b:= true;
   end
   else
   b:= false;
end;

Tratemos de analizarlo, dice:
SI el contenido del edit3 sumado al contenido del edit2 es igual al edit1 entonces X (variable global) es igual al edit1 y b (variable boolean) es verdadera (true), de lo contrario (else) es falsa.

Veamos como llamaríamos a este procedimiento y que nos devuelve como resultado:
Usemos el evento onclick del segundo boton, asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  suma1;
   If b = True then
  Showmessage('El resultado es ' + x);
end;

Que hace:
Llamamos al procedimiento suma1.
Si coinciden los datos con los del procedimiento entonces comprueba que la variable b sea verdadera y nos envia un mensaje que contiene el resultado dentro de la variable global X.

Si ejecutáis el programa veréis que tanto el uso de la función como el del procedimiento envía Exactamente lo mismo y hacen la misma comprobación.

Este solo es un ejercicio para que los novatos como yo no os desaniméis y veáis que se pueden hacer las cosas de muchas maneras, por lo menos a mi me parece.

Espero os sea de utilidad.
Saludos

[ioco]

Gracias por tu aporte Caral ^^ a los que empezamos hace poco a programar siempre nos van bien este tipo de textos

Para complementar tu post con más opciones, añadiré otra posible manera de realizar el procedimiento que comentas:

Código Delphi [-]
Procedure TForm1.suma1(num1,num2,sumado: String; OUT x: String; OUT b: Boolean);
begin
  If StrToFloat(num1)+StrToFloat(num2)=StrToFloat(sumado) then
    begin
      x:= sumado;
      b:= true;
    end
  else
    b:= false;
end;

Este procedimiento es exactamente igual que el tuyo, pero utilizando parámetros al igual que en la función de más arriba.

Así, mediante los parámetros hacemos que el procedimiento sea más versátil y sirva para cualquier otro conjunto de datos (3 strings de entrada para los sumandos y el resultado a comprobar, 1 string de salida y 1 booleano de salida.

Un saludo.

[[Caral]]

Hola
Gracias por el aporte, muy interesante.
Espero que alguien mas se anime, siempre es bueno ver mas opciones.
Saludos

[LuisAlf::]

Interesante....

hOLA Ioco....

Disculpa, no puedes explicar mas a fondo el procedimiento que pones con parametros....

La verdad no se como es eso lo de OUT....si podrias explicarlo como funciona y como se manda a llamar tal procedimiento...

Saludos...

[[Caral]]

Hola
Segun lo que entiendo y que me corrija ioco OUT indica que las variables traspasan el procedimiento.
Para que este procedimiento funcione se tiene que tratar casi como una funcion.
Hay que declarar el procedimiento completo, donde estan los otros asi:

Código Delphi [-]
    procedure suma1;
    procedure suma2(num1,num2,sumado: String; OUT x: String; OUT b: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

Colocas las variables globales:

Código Delphi [-]
var
  Form1: TForm1;
  x: String;
  b: boolean;
implementation

Luego haces el procedimiento de ioco, asi:

Código Delphi [-]
Procedure TForm1.suma2(num1,num2,sumado: String; OUT x: String; OUT b: Boolean);
begin
  If StrToFloat(num1)+StrToFloat(num2)=StrToFloat(sumado) then
    begin
      x:= sumado;
      b:= true;
    end
  else
    b:= false;
end;

Y luego lo llamas asi:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
   suma2(Edit2.Text,edit3.Text,edit1.Text,x,b);
  If b = True then
  Showmessage('El resultado es ' + x);
end;

Como ves, en vez de que sea el procedimiento el que contenga los datos, es al llamarlo que se los indicas.
Saludos

[[AzidRain]]

Cara,las funciones o procedimientos son meramente estructuras que el lenguaje nos ofrece, hay algunos donde todo método de clase es una función. Delphi es de los pocos que aún permite la existencia de ambos. En lenguaje C no existen por ejemplo los procedimientos si una funcion no tiene que devolver nada la hacemos igual a nil y punto.

Aquí nuestro querido Delphi nos dá oportunidad de usar "procedures" como funciones que no tienen por que devolver algo o bien funciones.
Al final es lo mismp hacer un función que siempre devuelve nil (que en efecto del Delphise puede hacer) una que devuelve algo.
Mas que nada es cuetión de estilos.