Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

avatar
Administrador
Administrador

Ver perfil de usuario http://www.pitbullsecurity.org
el Jue Ene 06, 2011 9:43 am
Una simple funcion de sumaen delphi,otra de las cosas que e aprendido de este lenguaje para dejar al monotomo visual basic 6. espero les sirva
Código:

{Funcion Para sumar 2 numeros.
}
function Sumar(num1,num2:integer):integer;
begin
Sumar := num1+num2; // Tambien podriamos poner Result:=num1+num2,pero veo mas facil llamando a la misma funcion
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('El Resultado es '+inttostr(sumar(5,5)));//Mostramos un mensaje al click,lo ponemos en Ascii ,llamamos la funcion sumar y ponemos los valores numericos!
end;

end.


___________________
Admin: Pitbull Security Labs , Colaborador: Indetectables , Moderador: Level-23

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.