delphi中edit1,edit2,edit3,edit4,edit5,通过随机函数覆值后,怎么让五个edit中内容都不一样呢?请写出代码,多谢
解决方案 »
- 如何让程序处理4万多条的数据不会卡死
- 请教高手,如何把接口作为组件的属性?
- DELPHI用ADO怎么连接局域网上的SQL数据库.
- 我做的一个客户管理软件,大家提点意见!
- 接口问题
- 看看这个SQL语句怎么写?
- 如何把dbmemo中的字符写入sql server中?
- 网站开通,欢迎大家访问,希望你留下你的建议,谢谢
- 提示ltBacthOptimistic,fgPendingRecords没有声明
- Delphi Gdi+ 绘图,如何不受系统Dpi值的影响?
- 跪求indy http如何向服务器输入用户密码?一直在线等,直到解决,先谢了。
- 将XLS导入到到ACCESS后,如何再修改导入的字段名??请大家看看吧
begin
if (edit1.text=edit2.text) and () and() ....... then
随机函数();
else break;end;
a,b,c,d,e :string;
begin
Randomize;
edit1.Text:=IntToStr(random(21)+1);
edit2.Text:=inttostr(random(21)+1);
edit3.Text:=inttostr(random(21)+1);
edit4.Text:=inttostr(random(21)+1);
edit5.Text:=inttostr(random(21)+1);
a:=trim(edit1.Text);
b:=trim(edit2.Text);
c:=trim(edit3.Text);
d:=trim(edit4.Text);
e:=trim(edit5.Text);
while true do
if (a>b) or (a>c) or (a>d) or (a>e) or (b<a) or (b>c) or (b>d) or (b>e) or (c<a) or (c<b) or (c>d) or (c>e) or (d<a) or (d<b) or (d<c) or (d>e) or (e<a) or (e<b) or (e<c) or (e<d) then
edit1.Text:=inttostr(random(21)+1);
edit2.Text:=inttostr(random(21)+1);
edit3.Text:=inttostr(random(21)+1);
edit4.Text:=inttostr(random(21)+1);
edit5.Text:=inttostr(random(21)+1);
else break;//走到这一步就出现错误了,是怎么回事啊???????请高手指点!!!!
end;
begin
edit1.Text:=inttostr(random(21)+1);
edit2.Text:=inttostr(random(21)+1);
edit3.Text:=inttostr(random(21)+1);
edit4.Text:=inttostr(random(21)+1);
edit5.Text:=inttostr(random(21)+1);
end
else begin
...
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
vEdit: TEdit;
begin
Randomize();
with TList.Create do try
for I := 1 to 21 do Add(Pointer(I)); // 得到全部1-21
for I := 1 to 5 do
begin
TComponent(vEdit) := FindComponent(Format('Edit%d', [I]));
if Assigned(vEdit) then
begin
J := Random(Count); // 随机抽取一个元素
vEdit.Text := Format('%d', [Integer(Items[J])]);
Delete(J); // 删除抽取的元素
end;
end;
finally
Free;
end;
end;