Como lo haría en un archivo INI?

[broly7]

Hola buenas, miren tengo este archivo INI:

[NOTICIAS]
Mantenimiento=Mantenimiento empezado el día 10/10 a las 24 HORAS...
Anuncios=Hoy anunciamos rebajas de HHHHHH

Ok. Pues lo que hago es leer las secciones que Hay en "[NOTICIAS]", en este caso hay 2 secciones "Mantenimiento" y "Anuncios". Hasta ahi todo bien.

begin
F:= TiniFile.Create (GetWindowsDir+'\Data.lcv');
Key := TStringList.Create;
F.ReadSection('NOTICIAS', Key);
Form1.Richedit1.Lines.text:=(key.text);
Form1.Richedit1.Lines.Add(F.ReadString('NOTICIAS',key.text,''));
F.Free;


EL caso es que este código no me funciona si quiero mostrar primero El nombre de la sección, y luego su string, y el nombre de la siguiente sección y luego su string.

Ayudenme a solucionarlo que he trabajado pocas veces con arhivos INI.

Gracias.

[Aleca]

Hola buenas, miren tengo este archivo INI:



Ok. Pues lo que hago es leer las secciones que Hay en "[NOTICIAS]", en este caso hay 2 secciones "Mantenimiento" y "Anuncios". Hasta ahi todo bien.


Código Delphi [-] (http://www.clubdelphi.com/foros/#)begin
F:= TiniFile.Create (GetWindowsDir+'\Data.lcv');
Key := TStringList.Create;
F.ReadSection('NOTICIAS', Key);
Form1.Richedit1.Lines.text:=(key.text);
Form1.Richedit1.Lines.Add(F.ReadString('NOTICIAS',key.text,''));
F.Free;





EL caso es que este código no me funciona si quiero mostrar primero El nombre de la sección, y luego su string, y el nombre de la siguiente sección y luego su string.

Ayudenme a solucionarlo que he trabajado pocas veces con arhivos INI.

Gracias.
proba a ver si funciona de esta forma:


F:= TiniFile.Create (GetWindowsDir+'\Data.lcv');
Key := TStringList.Create;
F.ReadSection('NOTICIAS', Key);
for i := 0 to key.count - 1 do
begin
Form1.Richedit1.Lines.text:=(key.String[i]);
Form1.Richedit1.Lines.Add(F.ReadString('NOTICIAS', key.String[i], ''));
end

F.Free;

:)