Como declarar una funcion en Delphi que devuelve la k-esima palabra de una cadena
 

hola a todos,tengo un problema al declarar una funcion, pues resulta que tengo una funcion que devuelve la k-esima palabra de una cadena, asi que el usuario ingresa una cadena y el numero de la palabra que quiere que se le devuelva, y al declararlo en una funcion nose como declarar 1 variable que sea string y otra cardinal..........
lo normal que hacia era: function Suma(x:cardinal):boolean;
pero como esta funcion debe recibir un dato de tipo string y otro de tipo cardinal no se como declararlo ahi, alguien que me ayude por favor, soy nuevo en esto asi que no se mucho de delphi

¿Y no te vale así?

Código Delphi [-]
function ObtenerCadena(const Cadena: string; x:cardinal): string;

Saludos

branncg,

¡Bienvenido al Club Delphi! :D

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Retorna un SubString en base a su posición en el String fuente
function GetSubString(Source : String; Position : Integer) : String;
var
   SL : TStringList;
begin
   SL  := TStringList.Create;
   ExtractStrings([' '],[],PChar(Source),SL);
   Result := SL.Strings[Position - 1];
   SL.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Source : String;
   Position : Integer;

begin

   Source := 'La inteligencia es la habilidad para adaptarse al cambio';
   Position := 2;

   // Retorna y muestra el substring 2 del string Source : inteligencia
   MessageDlg(GetSubString(Source,Position),mtInformation,[mbOK],0);

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Permite obtener un substring de un String por medio de una función.

Revisa esta información:
Espero sea útil :)

Nelson.

gracias, ahora si me funciono