Quitar dos espacios en cadena dejar uno

[roman]

Empezado por ecfisa

Sin embargo si hago,

Código Delphi [-]
var
  i : Integer;
  s, x: string;
begin
  s := 'prueba';
  x := '';
  for i := 1 to Length(s)+1000 do  x := x + s[i];
  Memo1.Text := x;
end;

obtengo este resultado:

Posiblemente obtienes ese resultado porque la propiedad Text corta lo que esté después de un #0 al asignarla. Examina el valor de x justo antes de asignarlo a Memo1.Text y verás que ahí está lo de antes. Supongo que al aumentar caracter por caracter, se salta el cero pero sigue poniendo el resto.

// Saludos