Cita:
Empezado por mamcx
Esa es una forma destructiva (borrando). Otra manera es construir una nueva cadena, y cuando hay un espacio agregar el primero e ignorar los que vengan.
|
Si, tenes razón... y con seguridad es mas eficiente al omitir la llamada a la función
Delete:
Código Delphi
[-]
function IgnoreExtraSpaces(str: string): string;
var
i: integer;
begin
SetLength(str, Length(str)+1);
for i := 1 to Length(str)-1 do
if (str[i] <> ' ') or (str[i+1] <> ' ') then
Result := Result + str[i];
end;
Saludos