Case...of Schleifenproblem... 1...[Varbiable]

[Mike_]

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 !