Leer un archivo de con cadenas ASCIIZ

[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