![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#2
|
||||
|
||||
|
En Visual es algo como:
Function PruebaFuncion(Texto As String) As String PruebaFuncion = Texto + " Mundo" End FunctionEn delphi es asi: Delclaras primero en public la funcion Código:
Function PruebaFuncion(Texto :String) :String; Código:
Function PruebaFuncion(Texto :String) :String; Begin Result := Texto + 'Mundo'; end; Código:
procedure TForm1.Button1Click(Sender: TObject); var Stringr : String; begin PruebaFunction (Stringr); end; ***Regards***
__________________
-------- Pablo: -------- ----- Programador ----- -------- Delphi --------- |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|