TStringList.LoadFromFile y líneas con caracteres #0

[[Al González]]

Empezado por Lord Delfos

...Resulta que la después de cargar, stringlist me dice que Count=1. Lo que no entiendo es porqué...

A primera vista, parece que la causa está en el método TStrings.SetTextStr, llamado por LoadFromStream, llamado por LoadFromFile.

Código Delphi [-]
      while P^ <> #0 do
      begin
        Start := P;
        while not (P^ in [#0, #10, #13]) do Inc(P);
        SetString(S, Start, P - Start);
        Add(S);
        if P^ = #13 then Inc(P);
        if P^ = #10 then Inc(P);
      end;

Según se ve, descarta lo que haya en el resto del texto en cuanto encuentra un carácter ASCII 0, 10 (avance de línea) o 13 (retorno de carro). He ahí la razón.

Empezado por Lord Delfos

...o cómo solucionarlo...

Trataré de darme algo de tiempo más tarde para ver una posible solución. Pero ojalá alguno de los compañeros se me adelante para que no tengas que esperar demasiado. Por lo pronto tengo sólo vagas ideas, como usar un TFileStream directamente y extraer las cadenas de forma manual.

Un abrazo sin-cero.

Al.

[Lord Delfos]

¡Gracias Al!

No había visto ese método. Cosa rara esto de los #0. Igual no se supone que un TXT tenga #0s... pero bueno.

Empezado por Al González

Trataré de darme algo de tiempo más tarde para ver una posible solución. Pero ojalá alguno de los compañeros se me adelante para que no tengas que esperar demasiado. Por lo pronto tengo sólo vagas ideas, como usar un TFileStream directamente y extraer las cadenas de forma manual.

No te hagás problemas, algo voy a sacar.

Gracias por contestar.

[Lord Delfos]

Bueno, probé y funcionó.

Código Delphi [-]

type TStringLista=class(TStringList)
  protected
    procedure SetTextStr(const Value: string); override;
end;

procedure TStringLista.SetTextStr(const Value: string);
var
  P, Start: PChar;
  S: string;
begin
  BeginUpdate;
  try
    Clear;
    P := Pointer(Value);
    if P <> nil then
      while P^ <> #0 do
      begin
        Start := P;
        while not (P^ in [#10, #13]) do Inc(P);
        SetString(S, Start, P - Start);
        Add(S);
        if P^ = #13 then Inc(P);
        if P^ = #10 then Inc(P);
      end;
  finally
    EndUpdate;
  end;       
end;

No es que lo haya probado una cosa bárbara, pero parece funcionar maravillosamente...

[[seoane]]

El problema es que si el archivo de texto no termina en un salto de linea nunca saldrías de esta bucle:

Código Delphi [-]
while not (P^ in [#10, #13]) do Inc(P);