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.

Código Delphi [-]
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]

Empezado por broly7

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 [-]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:

Código Delphi [-]
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;