Servus Leute!
Gerade bin ich damit beschäftigt, ein kleines Delphi-Schulprojekt zu erstellen.
Es handelt sich hier um einen Vokabeltrainer.
Wenn man eine Vokabel richtig bzw. falsch hat, sollte dies in einer Datenbank vom Programm aus,
vermerkt werden.
Ich habe eine Prodezur erstellt, welche mir sagt, ob die eingegeben Vokabel richtig oder falsch sind,
wie ihr hier sehen könnt:
Delphi-Quellcode:
procedure TForm1.Loesungpruefen();
var
Faktor : integer;
begin
if edit1.text = Adoquery1.fieldvalues['Fremdsprache'] then
begin
img_true.visible := true;
img_false.visible := false;
Faktor := 1;
AdoQuery1.Edit;
Adoquery1.fieldvalues['Bewertung'] := Adoquery1.fieldvalues['Bewertung'] + Faktor;
adoquery1.Post;
adoquery1.Next;
deutsch();
end
else
begin
If Messagedlg(adoquery1.fieldvalues['Deutsch'] + ' heißt auf Englisch ' + adoquery1.fieldvalues['Fremdsprache'], mtConfirmation,[mbok], 0) = mrok then
begin
img_true.visible := false;;
img_false.visible := true;
Faktor := -3;
AdoQuery1.Edit;
Adoquery1.fieldvalues['Bewertung'] := Adoquery1.fieldvalues['Bewertung'] +Faktor;
adoquery1.Post;
adoquery1.Next;
deutsch();
end;
Ich habe diese Funktion mehrmals kontrolliert und konnte den Fehler nicht ausfindig machen.
Die Funktion will mir einfach nichts in die Datenbank schreiben.
Ich hoffe, dass ihr mir hier weiterhelfen könnt.
Danke schonmal im Voraus für eure Mühen
Christoph
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]