Der Fehler mit der erwarteten Konstante hat seinen Grund ganz einfach im Case-Statement.
Hast du mehr als eine Code-Zeile pro Case, musst du deinen Code in einen Block (begin ... end
schreiben.
Delphi-Quellcode:
Case X Of
1:
Begin
...
...
End
2:
Begin
...
...
End
End;
In deinem Fall braucht man nur 2 Statements pro Case, der Rest ist doch gleich:
Delphi-Quellcode:
RightAnswer.DataSource := Form2.DataSource;
Vokabel.DataSource := Form2.DataSource;
Case Form1.Uebersetzung Of
0:
Begin
Vokabel.DataField := 'Deutsch';
RightAnswer.DataField := 'Englisch';
End;
1:
Begin
Vokabel.DataField := 'Englisch';
RightAnswer.DataField := 'Deutsch';
End;
End;
[Edit] muss an der Uhrzeit liegen
[/Edit]