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