我现在要实现的功能是:给一个字段自动分配一个3位的字符串,这个字符串是从A到Z排列组合,也就是从“AAA”到“ZZZ”,然后存到数据库中,每次分配的不能有与数据库中相同的字符串。如:
数据库中记录是:
1 AAA
2 AAB
3 AAD在这种时候按“添加”,这时我要自动分配一个AAC保存到数据库中。请问如何实现?最好能写出代码,谢谢先!!!!!!!
数据库中记录是:
1 AAA
2 AAB
3 AAD在这种时候按“添加”,这时我要自动分配一个AAC保存到数据库中。请问如何实现?最好能写出代码,谢谢先!!!!!!!
解决方案 »
- 很奇怪的问题
- delphi连接sqlserver数据库要密码??急!
- 各位大哥哪有没有中文的打包工具,小弟急用。。。
- 问个问题,为了使程序开始时就隐藏我用了Application.ShowMainForm := false;可让它显示时窗体上什么都没有
- 关于deletefile的问题。
- 我用olecontainer的savetofile后打不开啦,怎么回事?
- 如何实现按空格键,但得到按 PageDown 的效果
- 请问能不能将剪贴板中的内容释放掉?
- 如何查找一个文件夹下的所有文件(包括子文件夹)并把文件名存到一个数组中?(高手进来)
- 关于消息话题?
- 怎样访问某一网站的某一文件???????????????
- 哪位兄弟有delphi7+sqlserver的电子书,小弟不胜感激
也就是代码的量大一点,专门用一个unit来定义就可以了
看看
"那位大虾给我写个小算法,100分献上,不够在给!"的贴子中我的答案会明白的
LENCON
在button1.click事件代码输入,如下:procedure TForm1.Button1Click(Sender: TObject);
VAR
X,Y,Z:INTEGER;
S:STRING;
begin
FOR X:=65 TO 90 DO
BEGIN
FOR Y:=65 TO 90 DO
BEGIN
FOR Z:=65 TO 90 DO
BEGIN
S:=CHR(X)+CHR(Y)+CHR(Z);
LISTBOX1.Items.Add(S);
END;
END;
END;
End;表的性质与LISTBOX一样,你可以在表中先查找运算得到的字符串S,如有则放弃,如没有则添加并终止运行.
经试行,正确