Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Progman,
8. Okt 2007
oups....Post von Gehstock verpasst :lol:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Progman,
8. Okt 2007
procedure TForm1.CheckBox1Click(Sender: TObject);
var ini: TIniFile;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'test.ini');
ini.WriteBool('Test','Eigenschaft',CheckBox1.Checked);
ini.free;
end;
procedure TForm1.FormShow(Sender: TObject);
var ini: TIniFile;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Progman,
8. Okt 2007
var x: Integer;
x:=ini.ReadInteger('Test','Eigenschaft',0);
if x = 1 then CheckBox1.Checked;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Progman,
8. Okt 2007
ach, sorry, hab ich übersehen:
ini.ReadInteger('Test','Eigenschaft',1); <- so klappts
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Progman,
8. Okt 2007
nichts, außer dass ReadInteger eine funktion ist, die einen Wert zurückgibt, also:
x:=ReadInter(.....) ;)