Quitar dos espacios en cadena dejar uno

[roman]

Empezado por Casimiro Notevi

Habría que comprobarlo, lo mismo el compilador de delphi crea un código similar con alguna de las propuestas anteriores

Quién sabe. La misma RTL implementa algunas cosas en ensamblador. Sobre todo las que tienen que ver con el recorrido de cadenas.

Por otra parte, si usa una versión de Delphi que tenga expresiones regulares yo las usaría sin pestañear Por ejemplo, en php:

Código PHP:

function comprimeEspacios($s) {
  return preg_replace('/ +/', ' ', $s);
} 


// Saludos