Hallo Heiko
Der Code müsste dann so aussehen
Delphi-Quellcode:
begin
ini :=Tinifile.Create('System.ini');
try
Anzahl1 := ini.ReadInteger('Button', 'M', 0);
finally
ini.Free;
end;
if Anzahl1 = 0 then
begin
Anzahl1 := 1;
Anzahl := Anzahl1;
AnzahlS := IntToStr(Anzahl);
end
else
Begin
Anzahl1 := Anzahl1 + 1;
Anzahl := Anzahl1;
AnzahlS := IntToStr(Anzahl);
End;
Buttonspeichern;
end;
Beim betrachten mit F7 ist der Wert von Anzahl1 = 0 führe ich den Code weiter aus wird mir eine System.ini erstellt.
Der Inhalt der ini datei ist dann folgender
[Button]
M=1
[1]
ID=1
Left=10
Top=10
Also werden die Werte ja gespeichert ich kann diese aber nicht mehr auslesen.
Woran kann des liegen.