So ich habs jetzt mal veruscht...
Also so sahs vorher aus, ging wunderbar, aber es kamen halt 100 Versuche (1..100) und ich wollte ja ein maximum einstellen...
Delphi-Quellcode:
case a of
0:
begin
[...]
end;
1..100:
begin
if Edit2.Text=deutsch[x] then
begin
[...]
end
else
begin
[...]
end
end;
end;
end;
So jetzt für die die das selbe Problem haben und das hier per SuFu gefunden haben, das wäre die richtige Lösung gewesen :
Delphi-Quellcode:
case a of
0:
begin
[...]
end;
1..100:
begin
if a < maxver then
begin
if Edit2.Text=deutsch[x] then
begin
[...]
end
else
begin
[...]
end
end
else
begin
ShowMessage('Maximale Versuche überschritten');
end
end;
end;
end;
Ich glaub ich hab heute mein "Dankesagen Vorrat schon aufgebraucht... trotzdem ein DANKE !