Bueno estuve leyendo un poco sobre los TStringList
y di al final con este codigo, pero esta presentando un pequeño problema
y realmente no tengo idea de que sera, ya que no se como funciona exactamente el TStringList
La cuestion es que la Variable Posicion comienza en 0 despues de la primera comparacion
cambia a 320 y entra como en un loop infinito algo asi
hechenle un ojito a ver si encuentran algo extraño
Saludos, Gracias!
Código Delphi
[-]
procedure TForm1.Button7Click(Sender: TObject);
var
ATemporal:TStringList;
Posicion:Integer;
BorrarKey:Boolean;
begin
ATemporal:= TStringList.Create;
ATemporal.LoadFromFile('F:\File.Ini');
for Posicion:= 0 to ATemporal.Count do
begin
BorrarKey := ATemporal.Find('Suppress=WindowedMode', Posicion);
if BorrarKey=True then
begin
ATemporal.Delete(Posicion);
DeleteFile('F:\File.Ini');
ATemporal.SaveToFile('F:\File.Ini');
end;
end;
end;
Intentanto con un While para usar el contador tenemos:
Código Delphi
[-]
Posicion:=50;
while Posicion < 100 do
begin
BorrarKey := ATemporal.Find('Suppress=WindowedMode', Posicion); Posicion:=Posicion+1;