Quitar caracteres en blanco de string

[rruffino]

Hola gente, les comento, yo levanto de un archivo excel la informacion en formato string, resulta que ese string que levanto esta lleno de espacios en blanco al final que necesito sacar, por ejemplo, levanto: Manuel Prado en realidad el sting contiene 'Manuel Prado '. Incluso, en ocasiones tengo varios caracteres en blanco al comienzo o entre nombres, como por ejemplo:
' Manuel Prado ' o ' Manuel Prado '.
Desde ya si alguien tiene algo se lo agradezco.
Saludos!!

[ecfisa]

Hola rruffino.

Para los caracteres situados al principio o final de la cadena podrías usar las funciones Trim, TrimLeft y TrimRight. Pero según comentás también te pueden ingresar varios espacios entre los nombres, por lo que creo que vas a tener que hacerte una función para la tarea:

Código Delphi [-]
function AjustarEspacios(Cadena: string): string;
var
  TS: TStrings;
  i : Integer;
begin
  TS:= TStringList.Create;
  try
    TS.DelimitedText:= Trim(Cadena);
    TS.Delimiter:= ' ';
    Result:= '';
    for i:= 0 to TS.Count-1 do
      if TS[i] <> ' ' then
      begin
        Result:= Result + TS[i];
        if i < TS.Count-1 then
          Result:= Result + ' ';
      end;
  finally
    TS.Free;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
var
  s: string;
begin
  s:= '   Pedro      Antonio Omar        Benitez         ';
  s:= AjustarEspacios(s);
  ShowMessage(s);
end;

Saludos.

[yapt]

Si tienes Delphi XE o superior (o ya usas alguna librería de expresiones regulares con las versiones anteriores de Delphi), podrías implementarlo con expresiones regulares.

Es más rápido y eficiente el ejemplo de Ecfisa, pero pongo aquí el programa (de consola) completo con expresiones regulares a efectos de documentación.

Saludos.

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.RegularExpressions;

var
  cadena: string;

begin
  cadena := '   Pedro      Antonio Omar        Benitez         ';
  cadena := TRegEx.Replace(cadena, '(^\s+|\s+$)', ''); // Eliminamos los iniciales y finales.
  cadena := TRegEx.Replace(cadena, '\s{2,}', ' ');  // Eliminamos los espacios intermedios
  Writeln('[' + cadena + ']');
  ReadLn;
end.

[rruffino]

Muchas gracias gente por sus respuestas, he solucionado el problema principalmente con el uso de las funciones Trim.
Gracias nuevamente!!!