Capturar Texto de un String luego de un espacio

[kirios]

Hola, tengo un arreglo de strings, que tienen dos palabras separadas por un espacio, y quiero capturar la segunda. Podran orientarme? graciaas

[roman]

Usa la función Pos para encontrar la posición del espacio, y luego la función Copy para copiar la parte de la cadena a partir del espacio.

// Saludos

[[Chris]]

Para resolver tu problema se necesitan del uso de dos funciones: Copy y Pos. Mira este ejemplo:

Código Delphi [-]
segunda_palabra := Trim(Copy(TextoCompleto, Pos(' ', TextoCompleto), Length(TextoCompleto)));

Uso la función Trim para quitar cualquier espacio que pueda existir de más.

Por último, no me queda claro a que te refieres con el Arreglo de Strings.

Saludos,
Chris

[kirios]

claaro, pensaba en eso, pero no se cuantos espacios tengo en el string. con la funcion length puedo sacar la longitud de todo la cadena... podria de alguna forma restarle la posicion del espacio a la longitud total y saber cuantos caracteres quedan? :P graciaas

[kirios]

aah, buenisimo, graciaaas

[kirios]

Arreglo de strings: array[1..N] of strings;

[ecfisa]

Hola.

Hola, tengo un arreglo de strings, que tienen dos palabras separadas por un espacio, y quiero capturar la segunda

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 1 to 10 do
    ListBox1.Items.Add(Copy(VStr[i],Pos(' ', VStr[i])+1, MaxInt));
  ...
end;

Saludos.

[ecfisa]

Empezado por kirios

claaro, pensaba en eso, pero no se cuantos espacios tengo en el string. con la funcion length puedo sacar la longitud de todo la cadena... podria de alguna forma restarle la posicion del espacio a la longitud total y saber cuantos caracteres quedan? :P graciaas

¿ Puede haber espacios antes del que separa ambas palabras ?

Saludos.

[[Chris]]

Empezado por kirios

Arreglo de strings: array[1..N] of strings;

Obvio! entiendo lo que es Arreglo de Strings: Lo que no entendía, que papel jugaba mencionar esto en tu pregunta. Pero bueno, espero que hallas solucionado tu problema.

Saludos,
Chris

[ecfisa]

Empezado por ecfisa

¿ Puede haber espacios antes del que separa ambas palabras ?
Saludos.

Me contesto solo

Código Delphi [-]
var
  i: Integer;
  s: string;
begin
  for i:= 1 to 10 do
  begin
    s:= TrimLeft(VStr[i]);
    ListBox1.Items.Add(Copy(s, Pos(' ',s)+1, MaxInt));
  end;
end;

Saludos.

[kirios]

[quote=ecfisa;404624]¿ Puede haber espacios antes del que separa ambas palabras ?

Saludos.[/QUOTE

no, hay un solo espacio

[ecfisa]

De esta manera quitas los posibles espacios que estén antes de la primera palabra y despues de la segunda

Código Delphi [-]
 for i:= 1 to n do
  begin
    s:= Trim(VStr[i]);
    ListBox1.Items.Add(Copy(s, Pos(' ',s)+1, MaxInt));
  end;

Saludos.

[kirios]

me podras pasar bien el codigo? la funcion copy no la habia usado antes... sirve aun sin saber cuantos elementos quedan en el string despues del espacio?
graciaaas

[ecfisa]

Empezado por kirios

me podras pasar bien el codigo? la funcion copy no la habia usado antes... sirve aun sin saber cuantos elementos quedan en el string despues del espacio?
graciaaas

Hola.

El uso de la función Copy está explicado en la ayuda de delphi.
Aqui también vas a encontrar ayuda y ejemplos: Copy.
Aqui sobre la constante: MaxInt.

Saludos.

[kirios]

ah buenisimo! graciaas!!