Quitar espacios en blanco de un archivo.txt en DELPHI
 

Hola, buenas tardes, podrían de favor ayudarme en lo siguiente:

Estoy usando Delphi 7.

Tengo un archivo.txt, al cual necesito leer todos sus registros para después sacar unas medias, pero estoy tendiendo problemas por que tiene espacios en blanco y no se como eliminarlos. Así es como esta la información.

1 , 2 0 0 7 , 3 3 , M , 0 , 1
2 , 2 0 0 6 , 0 , M , 0 , 1
3 , 2 0 0 8 , 0 , M , 0 , 1
4 , 2 0 0 8 , 3 5 , M , 0 , 1
5 , 2 0 0 8 , 0 , M , 0 , 1


y es una gran cantidad de registros. Necesito eliminar todos los espacios en blanco que hay entre ellos.
Si me pueden dar ideas de como hacerlo se los agradecería mucho.

Hola Yoana.

Código Delphi [-]
procedure QuitarEspacios(const Archivo: string);
begin
  with TStringList.Create do
  try
    LoadFromFile(Archivo);
    Text:= StringReplace(Text, ' ', '', [rfReplaceAll]);
  finally
    SaveToFile(Archivo);
    Free;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
  QuitarEspacios('C:\PRUEBA.TXT');

Un saludo.