Quitar dos espacios en cadena dejar uno

[Casimiro Notevi]

Empezado por roman

¡Joder! Sí que rizamos el rizo Seguro que así es lo más eficiente.
// Saludos

Habría que comprobarlo, lo mismo el compilador de delphi crea un código similar con alguna de las propuestas anteriores
¿Alguien se anima a probar y calcular el tiempo con cada opción?

[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

[ecfisa]

Empezado por roman

En esta versión, S[I+1] se sale de la cadena al final, lo cual puede ser inseguro. Supongo que por eso habías agrandado en 1 la longitud de la cadena en la versión anterior;...

Si exáctamente ese fué el motivo de aplicar esa precaución en las pruebas previas, pero luego recordé que no estaba tratando con un ShortString sino con un AnsiString por lo que no iba a tener problemas de desborde (excepto con un texto de largo 2^31). De todos modos agregar #0 es una buena medida.

De tanto escudriñar, también me encontré con una situación que no entiendo...
Haciendo,

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

obtengo el resultado que me esperaba:


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:




Saludos

[roman]

Empezado por ecfisa

luego recordé que no estaba tratando con un ShortString sino con un AnsiString por lo que no iba a tener problemas de desborde

No entiendo por qué dices esto. Un String no tiene una longitud predeterminada. Si accedes más allá de sus fronteras definidas en un momento dado, puedes tener problema accediendo a lugares que no corresponde.

// Saludos

[ecfisa]

Empezado por roman

No entiendo por qué dices esto. Un String no tiene una longitud predeterminada. Si accedes más allá de sus fronteras definidas en un momento dado, puedes tener problema accediendo a lugares que no corresponde.

// Saludos

Si, siempre lo entendí del mismo modo (de allí que empecé las pruebas extendiendo la cadena un espacio mas).
Pero contra toda predicción, no hubo advertencia ni errores al acceder a una posición mas allá del valor de Length, eso me dejó con dudas e hice múltiples pruebas sin lograr que se produzca advertencia o error alguno. De ahí que atribuí que obtenía ese resultado por tratar con un AnsiString.

Realmente siempre puse cuidado en no acceder a una posición mayor al largo de una cadena pensando en que generaría un error, pero todas las pruebas realizadas hasta ahora me indican que, al menos acceder (lectura) a una posición mas del valor devuelto por Length de un AnsiString no genera error.

¿ Conoces algún caso en que se produzca ?

Saludos

[[escafandra]]

Empezado por ecfisa

Si, siempre lo entendí del mismo modo (de allí que empecé las pruebas extendiendo la cadena un espacio mas).
Pero contra toda predicción, no hubo advertencia ni errores al acceder a una posición mas allá del valor de Length, eso me dejó con dudas e hice múltiples pruebas sin lograr que se produzca advertencia o error alguno. De ahí que atribuí que obtenía ese resultado por tratar con un AnsiString.

Realmente siempre puse cuidado en no acceder a una posición mayor al largo de una cadena pensando en que generaría un error, pero todas las pruebas realizadas hasta ahora me indican que, al menos acceder (lectura) a una posición mas del valor devuelto por Length de un AnsiString no genera error.

¿ Conoces algún caso en que se produzca ?

Saludos

En un array podemos definir por código un índice que se salga del rango:

Código Delphi [-]
var
  S: array [0..0] of char;
  i: integer;
begin
  i:= 10;
  S[i]:= #0;
end;

En ese caso, debemos velar por que no suceda o tener bien controlado lo que hacemos. La escritura fuera de los límites puede tener consecuencias y el compilador no avisa.

Saludos

[mamcx]

Ocurren el error en tiempo de ejecucion, porque hacerlo en tiempo de compilacion es un problema particularmente espinoso:

https://duckduckgo.com/?q=compile+time+bounds+checking

Luego esta el hecho que el indice es un Int(32/64) que va desde el - al + en la escala numerica, en vez desde 0-+ (osea: El tipo de datos no es el indicado para un indice de array posicional). Luego el que String/Array son dinamicos, y detectar que no se pase un indice IMPLICA detectar cuando se redimensiona el array... lo que basicamente implica tener que correr el codigo (Hay tecnicas que se pueden usar, llamadas "data-flow", pero son muy complejas de implementar si se quiere una solucion GENERICA).

La solucion? En primer lugar habria que arrancar con dejar de usar INTs y usar un tipo de datos mas adecuado. Luego, usar un sub-rango cuando el tamño maximo es conocido (ej: Si indexamos meses y sabemos que no son mas de 12). Pero cuando el tamaño es indeterminado? Igual toca comprobar en tiempo de ejecucion

[ecfisa]

Hola escafandra.

La escritura fuera de los límites puede tener consecuencias y el compilador no avisa.

Si, comprendo la implicancia que tiene escribir fuera de los límites de un arreglo y estamos totalmente de acuerdo en ese punto, sólo que en este caso se trata de una lectura.

Por ejemplo, se puede correr este código una y otra vez sin ningún tipo de problemas ni mensajes (excepto el de finalización)

Código Delphi [-]
…
var
  i: Char;
  j: Integer;
  s, x: string;
begin
  ListBox1.Items.BeginUpdate;
  try
    for i := 'A' to 'Z' do
      for j:= 1 to 10000000 do
      begin
        s := s + i;
        x := s[Length(s)+1]; //  lectura en: [Length(s) + 1] 
        if x = ' ' then ListBox1.Items.Add(i);
      end;
  finally
    ListBox1.Items.EndUpdate;
  end;
  ShowMessage('fin');
end;

Siempre puse especial cuidado en no escribir en "zonas desconocidas", ya que no hay dudas sobre sus potenciales y nefastas consecuencias (reitero que mi duda no va por ese lado). Pero tenía el mismo concepto para con la lectura, por lo que nunca antes se me ocurrió probar y me resulta sorprendente el resultado de las pruebas.

Saludos

[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. 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 sigu pniendo el resto.

// Saludos

[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