spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

if checkbox1.checked then    //schauen ob easy to remember aktiviert ist
    begin

        for I := 1 to strtoint(edit2.Text) do
        begin
        if odd(I) = false then begin   //wenn I ungerade ist soll ein vokal komen
          if random(10) >= 5  then begin  // grossgeschriebener vokal
            pw := pw + vokalegross[random(4+1)];  //array enthält :  a e i o u
          end
          else  // kleingeschriebenen vokal
          begin
            pw := pw + vokaleklein[random(4+1)]; //array enthält :  A E I O U
          end;
        end
        else //falls I gerade sein sollte kommt ein konsonant
        begin 
        if random(10) > 5 then begin //grosser konsonant
            pw := pw + konsonantegross[random(20+1)]; //array enthält nur konsonante
          end
          else //kleinerkonsonant
          begin
            pw := pw +konsonanteklein[random(20+1)]; //array enthält nur konsonante
          end;

        end;
        end;
    end
    else  //falls easy to remember nicht aktiviert ist
    begin
      for I := 1 to strtoint(edit2.Text) do
        begin
        pw := pw + easyaabc[random(61+1)]; //array enthält 26 mal kleines abc 26mal grosses abc und 10 zahlen
        end;
    end;
  end;

Quellcode

random(4) + 1 

Quellcode

random(4+1)