Ich habs gemacht wie Aphton beschrieben hat..
Und es funktioniert
Code:
procedure TForm1.Button3Click(Sender: TObject);
var UntereGrenze, ObereGrenze : Integer;
begin
UntereGrenze := ( x div 10 ) * 10;
ObereGrenze := UntereGrenze + 10;
Memo1.Lines.Add('Zahl liegt zwischen ' + IntToStr(UntereGrenze) + ' und ' + IntToStr(ObereGrenze));
end;
Wie eine REPEAT- Schleife geht hatten wir bisher Leider noch nicht
Danke an alle fürs Helfen