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;
Y luego despues de
implementation va lo siguiente
Código:
Function PruebaFuncion(Texto :String) :String;
Begin
Result := Texto + 'Mundo';
end;
Despues por ejemplo llamas a la funcion en algun evento de algun objeto:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
Stringr : String;
begin
PruebaFunction (Stringr);
end;
Y listo
***Regards***