error al guardar el listview en un archivo

[danielmj]

Hola,
Siguiendo con la aplicacion de los numeros aleatorios, permutaciones etc.. me ha surgido un problema, resulta que para hacer 1.000.000 de combinaciones, ni si quiera para comparar estas con las permutaciones, ha tardado unas 8h con lo cual, cuando le exprima a tope, resultará que para entonces apofis habrá colisionado contra la tierra! solución, guardar el contenido del listview en un archivo y continuar en otro momento previa carga de estos datos. Informandome y buscando pr la web, encontre este codigo.. http://www.ajpdsoft.com/modules.php?...iewtopic&t=902

¿Cual es el problema? que en vez de guardar los datos reales del listview, guarda otra cosa, por que al cargar los datos aparecen numeros aleatorios del 0 al 9 ¿de donde saca esos numeros si el contenido era aleatorios del 1 al 49? ¿por que no guarda el contenido real?

Adjunto capturas

[datos cargados del archivo]
http://pasteall.org/pic/index.php?id=107982

[datos reales]
http://pasteall.org/pic/index.php?id=107983

Por otra parte, el archivo .dat (extensión que estoy usando para guardar la lista) contiene esto...

d a t 2 3 3 2 1 6 1 3 3 4 4 1 2 3 1 4 4 3 2 1 4 2 3 6 2 2 2 2 1 3 1 4 2 4 4 6 8 2 3 1 2 3 2 4 1 2 2 2 3 6 1 4 1 3 4 4 9 3 1 3 1 2 4 2 4 1 2 4 1 3 2 4 8 3 1 3 1 4 3 4 9 2 1 2 3 2 3 2 3 3 4 2 4 1 2 1 4 1 1 1 4 2 4 2 1 2 2 2 2 4 1 2 2 3 2 3 3 2 2 1 1 5 3 3 1 2 4 8 1 7 4 3 4 1 2 2 4 1 3 3 2 1 4 6 4 9 4 3 1 1 3 1 3 1 4 4 2 2 4 2 1 1 5 2 3 1 3 5 4 6 1 2 2 1 1 1 1 3 4 1 2 4 3 2 3 3 2 2 2 1 4 1 3 2 2 2 6 3 4 1 3 3 1 4 1 2 2 5 8 3 4 1 4 1 1 1 2 2 3 7 1 1 1 1 4 2 3 4 1 1 4 2 2 2 1 2 1 8 3 1 3 4 3 1 2 3 6 3 3 2 4 7 2 2 2 1 4 1 6 3 4 3 8 1 4 3 3 1 3 3 2 4 2 7 2 3 3 1 1 2 1 3 4 3 3 1 2 4 4 3 2 2 1 1 3 1 3 1 1 2 1

Ni por asomo a los numeros del 1 al 49. Sinceramente ni idea de por que pasa eso ni de donde saca esos numeros del 1 al 9.
Alguna idea? Saludos

[ecfisa]

Hola danielmj.

¿ Y no te sirve aquél código de este hilo ? : Problema al guardar lista en fichero

Saludos

[danielmj]

hola ecfisa, mira que busque en el foro.. ese hilo fue de cuando hice la aplicacion que guarda todas mis contraseñas XD lamentablemente el codigo lo perdi y solo tengo el exe. Voy a mirar, si sirvio una vez, debe servir otra.
Gracias por la informacion. Saludos.

[danielmj]

Hola ecfisa,

El código que me indicas y que fue por una aplicacion de ya hace tiempo, en su dia me daba error al cargar el archivo, siempre decía lo mismo "... no es un archivo correcto" esto me lo decía usando xe7 en delphi7 iba como la seda. Pues bién, ahora vuelvo a estar con xe7 y sigue diciendo lo mismo a la hora de cargar el archivo " bla bla bla no es un archivo correcto" lal solución que he encontrado a este error es anular la linea que dice:

Código Delphi [-]
{if signat <> form1.opendialog1.FileName+'.dat' then
  begin
    Stream.Free;
    raise Exception.Create(Format('%s no es el archivo correcto',[FileName]));
  end;}

Dentro del procedimiendo de cargar y asignar la extension al opendialog en tiempo de diseño. Pero sigo teniendo el mismo error que antes (el del post anterior), es decir, no guarda el contenido del listview tal como se muestra en pantalla, sino una cantidad igual de lineas con numeros aleatorios pero del 1 al 9. Pondría una captura pero al ser lo mismo de antes vuelvo a poner los enlaces anteriores.

[datos cargados del archivo]
http://pasteall.org/pic/index.php?id=107982

[datos reales]
http://pasteall.org/pic/index.php?id=107983

Realmente no sé por que hace esto. La unica opcion que se me ocurre es volcarlo todo a delphi 7... pero no me seduce mucho esa idea.
Saludos.

Edito: He probado a cambiar la extension de .dat a .txt, pero no sirve.

[ecfisa]

Hola.

Por si te pudiera servir para hacer alguna prueba, te adjunto el código del ejemplo completo.

Saludos

[danielmj]

Gracias, sigo mirando por internet y encontre este codigo... lo pongo por un detalle que marco en rojo.

Código Delphi [-]
procedure ListViewSaveToFile(ListView: TListView; const FileName: string);

  procedure AddTextToLine(var Line: string; const Text: string);
  begin
    Line := Line + Text + #9;
  end;

  procedure MoveCompletedLineToList(const Strings: TStringList; var Line: string);
  begin
    Strings.Add(System.Copy(Line, 1, Length(Line)-1));//remove trailing tab
    Line := '';
  end;

var
  Strings: TStringList;
  LatestLine: string;
  i, j: Integer;

begin
  LatestLine := '';

  Strings := TStringList.Create;
  try
    for i := 0 to ListView.Items.Count-1 do begin
      AddTextToLine(LatestLine, ListView.Items[i].Caption);
      for j := 0 to ListView.Items[i].SubItems.Count-1 do begin
        AddTextToLine(LatestLine, ListView.Items[i].SubItems[j]);
      end;
      MoveCompletedLineToList(Strings, LatestLine);
    end;
    Strings.SaveToFile(FileName, TEncoding.UTF8);
  finally
    Strings.Free;
  end;
end;

¿Puede ser que el contenido del lisview no se guarde correctamente por la codificacion?
Voy a probar tu archivo en un progrmaa a parte en xe7 a ver que hace.
Saludos.