Vokabeltrainer

[blender]

Hallo,
im Anhang ist mein Vokabeltrainer 1 Beta 3 (als .zip).
Man kann damit Vokabellisten erstellen und diese Später wieder Öffnen.
Auf Knopfdruck wird man Abgefragt.
Wenn man eine Vokabel falsch eintippt kommt diese einmal mehr wieder.
Wenn ein Buchstabe falsch, oder vergessen wird, akzeptiert das Programm dies als richtig.
Wenn die Vokabel in der Datei woanders existiert, wird auf eine Verwechslung hingewiesen und beide Vokabeln (die, welche gerade abgefragt wurde und die, mit der Verwechselt wurde) werden einmal mehr abgefragt.
Wenn eine Vokabel richtig eingegeben wurde, wird diese einmal weniger abgefragt.
Ist das so sinnvoll?
Bei keiner Eingabe wird nachgefragt ob die abfrage beendet werden soll.
Das funktioniert leider noch nicht so richtig.
Die Abfrage kommt Teilweise mehrere Male.
Es gibt auch noch andere Fehler.
Lasse

[blender]

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

[blender]

Die alte Version hatte irgendein Problem mit der abfrage.

[xZise]

Hallo blender,
speicher bitte nichts in "<Laufwerkbuchstabe hier einsetzten>:\"!

Lasse den Benutzer entscheiden wo.
Entweder im Programmverzeichnis oder in den Anwendungsdaten.

Außerdem brauchst du beim Schliessen die Datei vorher nicht zu löschen!

MfG
xZise

[blender]

Ich versuche es jetzt mit einem Festgelegtem Progammpfad.
Das funktioniert nicht!!!
Was it daran falsch?

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var konfig: TStringList;
begin
canclose:= MessageDlg('Mchtest du wirklich beenden?',mtConfirmation,[mbyes, mbno],0)=mryes;
konfig:= TStringList.Create;
konfig.Add(IntToStr(fehlerbegrenzung));
if DirectoryExists('C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen\') then
konfig.SaveToFile(DateiPfad)
else
begin
CreateDir('C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen\');
konfig.SaveToFile(DateiPfad);
end;
konfig.free;
end;

"Das System kannden angegebenen Pfad nicht finden."
Was soll das?

Lasse

[DeddyH]

Was steht denn in "Dateipfad"?

[blender]

Inhalt von DateiPfadist:"C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen\Konfig.ini"

[DeddyH]

Und wenn Du den Backslash mal weglässt?

Delphi-Quellcode:

if DirectoryExists('C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen') then
konfig.SaveToFile(DateiPfad)
else
begin
CreateDir('C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen');
konfig.SaveToFile(DateiPfad);
end;

[blender]

Es funktioniert immer noch nicht.

[Die Muhkuh]

Hast Du Schreibrechte auf C:?