Leer un archivo de con cadenas ASCIIZ

[leandro_tami]

Hola!. Escribo porque estoy buscando una forma inteligente de leer un archivo con cadenas de texto ASCIIZ dentro de un TListBox, obviamente colocando cada linea en un item diferente. Probé con DelimiterText, QuoteChar, Delimiter... etc, un monton de propiedades, pero no entiendo como funcionan. Y siempre tengo la última alternativa, leer el archivo caracter por caracter, separar yo mismo las lineas e ir ingresandolas de a una. Si programase en Pascal, lo haría asi, pero quiero creer que en Delphi habrá alguna otra forma que no sea tan fea. Muchisimas gracias!!!!!!

[__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.

[roman]

Empezado por DarkByte

me parece que "ASCIIZ" se escribe ASCII (American Simple Characters for no me acuerdo qué).

ASCII es lo que tú dices: American Standard Code for Information Interchange
pero es costumbre referirse a cadenas terminadas en null como ASCIIZ.

// Saludos