произвольный выбор из констант

[Arhangel_bes]

У меня такой вопрос: Можно организовать произвольный выбор из констант?
т.е.
const
variant1='variant1.db';
variant2='variant2.db';
...
variant6='variant6.db';

т.е. произвольный выбор файла с вариантом через random?
Или посоветуйте как это можно сделать по другому.

[Kostia]

А константы обязательно? Я бы сделал так:

'variant'+inttostr(1+random(n))+'.db'

или так:

var
  m: array[1..n]of string=('variant1.db','variant2.db',...);
  s: string;
begin
  s:=m[1+random(n)];
end.

[Arhangel_bes]

Не получается, пишет ошибку 'Cannot initialize local variables'!

[Kostia]

'Cannot initialize local variables' = 'Невозможно инициализировать локальную переменную' - это значит что ее нужно сделать глобальной

[Arhangel_bes]

выводит только первый вариант

[mihali4]

Небольшая поправочка:

var
  m: array[1..n]of string;
  i: integer;
  s: string;
begin
for i:=1 to n do
m[i]:='variant'+IntToStr(i)+'.db';
s:=m[1+random(n)];
end.

[Arhangel_bes]

всё равно выводит только 'variant1.db'!

[Arhangel_bes]

Вот код получившейся у меня программы. Правильно?
var
variant: array[1..3]of string;
str:string;
n:integer;
begin
for n:=1 to 3 do
variant[n]:='Voprosy'+IntToStr(n)+'.db';
str:=variant[1+random(3)];
end.

[Kostia]

randomize в самом начале программы написать не забыл?

[mihali4]

Я бы еще после BEGIN вставил бы RANDOMIZE...