Ayuda con edicion de archivo inno setup

[walterk.]

Hola comunidad..
Necesito si me pueden dar una mano con la lectura y escritura en un archivo tipo txt. El archivo esta compuesto de la siguiente manera:

[Area.133] -------------------------ESTE ES EL ULTIMO ITEM QUE APARECE EN EL ARCHIVO
Title=SA98
Local=SA98\SA98 SL
Layer=133 --------------------------AQUI REPITE EL MISMO NUMERO DE AREA
Active=TRUE
Required=FALSE

-------------------------------------------------------------------------------------------------------------------------------------------------------------

[Area.134] --------------------------ESTE SERIA EL QUE TENGO QUE AGREGAR SUIGUIENDO EL ORDEN DE NUMEROS
Title=SOb
Local=AS\SOL
Layer=134 --------------------------Y LO MISMO EN ESTE CASO QUE REPITE EL MISMO NUMERO DE AREA
Active=TRUE
Required=FALSE

El mismo necesito modificarlo cuando hago la instalacion de las areas(esa parte la tengo lista y funcionando), pero aqui no se como resolverlo.
Agradezco cualquier mano que me puedan brindar.

[[AgustinOrtu]]

pero aqui no se como resolverlo.

Pero, que es lo que necesitas hacer?

[walterk.]

Hola Agustin, gracias por responderme, lo que necesito es que cada vez que instale un area nueva, incremente los numeros en los dos lugares marcados y escriba el texto del area, como puse en el ejemplo, no se si se entiende? el dato title, Local, Active y Required son fijos pero no se como hacer que abra el archivo lea cual e el ultimo y agregue el numero incrementado a Area.134 y lo copie a layer.

[Area.134] --------------------------ESTE SERIA EL QUE TENGO QUE AGREGAR SUIGUIENDO EL ORDEN DE NUMEROS
Title=SOb
Local=AS\SOL
Layer=134 --------------------------Y LO MISMO EN ESTE CASO QUE REPITE EL MISMO NUMERO DE AREA
Active=TRUE
Required=FALSE

Gracias nuevamente por tu tiempo.

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[ecfisa]

Hola walterk.

Si tenes la certeza de que las cadenas a buscar ('[Area.' y 'Layer=') siempre existirán en el archivo, podrías hacer:

Código Delphi [-]
uses StrUtils;

procedure ActualizarArea(const FileName, Area: string);
var
  Strings: TStrings;
  i, p1, p2: Integer;
  cad : string;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(FileName);

    // Area
    for i := 0 to Strings.Count-1 do
      if Pos('[Area.', Strings[i]) <> 0 then Break;
    cad  := Strings[i];
    p1 := Pos('[Area.', cad);
    p2 := PosEx(']', cad, p1);
    Delete(cad, p1 + 6, p2 - p1 - 6);
    Insert(Area, cad, p1 + 6);
    Strings[i] := cad;

    // Layer
    for i := 0 to Strings.Count-1 do
      if Pos('Layer=', Strings[i]) <> 0 then Break;
    cad := Strings[i] + '~'; // indicador de final
    p1  := Pos('Layer=', cad);
    p2  := PosEx('~', cad, p1);
    Delete(cad, p1 + 6, p2 - p1 - 6 + 1);
    Insert(Area, cad, p1 + 6);
    Strings[i] := cad;

    Strings.SaveToFile(FileName);
  finally
    Strings.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
const
  FNAME = 'area.txt';

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(FNAME);
end;

procedure TForm1.btNewVersionClick(Sender: TObject);
begin
  ActualizarArea(FNAME, '3141592654' ); // o también: ActualizarArea(FNAME, IntToStr(entero));
  Memo1.Lines.LoadFromFile('c:\tmp\area.txt');
end;

Saludos

[Ñuño Martínez]

Yo creo que sería más adecuado usar un TINIFile. Su método ReadSections devuelve la lista de secciones, por lo que no tendrás que ir adivinándolas. Luego ya puedes usar el resto de métodos para obtener, modificar, crear y/o eliminar valores y secciones.

[walterk.]

Hola gracias por tu respuesta y el trabajo que te has tomado en poner las imagenes, ahora te hago una consulta si es posible.
Tienes idea como incluir tu codigo en inno setup para que cumpla la funcion cuando instalo la zona deceada?.

Gracias nuevamente por tu tiempo.