Question

delphi 判断每个edit的值不同

我想编一个程序 其中有8个 edit
1.每次程序执行后输入的值 每个edit的都不相等
2.他们之间的值必须在0到30之间

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
var
a:array[1..8] of integer;
i,j:integer;
begin
for j:=1 to 8 do begin
a[j] := StrToInt(TEdit(FindComponent('Edit'+IntToStr(j))).Text);
if (a[j]<0) or (a[j]>30) then begin
ShowMessage('错');
Exit;
end;
end;
for i:=1 to 7 do
for j:=i+1 to 8 do
if a[i]=a[j] then begin
ShowMessage('错');
Exit;
end;
end;

Answer 2

Randomize;
Edit1:=Random(30);
Randomize;
Edit2:=Random(30);
While Edit2.text=Edit1.text do
begin
Randomize;
Edit2:=Random(30);
end;
后面依次类推；