Ver Mensaje Individual
  #3  
Antiguo 11-05-2004
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Smile

¡Buen día a todos!

Gracias Román.

Por lo pronto lo hago leyendo el contenido de la sección en una lista de cadenas TStringList, y luego pasando los valores (lo que está a la derecha de "Key=") a una tabla de memoria:
Código:
{ Cargar la lista de consultas personalizadas del
  archivo .ini a la tabla de memoria TaConsultas }

ListCons := TStringList.Create;

Try
  ArchInic.ReadSectionValues ('Consultas', ListCons);

  For IndiCons := 0 To ListCons.Count - 1 Do
  Begin
    TaConsultas.Append;
    TaConsultasRuta.Value :=
      SubcaPost (ListCons [IndiCons], '=');
    TaConsultas.Post;
  End;
Finally
  ListCons.Free;
End;
Seguimos en contacto.

Al González .
Responder Con Cita