Рандом

[Brocop]

Всем привет.
Как сделать рандом переменных с выводом в поле Edit1.

Дедлаю так

procedure TForm1.Button1Click(Sender: TObject);
var
  s1: string;
  s2: string;
  s3: string
begin
s1:='123';
s2:='1234';
s3:='12345';

if ComboBox1.ItemIndex=0 then
begin
edit1.Text:=random(s1,s2,s3);
end;

end;

Ошибка.
Как решить?

[Shouldercannon]

s3: string;

Применение функции

i := Random(100)

edit1.Text:=IntToStr(random(StrToInt(s1)));

[Serge_Bliznykov]

Brocop, так использовать функцию нельзя. почитайте, что такой фукнция Random() и что она возвращает!

ну, для начала я бы предложил объединить строки в массив.
а потом уже выбирать случайное значение значение индекса.

вот так, например:

var
  ss : array[1..3] of string;
begin
 Randomize;  // иницилизацию ГСЧ лучше вынести на событие создания формы OnCreate
 ss[1]:='123';
 ss[2]:='1234';
 ss[3]:='12345';

if ComboBox1.ItemIndex=0 then
   edit1.Text:=ss [ random(3)+1 ];

[Brocop]

Shouldercannon Спасибо, но в переменных ни числа а строки. Делаю генератор ключей к программе.

Serge_Bliznykov Благодорю)

Как сделать диапазон значений в edit1.Text:=ss [ random(3)+1 ];
Чтобы не с 1 массива начинал к примеру с 7 кончая 15

[BDA]

edit1.Text:=ss[random(9)+7];

9=15-7+1

[TorrentTor]

Или воспользоваться функцией RandomRange

function RandomRange ( const RangeFrom, RangeTo : Integer ) : Integer;

Delphi функция RandomRange генерирует произвольное целое число ( integer ) в пределах диапазона RangeFrom и RangeTo.

Пример:

ShowMessage(IntToStr(RandomRange(7, 15)));