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:?

[blender]

Natürlich.
Ich bin Administrator.
Außerdem wäre die Meldung dann: "Zugriff verweigert", oder?

[Die Muhkuh]

Zitat:

Zitat von blender

Es funktioniert immer noch nicht.

Klar, les ich auch super hier raus, dass es nicht "Zugriff verweigert" ist...

[DeddyH]

Ist der Pfad denn vorhanden (wenn auch falsch geschrieben)?

[Matze]

Zitat:

Zitat von Die Muhkuh

Klar, les ich auch super hier raus, dass es nicht "Zugriff verweigert" ist...

Wenn du lesen würdest schon:

Zitat:

Zitat von blender

"Das System kannden angegebenen Pfad nicht finden."

Der Konfigurationseinstellungen-Tippfehler spielt zwar keine Rolle, dennoch ist es anders schöner.

Auf Anhieb sehe ich auch keinen Fehler. In welcher Zeile kommt er denn genau (oben oder unten beim Schreiben)?

[blender]

Der Pfad wird doch von dem Programm erzeugt.
Ich habe ihn nachgeprüft, er ist vorhanden.
Es kommt immer die Meldung: "C:\Programme\Vokabeltrainer 1 Beta 5\Konfiurationseinstellungen\Konfig.ini System kann den Pfad nicht finden!".
Delphi erkennt keine Fehler.

[DeddyH]

Und Du bist sicher, dass Du aufgrund des Tippfehlers nicht 2 unterschiedliche Pfade für das Speichern und Laden verwendest? Ich würde eine Konstante verwenden, um das auszuschließen.

[blender]

Danke für den Hinweis auf den Rechtschreibfehler.
Nach der Behebung hat es Funktioniert.
Danke!!!

[blender]

Wisst ihr was hier falsch ist?
Die erste Zeile der geladenen Datei soll nun ausgelesen und der Edit-Komponente als Text zugewiesen werden. (Diese ist mit einer UpDown-Komponente Verknüpft.)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var konfig: TStringlist;
begin
konfig:= TStringlist.Create;
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;
vokabelns := TStringlist.Create;
vokabelnf := TStringlist.Create;
Schwierigkeit := TStringlist.Create;
fehlerbegrenzung := 1;
if FileExists(DateiPfad) then
begin
konfig.loadfromfile(DateiPfad);
fehlerbegrenzung:= StrToInt(Konfig.Strings[0]);
end;
label2.Caption:= 'Die Fehlerbegrenzung liegt im Moment bei: ';
edit2.Text:= IntToStr(fehlerbegrenzung);
konfig.Free;
end;

[DeddyH]

1. Gewöhn Dir mal eine halbwegs vernünftige Einrückung an.
2. Lokal erzeugte Objekt sollten auch lokal wieder freigegeben werden.
3. Was funktioniert denn nicht?

[Die Muhkuh]

4. Die Resourcenschutzblöcke fehlen.

[DeddyH]

Das gehört bei mir mit zu 2. ;) , hab ich nur nicht eindeutig gesagt.

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Das gehört bei mir mit zu 2. ;) , hab ich nur nicht eindeutig gesagt.

:mrgreen:

Dann steht da auch die Fehlerbeschreibung, nur nicht eindeutig gesagt. :mrgreen:

*SCNR*

[blender]

Die Edit-Komponente zeigt eine '0' an, owohl in der Datei ausdrücklich eine '1' gesspeichert ist!!!

Übrigens: An den Ressourcenschutzblöcken lag es nicht.

[DeddyH]

Hast Du mal einen Breakpoint gesetzt und durchgesteppt?

[blender]

Bei einem Haltepunkt wird bei mir nie gestoppt.
Ich weiß auch nicht warum.
Man muss doch eigentlich nur den blauen Punkt anklicken, der daraufhin rot wird, oder? (Unbedingte Haltepunkte)

[Die Muhkuh]

Ja.

[blender]

Genau das mache ich!!!
Das Programm jedoch läuft normal wie immer!!! :wall:

[Die Muhkuh]

Dann führt er wohl den Code nicht aus.

Startet Du das Programm über Start -> Start (F9)?

[blender]

Über F9.

[Die Muhkuh]

Ist das Ereignis (FormCreate) der Form überhaupt zugewiesen?

Eig. dürfte er, wenn dem nicht so wäre, den Code ja nicht einkompilieren. :-?
Wo setzt Du den Breakpoint hin?

[blender]

Der Haltepunkt ist bei:

Delphi-Quellcode:

  edit2.Text:= IntToStr(fehlerbegrenzung);

Form1.Create ist Deklariert.

[Matze]

Hallo,

ich bin überzeugt davon, dass du dich viel leichter tust, wenn du TIniFile (Tutorial) nutzt. Deine Datei heißt "Konfig.ini" und der typische Ini-Aufbau ist jedoch ein anderer als den, den du nutzt.
Auch die Fehlersuche wird dadurch erheblich vereinfacht.

[Die Muhkuh]

Und schau bitte nochmal nach, ob Du das Ereignis auf der Form zugewiesen hast.

[blender]

Was meinst du damit?

[Die Muhkuh]

Im ObjektInspektor Dein Formular auswählen, auf "Ereignisse" klicke und dort schauen, ob FormCreate bei OnCreate eingetragen ist.

[DeddyH]

Einfach mal nen Doppelklick auf die Form und schauen, wo man steht

[blender]

Ja, dort steht FormCreate.

[DeddyH]

Und Dein Code?

[blender]

Der kommt auf Doppelklick.

[DeddyH]

Dann muss der Breakpoint doch funzen. Ich kann mir nicht vorstellen, dass das an der Personal liegen soll.