![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
#1
|
||||
|
||||
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 --------- |
#2
|
|||
|
|||
Muchas gracias, hecho!!!
|
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|