Ver Mensaje Individual
  #8  
Antiguo 29-11-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Reputación: 13
danielmj Va por buen camino
Hola ecfisa, gracias por tu tiempo y por tu trabajo, pero no sé si solo me pasan a mi estas cosas, el caso es que sigue fallando. Si crea un archivo con el nombre de lista+'.dat', pero el contenido de este archivo es "NUL NUL NUL NUL..."
He agregado la unidad al proyecto y la llamada la hago con estos eventos:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  clvs.SaveToFile(clvs.Name+'.dat');
  clvs.Items.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: byte;

begin
  for i:= 8 to 255 do
    other.Items.Add(IntToStr(i)); //esto lo hago para cargar un combo, sin efecto sobre la lista.
    memo1.Text:= '';
    clvs.LoadFromFile(clvs.Name+'.dat');
end;

Y el mensaje de error que da es este...


Y cuando pulso el botón y llego al formulario, la lista está vacía, no ha cargado nada, supongo que por el "NUL..." que mencione antes. De la unidad no he cambiado nada, tan solo he cambiado el nombre de la lista para que el archivo a guardar (y para no tocar codigo), tenga el nombre que yo quiera, que es clvs, con lo que el archivo creado es "clvs.dat", pero como te digo da error al cargarlo y el archivo está vacío o mejor dicho tiene seis veces la palabra "NUL"

Un saludo.

Edito: Los listviews serán muy practicos, pero son un autentico coñazo XD
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
Responder Con Cita