Das ist mein momentaner Stand.
Delphi-Quellcode:
private
{ Private declarations }
public
{ Public declarations }
type
TVocab = record
German, English: string;
Repetitions: Integer;
end;
Delphi-Quellcode:
Input:= E_UserGuess.Text;
E_UserGuess.Text:= '';
Answer:=AnsiCompareStr(Vocabulary.Names[RandomNumber], Input);
If Answer=0
Then //Antwort ist richtig
Begin
L_CorrectAnswer.Caption:='';
Img_FeedBack.Picture.Bitmap.Assign(jpgCorrect);
//Vocabulary.Delete(RandomNumber);
Vocab.Repetitions[RandomNumber]:= Vocab.Repetitions[RandomNumber] - 1;
End
Else //Antwort ist falsch
Begin
L_CorrectAnswer.Caption:='Richtig wäre: '+(Vocabulary.Names[RandomNumber]);
Img_FeedBack.Picture.Bitmap.Assign(jpgWrong);
Vocab.Repetitions[RandomNumber]:= RepititionValue;
End;
Jetzt kann ich meine Zufallszahl nicht mehr nutzen. Compiler sagt Array type required.
Meinst du mit in Liste packen sowas: List.Add(Vocab);?