(Delphi) Zufällige zahl?

[reBourne]

Mein Projekt sihet so aus:

ein editfeld mit dem wert 100
ein button der den wert im feld ändert!


Wenn ich auf dem button drücke soll die

100 entweder -2,-1,0,+1,+2 gehen ,aber ich bin zu dumm?
Könnt ihr mir bitte helfen !!BITTE Bitte!

 

[Dario Linsky]

var
  i: Integer;
begin
  Randomize;
  i = Random(5);
  i := i - 3;
  Edit1.Text := IntToStr(i);
end;

meinst du sowas?

 

[reBourne]

Fast richtig!Aber ich meine, wenn ich auf dem button drücke soll der zufall entscheiden,ob die 100 zu 98(-2) oder zu
101(+1) !wird!


Wenns geht auch dem nächsten wert:
z.B. aus 100 wird (zufällig)101 ,dann
wird die 101(zufällig) 103!

Also die aktuelle Zahl soll zufällig
-2,-1,0,+1,+2 werden !


Schlecht erklärt! Aber hoffentlich weisst du was ich mein !oder?

 

[Dario Linsky]

dann musst du den code eben noch ein bisschen anpassen. wenn die zahl in deinem edit-steuerelement steht, sieht das etwa so aus:

i := Random(5) - 3;
i := StrToInt(Edit1.Text) + i;
Edit1.Text := IntToStr(i);

und natürlich noch eine entsprechende plausibilität, um sicher zu stellen, dass auch nur zahlen eingegeben werden können.

 

[reBourne]

Super!Geht! Krass ich bin dir auf ewig dankbar!(übertreib)!

Das mit dem NUR ZAHLEN kenn ich anders!
Das geht so :

procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
key:=#0;
end;

Welces ist denn besser (für anfänger)?