Asunto: Obtener nombre de todas las claves de fichero INI - Delphi
Estoy realizando una aplicación en Delphi que utiliza un fichero INI para guardar una lista de usuarios con unos datos determinados por cada usuario (nombre, dirección, etc).
Necesito realizar un algoritmo, una función que me devuelva una lista con todos los nombres de todos los usuarios del fichero INI.
El fichero ini tiene la siguiente estructura:
Código:
[fernando alonso]
Nombre completo=Fernando Alonso Trillo
Direccion=C\ Sin Calle, s/n
Fecha=01/05/2007
[domingo diaz]
Nombre completo=Domingo Díaz Díaz
Direccion=C\ Con Calle, 22
[paco javier]
...
y quisiera obtener:
fernando alonso
domingo diaz
paco javier
...
Publicado:
Mie May 30, 2007 6:08 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Obtener nombre de todas las claves de fichero INI - Delp
Anuncios
varios escribió:
Estoy realizando una aplicación en Delphi que utiliza un fichero INI para guardar una lista de usuarios con ...
Tal vez te sirva esta función en Delphi:
Código:
function listarClavesINI (fichero : string) : TStringList;
var
lista : TStringList;
ltFichero : TStringList;
i : integer;
linea : string;
nombreClave : string;
begin
lista := TStringList.Create;
if FileExists(fichero) then
begin
ltFichero := TStringList.Create;
ltFichero.LoadFromFile(fichero);
for i := 0 to ltFichero.Count - 1 do
begin
linea := trim(ltFichero.Strings[i]);
if pos('[', linea) = 1 then
begin
nombreClave := copy(linea, pos('[', linea) + 1, pos(']', linea) - 2);
lista.Add(nombreClave);
end;
end;
end;
result := lista;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A