Cita:
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;