全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1292
推到 Plurk!
推到 Facebook!

请问delphi6 中randomfrom的用法

答題得分者是:Justmade
seagal2222
一般會員


發表:24
回覆:48
積分:14
註冊:2003-03-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-02 14:09:01 IP:61.167.xxx.xxx 未訂閱
function RandomFrom(const AValues: array of Integer): Integer; overload; 为何 randomfrom(a)(a是一个动态数组),总报错。能否给个例子。
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-02 14:25:04 IP:218.16.xxx.xxx 未訂閱
use Math    procedure TForm1.Button1Click(Sender: TObject);
var
A : Array of Integer;
i : integer;
begin      SetLength(A,4);
  for i := 0 to Length(A) do
    A[i] := i   1;
  ShowMessage(IntToStr(RandomFrom(A)));    end;
可執行沒報錯。
系統時間:2024-09-10 13:56:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!