引用单元:System.StrUtils
代码功能说明:
在数组Arr中随机获取一个值,在数组Brr中进行查找,发果Brr数组中没有此数值,则将值增加到Brr数组内,直到Brr数组加满10个值为止,且Brr数组的所有值不重复。
以下为了目视更清楚,我用了一个ListBox进行Brr数组值的显示
var
num:Integer;
Arr,Brr:array of string;
str:string;
begin
SetLength(Arr,26);
Arr[0]:='A';
Arr[1]:='B';
Arr[2]:='C';
Arr[3]:='D';
Arr[4]:='E';
Arr[5]:='F';
Arr[6]:='G';
Arr[7]:='H';
Arr[8]:='I';
Arr[9]:='J';
Arr[10]:='K';
Arr[11]:='L';
Arr[12]:='M';
Arr[13]:='N';
Arr[14]:='O';
Arr[15]:='P';
Arr[16]:='Q';
Arr[17]:='R';
Arr[18]:='S';
Arr[19]:='T';
Arr[20]:='U';
Arr[21]:='V';
Arr[22]:='W';
Arr[23]:='X';
Arr[24]:='Y';
Arr[25]:='Z';
SetLength(Brr,11);
num:=0;
ListBox1.Clear;
ListBox1.Sorted:=True;
while num < 10 do
begin
str:=Arr[Random(Length(Arr))]; //随机获取数组内的数值
if not MatchStr(str,Brr) then //引用System.StrUtils单元
begin
Brr[num]:=str;
ListBox1.Items.Add(str);
Inc(num);
end;
end;
程序运行结果如下: