random fra/til

var
rn : integer;
rs ; string;
list : TStringList;
begin
list := TStringList.create();
list.add('String1');
list.add('String2');
list.add('String3');
list.add('String4');
list.add('String5');
// Initialise random function - note: call this ONLY ONCE for every run of the application.
randomize;
// Choose random number between 0 and number or strings in list - 1
rn := random(list.count-1);
// Get random string from list
rs := list[rn];
end;

cablenet.dk -> hmm det besvare jo ik mit spm og det er random nr fra 0 til x og sådan er den random fucktion jo som standart

rnd(x) giver dig et tilfældigt tal mellem 0 og x.
Hvis du vil ha' et tilfældigt tal mellem 32 og 123 gøres flg:
p:=rnd(91)+32

husk at seede tilfældighedsgeneratoren først.

Randomize();

Ellers får du samme taltækkefølge hver gang programmet starter. Det kan være meget godt i en testfase.

yes det virker .. tak ;)

Den ligger faktisk allerede i Math, RandomRange. den gør næsten det samme, der mangler lige lidt fra nca :)

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

/ZIRON

Det vil jo altid være et definitionsspørgsmål, når man nævner intervallet fra - til.
Jeg tolker intervallet fra 32 til 123 som >=32 og <123 :-)

nca >> hehe det er helt iorden, tror faktisk også selv jeg ville lave ne anden funktion end den der bliver brugt i Math. Men det kommer jo også an på hvad det skal bruges til :)

/ZIRON