Cita:
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