Ini-Datei

[Die Muhkuh]

hi ich erstelle mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ini := TInifile.Create('d:\test.ini');
  try
    ini.WriteInteger('Aktiv','Wert',1);
  finally
    ini.Free;
  end;
end

Eine Ini-Datei!
Wenn ich nun das Prog beende und wieder starte dann soll er erkennen das in der ini unter Wert der Wert 1 steht und dann soll der Button unsichtbar sein! Nur wie geht das?

Spiddi

[Daniel B]

Dann schau Dir mal Read- und WriteBoolean an. Das ReadBoolean dann im OnShow des Formulares und dann den Button auf Enabled setzen.

[Die Muhkuh]

also ich habs so gemacht un so geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ini := TInifile.Create('d:\test.ini');
  try
    ini.WriteInteger('Aktiv','Wert',1);
  finally
    ini.Free;
  end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  ini := TInifile.Create('d:\test.ini');
    button1.visible := ini.ReadInteger('Aktiv','Wert',1) = 0;
end;

Das nächste problem ist nur wenn die Ini nicht vorhanden ist dann geht's auch auch nicht!

@Dani u´Werd ich mir mal angicken!

[Die Muhkuh]

so geht's mit Daniel' Variante:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ini := TInifile.Create('d:\test.ini');
  try
    ini.WriteBool('Aktiv','Wert',true);;
  finally
    ini.Free;
  end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  ini := TInifile.Create('d:\test.ini');
    Button1.Visible := ini.ReadBool('Aktiv','Wert',false) = false;
end;