so ich bins ma wieder
hab hier ma ne frage und zwar:
also bei einer checkbox ist ja checked=True glaub also zahl(boolean, in .ini file) gleich '0'.
ich hab folgendes gemacht:
Form1 is hauptfenster, da gibts ein 'Settings' button, da öffnet sich dann Form2. Da klick ich dann auf die checkbox.
so jetzt klick ich auf speichern, des wird dann in der .ini file gespeichert, aba wenn ich das prog wieder öffne is das nicht gespeichert bzw. es wird net so verwendet das die Checkbox angetickt ist(=True).
vielt. erklärt des alles ein bisschen besser:
also erstmal die checkbox:
Delphi-Quellcode:
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
If Checkbox1.Checked then
Form1.Edit2.PasswordChar := '*'
else
Form1.Edit2.PasswordChar := #0;
end;
dann klick ich auf speichern/save.
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var
Ini: TIniFile;
begin
try
Ini:=TIniFile.Create('D:\Save.ini');
Ini.WriteString('KnownAccount','KnownID',edit1.Text);
Ini.WriteString('KnownAccount','KnownPW',edit2.Text);
Ini.WriteString('KnownAccount','KnownPIN',edit3.Text);
Ini.WriteString('CrackingAccount','CrackingID',edit4.Text);
Ini.WriteString('CrackingAccount','CrackingPW',edit5.Text);
Ini.WriteString('CrackingAccount','CrackingPINstart',edit6.Text);
Ini.WriteString('CrackingAccount','CrackingPINstop',edit7.Text);
Ini.WriteBool('Other','CensoredPW',CheckBox1.Checked); // ist ja logisch, der liest dann ob True
Ini.WriteBool('Other','CensoredPW',CheckBox2.Checked); // oder False aus Checked
finally
Ini.Free;
end;
end;
dann schlies ich alles und wenn ich dann gucke dann sollte des ja angetickt sein aba ich weis net genau wie er das lesen soll, habs jetzt so gemacht, aba das funktioniert net.
Delphi-Quellcode:
procedure TForm2.FormShow(Sender: TObject);
var Ini: TIniFile;
begin
try
Ini:=TIniFile.Create('D:\Save.ini');
Edit1.Text:=Ini.ReadString('KnownAccount',
'KnownID','kein Wert');
Edit2.Text:=Ini.ReadString('KnownAccount',
'KnownPW','kein Wert');
Edit3.Text:=Ini.ReadString('KnownAccount',
'KnownPIN','kein Wert');
Edit4.Text:=Ini.ReadString('CrackingAccount',
'CrackingID','kein Wert');
Edit5.Text:=Ini.ReadString('CrackingAccount',
'CrackingPW','kein Wert');
Edit6.Text:=Ini.ReadString('CrackingAccount',
'CrackingPINstart','kein Wert');
Edit7.Text:=Ini.ReadString('CrackingAccount',
'CrackingPINstop','kein Wert');
Label23.Caption:=Ini.ReadString('GGLess Info',
'GGLess Path','kein Wert');
Label25.Caption:=Ini.ReadString('GGLess Info',
'GGLess Name','kein Wert');
CheckBox1.Checked:=Ini.ReadBool('Other',
'CensoredPW',False); // hier weis ich net was ich angeben soll damit ers automatisch liest.
finally
Ini.Free;
end;
end;
hoffe das jemand helfen kann, thx im vorraus.
mfg
andy