Solved

Random!!!

Posted on 2001-06-02
4
227 Views
Last Modified: 2010-04-06
Hello everybody
Actually I just need a procedure that runs randomly  one of the
case...of numbers (look below), but thats not all, the difficult part is that it has to run all numbers, and not a number twice. I hope you understood.

Here an example, the first number is randomly selected between 1 and
10 e.x: 9 now it runs in the case...of:
9: begin {do something} end;  
ok the whole procedure runs totally 10 times, so the next time maybe 2 is selected but not 9! I tried to show the procedure how it should look like:


procedure rand;
var

what:integer;
{your vars}

begin

randomize;
{your code}

case what of

1:     begin
     {do my code}
     end;
2:     begin
     {do my code}
     end;
3:     begin
     {do my code}
     end;
{...}
{the numbers go until 10, each number only once!}
end;

end;

{By the way I tried to make it simple, because in my application it has
to choose from about 70 (!) numbers. I wrote my own code, but it didn't work; because it's quite long I didn't post it.}

:)dluedi
0
Comment
Question by:dluedi
4 Comments
 
LVL 2

Accepted Solution

by:
DidierD earned 30 total points
ID: 6149324
dluedi,

You can do it like this


Procedure Rand(List: TStringList);
var
  what, Index: integer;
begin
  Randomize;
  Index := Random(List.Count);
  What := StrToInt(List[Index]);
  List.Delete(Index);
  case what of
    1: ShowMessage('1');
    2: ShowMessage('2');
    3: ShowMessage('3');
    4: ShowMessage('4');
    5: ShowMessage('5');
    6: ShowMessage('6');
    7: ShowMessage('7');
    8: ShowMessage('8');
    9: ShowMessage('9');
    10: ShowMessage('10');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  NumberList: TStringList;
  i: integer;
begin
  NumberList := TStringList.Create;
  for i := 1 to 10 do
  begin
    NumberList.Add(IntToStr(i));
  end;
  for i := 1 to 10 do
  begin
    Rand(NumberList);
  end;
  NumberList.Free;
end;
0
 
LVL 1

Expert Comment

by:dyancer
ID: 6150409
try this url,
I hope it help you.
http://www.delphi3000.com/articles/article_1898.asp

0
 
LVL 1

Expert Comment

by:mpoots
ID: 6151128
Hi,

I am not sure but I think you are looking for something like this:


procedure TfrmMain.Button1Click(Sender: TObject);
var i, j : integer; numbers : string;
begin

  randomize;
  numbers := '';
  for j := 0 to 8 do
    while true do begin
      //this gives random numbers between 1 and 10
      i := Random(10 - (1 + 1)) + 1 + 1 ;
      if pos(IntToStr(i),numbers) = 0 then begin
        numbers := numbers + IntToStr(i);
        showmessage(IntToStr(i));
        break;
      end;
    end
end;

Good luck

Marcel    
0
 
LVL 1

Author Comment

by:dluedi
ID: 6152267
Actually this was already the answer to my question, that went farst! Thx to everybody else who tried to help!
0

Featured Post

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question