Recorrer Archivo INI

[Coco_jac]

Hola amigos, me pueden ayudar necesito poder recorrer una seccion de una archivo INI, algo asi :

[Bases]
1=base1
2=base2
3=base3
4=base4

Poder obtener el contenido de esa seccion.

Gracias, espero sus comentarios.

[[Bicho]]

Hola

Primero, debes añadir al uses IniFiles
Segundo te creas una varaible: ej. MyIni : TIniFile
Tercero, recorres el ini y obtienes los datos.

He aquí un ejemplo:

Código Delphi [-]
uses IniFiles
......

var MyIni : TIniFile;

implementation

procedure Form1.GetDatosIni;
begin
  MyIni := tIniFile.create('nombrearchivo.ini');

  with MyIni do begin
    campo1 := readstring('Bases','base1', '');
    campo2 := readstring('Bases','base2','');
    campo3 := readstring('Bases','base3','');
    campo4 := readstring('Bases','base4','');
    free;
  end;
end;

Espero te sirva,

Saludos

[[Lepe]]

Tambien tienes RadSection y ReadSectionValues, que te leen toda una sección y sus valores.

Saludos

[[Bicho]]

Ahora caigo que quizá no sepas cuantas bases hay en la sección del ini.

De esto modo puedes haceer lo siguiente:

Código Delphi [-]
procedure Form1.GetDatosIni;
var st : TStringList;
    aux, base : String;
begin
  MyIni := tIniFile.create('nombrearchivo.ini');

  with MyIni do begin
    st := tStringList.create; //tendremos un stringlist con el contenido de la seccion
    ReadSection('Bases,st');
    for r := 0 to st.count-1 do begin
      aux  := st.strings[r]; //guardamos el indice del dentro de la seccion para buscar su valor
      base := READstring('Bases,aux,''); //obtenemos el valor
      ListBox1.Items.Add(base); //lo metemos en un listbox
    end;
    st.Free;
    Free;
   end;
end;

Espero haberme explicado bien.

Saludos

[Coco_jac]

Muchas gracias a ambos todo claro.

[Coco_jac]

Hola amigos tengo otra duda, puedo hacer esto detectar si el usuario a ingresado en el RichEdit el caracteres (/) en una determinada fila, ya una vez detectado esto, poder cambiar de color dicha fila.

Espero sus comentarios.

[[Bicho]]

Hola juega un poco con estos dos trucos de trucomania

Resaltar palabras en un richedit

Añadir lineas de texto de otro color en un RichEdit

Resumiendo, debes jugar con las propiedades del richedit: SelStart (Inicio de seleccion), SelLength (longitud de seleccion de texto) y SetAttributes (por ejemplo .color = clRed, para cambiar el color del texto)

Espero te sirvan,

Saludos