Hier ist eine neue Version.
Die Fehlerbegrenzung lässt sich nun Einstellen.
Beim Schließen werden die Einstellungen gespeichert.
Das funktioniert allerdings noch nicht so richtig:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
vokabelns := TStringlist.Create;
vokabelnf := TStringlist.Create;
Schwierigkeit := TStringlist.Create;
fehlerbegrenzung := 1;
bederf:= (combobox1.Text <> combobox2.Text) and (ComboBox1.ItemIndex <> 0) and (ComboBox2.ItemIndex <> 0) and (ComboBox1.Text <> '') and (ComboBox2.Text <> '') and (edit1.Text <> '') and (edit4.text <> '') and (edit1.Text <> edit4.Text);
button3.Enabled:=bederf;
konfig:= tstringlist.create;
try
if FileExists('C:\VokabelKonfig.ini') then
begin
konfig.LoadFromFile('C:\VokabelKonfig.ini');
fehlerbegrenzung:= strtoint(konfig[0]);
edit2.Text:= inttostr(fehlerbegrenzung);
end;
finally
konfig.Free;
end;
end;
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
konfig:= TStringList.Create;
try
if FileExists('C:\VokabelKonfig.ini') then DeleteFile('C:\VokabelKonfig.ini');
konfig.Add(inttostr(fehlerbegrenzung));
konfig.SaveToFile('C:\VokabelKonfig.ini');
finally
konfig.free;
vokabelns.Free;
vokabelnf.Free;
Schwierigkeit.Free;
end;
end;
Was ist daran falsch?
Die neue Version ignoriert bei der Abfrage leer- und Satzzeichen.
Lasse