Holas, esta aqui ixMike conmigo y dice que aqui teneis el codigo:
Código Delphi
[-]
Function ContarPalabras(Texto: String; Separador: Char): Integer;
var i: Integer;
begin
Result:=0;
If Length(Texto)=0 then Exit else
for i:=1 to Length(Texto) do if Texto[i]=Separador then Inc(Result);
Inc(Result);
end;
Function ObtienePalabra(Texto: String; Separador: Char; Indice: Integer): String;
var
c, n, p: Integer;
Resto: String;
begin
If Pos(Separador,Texto)=0 then Result:=Texto else
begin
c:=1;
for n:=1 to Length(Texto)do
if Texto[n]=Separador then
begin
if Indice=1 then
begin
Result:=Copy(Texto,1,n-1);
Exit;
end;
Inc(c);
p:=n+1;
Resto:=Copy(Texto,p,Length(Texto)-p+1);
If c=Indice then
begin
If Pos(Separador,Resto)>0 then
Result:=Copy(Texto,p,Pos(Separador,Resto)-1)else Result:=Resto;
Exit;
end;
end;
end;
end;
y dice: "que aproveche !!"
Saludos !!