//用Random()就可以了啊 //要先Randmoize()function RandomNumberStr(mCount: Integer; mLength: Integer): string; var I: Integer; S: string; begin Randomize; Result := ''; for I := 1 to mCount do begin S := Format('%.*f', [mLength, Random]); Delete(S, 1, 2); Result := Result + S + #13#10; end; end;procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text := RandomNumberStr(12, 6); end;
//SQL Server CREATE TABLE TableName ( FieldName int IDENTITY(100000, 1) RIMARY KEY, ... )你就说你要达到什么目的不就可以了 用的是啥数据库
thank you very much for zswang(zs)'s repeat . i only want to make a sample programer useing DELPHI 5.0 so , Access database maybe used . i have study database program not long age . this program is for my "software engineering" case in the end of this term . because, this term is my lastest team in my university life .i will graduate from my university next year .i do it very careful . i fond that the CSDN is a good please to ask to expert of programer .i log on it every day almost . thans fo vevry one helping me .wish improveing with everybody .
http://www.cn.ibm.com/developerWorks/security/playing/index.shtml
//要先Randmoize()function RandomNumberStr(mCount: Integer; mLength: Integer): string;
var
I: Integer;
S: string;
begin
Randomize;
Result := '';
for I := 1 to mCount do begin
S := Format('%.*f', [mLength, Random]);
Delete(S, 1, 2);
Result := Result + S + #13#10;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := RandomNumberStr(12, 6);
end;
CREATE TABLE TableName
(
FieldName int IDENTITY(100000, 1) RIMARY KEY,
...
)你就说你要达到什么目的不就可以了
用的是啥数据库
i only want to make a sample programer useing DELPHI 5.0
so , Access database maybe used .
i have study database program not long age . this program is for my "software engineering" case in the end of this term .
because, this term is my lastest team in my university life .i will graduate from my university next year .i do it very careful .
i fond that the CSDN is a good please to ask to expert of programer .i log on it every day almost . thans fo vevry one helping me .wish improveing with everybody .
用GoGUID()+Copy()也可以呀E-Mail:[email protected]