Morgen Leute

also mein src

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

Randomize;

for i := 1 to strtoint(edAnzahl.text) do
  begin
    Listbox1.items.add(random(strtoint(edBis)+strtoint(EdVon)));
  end;
end;

so und jetzt das problem...

in der zeile

Zitat:

Listbox1.items.add(random(strtoint(edBis)+strtoint (EdVon)));

wird eine zufallszahl berechnet edBis is die anfangszahl und Edvon is die endzahl also von wo bis wo die zufallszahlen gehn

wenn edBis = 1 ist funktioniert das auch ganz gut aber wenn die zahl über 1 ist kommen werte von 1 und auch werte die über der endzahl heraus .. was is daran flassch oder wie kann ich das besser machen ??

MfG. PBiggi

Hallo PBiggi,

mach das besser so:

markieren

Delphi-Quellcode:

var
  iStart, iEnde, iRange: integer;
begin
  iStart := StrToInt(edVon);
  iEnde := StrToInt(edBis);
  iRange := Succ(iEnde - iStart);
  Listbox1.Items.Add(IntToStr(Random(iRange) + iStart));
end;

Grüße vom marabu

Dass man mit Add() nur Zeichenketten verarbeiten kann, habt ihr alle gemerkt und keiner sagt mir was...

Hai PBiggi,

ich würde es so mache:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize; // Nur einmal im Programm aufrufen!
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  zufall : integer;
  von : integer;
  bis : integer;
begin
  ListBox1.Clear;
  von := StrToInt(edVon.Text);
  bis := StrToInt(edBis.Text);
  for i := 1 to strtoint(edAnzahl.text) do
  begin
    zufall := Random (bis - von +1) + von;
    Listbox1.items.add(IntToStr (zufall));
  end;
end;

[Edit]Ups. Da ist mir marabu zuvor gekommen *g*[/edit]

ok ich hab den src so übernommen noch an die edits .text drangehönt und das ergebnis sieht so aus ...

edit: die rede is von marabu code

... peinlich hab von und bis irgentwo vertauscht

Zitat von PBiggi:

... edit: die rede is von marabu code

Da er das selbe macht wie ich muss es gehen

Zeige doch mal den Code wie Du ihn jetzt hast.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  x : Integer;
begin
  Randomize;
  for x := 1 to 10 do
    ListBox1.Items.Append(IntToStr(Random(StrToInt(Edit2.Text) - StrToInt(edit1.Text)) + StrToInt(Edit1.Text)));
end;

Hab ich gerade getestet und geht 1a unter Delphi 6

Edit1 : Min
Edit2 : Max

PS: Code ist nicht besonders elegant :D

Edit: Da war wohl jemand schneller ^^

jetztiger code

Zitat:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
zufall : integer;
von : integer;
bis : integer;
begin
ListBox1.Clear;
von := StrToInt(edBis.Text);
bis := StrToInt(edVon.Text);
for i := 1 to strtoint(edAnzahl.text) do
begin
zufall := Random (bis - von +1) + von;
Listbox1.items.add(IntToStr (zufall));
Gauge1.progress := Gauge1.progress +1
end;
end;

dei beiden roten variablen wurden vertauscht das war der ganze fehler

in der Unit
Math

Kategorie

Zufallszahlen
function RandomRange(const AFrom, ATo: Integer): Integer;

jo danke das sieht ja noch einfacher aus ich werd das mal so probiern