能不能哪位给出代码?
[email protected]
[email protected]
解决方案 »
- 寻求Delphi7高手合作(有偿)
- 各大师:你们好。请问如何取出两个Memo1和Memo2中不相同的字符(列)存到另一Memo3中?
- 将一个TreeView1中的所有内容,复制到另一个TreeView2,如何做?急,谢谢!
- 如何在程序里实现,打开一个图形文件在Photoshop中?请帮助.
- Fastreport如何制作如下形式的报表?
- 我没有做过策划的工作,但想应聘这样的工作,不知道面试时候会问我什么问题呢
- 关于数组的声明!
- 一个很菜的问题??
- 请教,调用ACCESS的问题
- 求助!急
- 我在写Opendialog,时为什么保存的时候存储的文件名不是我所预设的。
- 请问如果mail服务器要求smtp认证应该怎么编程?
Const
yy = 1000;
Var
a : Array [0..25] Of Char;
Temp : Char;
i, FromSit, ToSit : Integer;
begin
Randomize;
For i := 0 To 25 Do
a[i] := Chr(i+65);
//随机交换关联序号
For i := 1 To yy Do
Begin
//生成随机数
FromSit := Random(26);
ToSit := Random(26);
//交换序号
Temp := a[FromSit];
a[FromSit] := a[ToSit];
a[ToSit] := Temp;
End;
Result := a;
end;