Leer un archivo de con cadenas ASCIIZ

[__cadetill]

ListBox1.Items.LoadFromFile(mifichero);

[roman]

Empezado por cadetill

ListBox1.Items.LoadFromFile(mifichero);

Me parece que el problema es que las líneas del archivo que leandro_tami quiere leer no están separadas por retornos de carro sino por caracteres nulos (ASCIIZ) y me parece que en tales casos no funciona LoadFromFile.

// Saludos

[Julià T.]

existe la funcion:
StringReplace()
que reemplaza caracteres, y funciona bien excepto con el caracter nulo (Char(0))

[roman]

Empezado por Julià T.

existe la funcion:
StringReplace()
que reemplaza caracteres, y funciona bien excepto con el caracter nulo (Char(0))

Así es. Yo intenté leer el archivo mediante un FileStream directamente a un string y reemplazar los #0 por #13#10 pero como observas no es posible. Aún no se me ocurre ninguna solución que no sea hacer algo a pie como el mismo leandro_tami indica.

// Saludos

[leandro_tami]

Exacto, el problema está porque son cadenas separadas por #0 y no por #10+#13. Pensé que quizas, leyendo todo a una cadena, y usando Pos(#0,buffer), seguido de un copy (para extraer la linea) y un delete (para borrar del buffer la linea que ya separé) podria hacerlo facilmente, el codigo quedaría digamos... tan solo un poco mas bonito, pero estaría recorriendo la cadena tres veces tan sólo para extraer una linea!

[Magician^]

No se si te servirá esto:

Converts a list of null terminated strings to a string list.
 
procedure MultiSzToStrings(const Dest: TStrings; const Source: PChar);
 
Unit
JclStrings
 
Parameters
 
const Dest: TStrings
The string list to receive the individual strings.
 
const Source: PChar
The source string to extract the items from.
 
Description
 
Source is assumed to be a list of strings, separated by a NULL character,
terminated by a double NULL character. For example
'Project#0JEDI#0Rules#0#0'. The function takes this string and copies the
individual strings to the string list. Thus, after executing this function with
the above string the Dest list will contain the items 'Project', 'JEDI' and 'Rules'.

Salu2

[DarkByte]

leandro_tami, me parece que "ASCIIZ" se escribe ASCII (American Simple Characters for no me acuerdo qué). Es posible que esté equivocado. Te digo esto por si alguna vez tienes que hacer una búsqueda, para que te sea más efectiva.