Hallo Leute,
Ich habe ein Problem. Ich hoffe ich kann es so beschreiben dass ihr mich auch versteht.
Also:
Ich arbeite gerade an einen vokabeltrainer, mit dem man seine zu lernenden vokabeln
eintragen kann und dann auch als training sich abfragen lassen kann. Das habe ich bereits
fertig und möchte dass am schluss eine "Bewertung" kommt (nachdem alle eingetragenden vokabeln
abgefragt worden sind) Diese Bewertung sollte folgendes enthalten: "Vokabeln insgesamt"
"Richtig übersetzte Vokabeln" und "falsch übersetzte vokabeln" Dann noch ein Label
mit "Du hast zu __% richtig übersetzt".
Leider habe ich keinen Schimmer wie ich das machen könnte.
Hier einmal einen Teil Code von der Abfrage:
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
begin
//false.pas -> Label7 'Deine Eingabe'
Form6.Label7.Caption := Edit1.Text;
Form6.Label5.Caption := question;
Form6.Label6.Caption := answer;
// richtige eingabe
If UpperCase(answer) = UpperCase(Edit1.Text) Then
//sonst
else
Form6.ShowModal;
answer := Form1.StringGrid1.Cells[1,RecNo];
// question bekommt einen anderen Wert in der Zeile
question := Form1.StringGrid1.Cells[0,RecNo];
LblWort.Caption := question;
inc(RecNo);
If RecNo >= Form1.StringGrid1.RowCount Then
RecNo := 1;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
//beim starten der form...
question := Form1.StringGrid1.Cells[0,RecNo];
LblWort.Caption := question;
inc(RecNo);
If RecNo >= Form1.StringGrid1.RowCount Then
RecNo := 1;
RecNo := 1;
Wenn Ihr Ideen habt, wie ich das machen könnte wäre ich sehr dankbar über einen post von euch
Mit freundlichen Grüßen
alanblack