不行啊
我的用法:random(255)

解决方案 »

  1.   


    a:Byte;
    a:=Random(255);
    改成
    a:Byte;
    Randomize;
    a:=Random(255);
    是不是这样啊?老兄,还是不行
      

  2.   


    错误信息是:missing operator or semicolon
      

  3.   

    a:double;
    Randomize;
    a:=Random(255);
      

  4.   

    Function TForm1.RandomColor;
    var
      redc,greenc,bluec:Byte;
    begin
        
       redc:=Random(255);
       greenc:=Random(255);
       bluec:=Random(255);
       result:=redc or (greenc shl 8) or (bluec shl 16);
    end;
      

  5.   

    a:integer;
    Randomize;
    a:=Random(255);
    还要记住用USER把所用的单元加上
      

  6.   

    是uses吧
    可我的函数和调用都在一个单元里
      

  7.   

    var
    i:integer;
    begin
      Randomize;//种子
      A := 1 + Random(255);//因该这样调用0-255之间的随机数
    end;