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

[branncg]

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

[[ElKurgan]]

¿Y no te vale así?

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

Saludos

[[nlsgarcia]]

branncg,

Empezado por branncg

...Como declarar una función en Delphi que devuelve la k-esima palabra de una cadena...

¡Bienvenido al Club Delphi!

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:

1- Libros y tutoriales para aprender Delphi

2- Start Programming Using Object Pascal

3- Function

4- Procedure

Espero sea útil

Nelson.

[branncg]

gracias, ahora si me funciono