Foros Club Delphi - Como lo haría en un archivo INI?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como lo haría en un archivo INI? (https://www.clubdelphi.com/foros/showthread.php?t=65230)

Como lo haría en un archivo INI?

Hola buenas, miren tengo este archivo INI:

Cita:

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

Cita:

Empezado por broly7 (Mensaje 347702)

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;