Ich such schon die ganze Zeit nach dem Fehler und find ihn einfach nicht. Situation:
Es sind 20 Wörter in Lablels vorgegeben, die man sich Möglichst merken sollte. Naach einiger Zeit verschwinden die Labels und es erscheint ein Edit in dem man die gemerkten Wörter eingeben kann. Wenn das Wort vorhanden ist soll richtig angezeigt werden un wenn nich , dann Falsch.
Problem: Beim ersten mal funktioniert allles wunderbar,aber ab dem zweiten Button-Klick kommt nur noch Falsch
Bitte helft mir!!!
Delphi-Quellcode:
var a: string; i,j: integer;
b: boolean;
begin
a:= edit1.Text;
i := 0;
repeat
b:=false;
i := i+1;
if a = TLabel(FindComponent('label'+IntToStr(i))).Caption then
begin
b:=true;
TLabel(FindComponent('label'+IntToStr(i))).Visible:= true;
i := 20;
end;
until i = 20;
if b then
Richtig.Visible:= true
else
Falsch.Visible:= true;
delay(2000);
Edit1.Text:= ' ';
Richtig.Visible:= false;
Falsch.Visible:= false;
[edit=mkinzler]Tag korrigiert Mfg, mkinzler[/edit]