用Random [ ( Range: Integer) ];函数即可

解决方案 »

  1.   

    用random产生的随机数全不是真真的随机,而根据时钟频率所产生的,具体的看下面的吧
    http://www.cn.ibm.com/developerWorks/security/playing/index.shtml
      

  2.   

    //用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;
      

  3.   

    //SQL Server
    CREATE TABLE TableName
    (
    FieldName int IDENTITY(100000, 1) RIMARY KEY,
    ...
    )你就说你要达到什么目的不就可以了
    用的是啥数据库
      

  4.   

    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 .
      

  5.   

    Access里有一个AutoNumber字段类型
    用GoGUID()+Copy()也可以呀E-Mail:[email protected]
      

  6.   

    zswang(zs):在遇到问题我会mail问您的,谢谢了,到时候别不记得我哦:) okwin