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]

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

[Die Muhkuh]

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 von Die Muhkuh:

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

Wenn du lesen würdest schon:

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.