引言: 由於我對SetLength上不明白其用意，故請教各位專家 有關SetLength的定義。 如果說我想從LMDListBox裡的資料， 然後用SetLength來作為陣列的話， 不知道該如何應用 下面試我有關SetLength的程式 procedure TTSPSolverForm.BitBtn2Click(Sender: TObject); var i,j,k,l,m,x:Integer; A:array of integer; isexist:Boolean; S:String; begin isexist:=False; Counter.StartTimeCount; SetLength(A,LMDListBox1.Items.Count); for i:=1 to StrToInt(FlopEdit.Text) do begin if LMDListBox2.Items.Count=0 then begin Randomize; for j:=0 to LMDListBox1.Items.Count-1 do begin isexist:=False; x:=random(LMDListBox1.Items.Count) 1; for k:=0 to LMDListBox1.Items.Count-1 do begin if x=A[k] then isexist:=TRUE; end; while isexist do begin isexist:=False; x:=random(LMDListBox1.Items.Count) 1; for l:=0 to LMDListBox1.Items.Count-1 do begin if x=A[l] then isexist:=TRUE; end; end; A[j]:=x; S:=''; for m:=0 to LMDListBox1.Items.Count-1 do begin S:=S ' -> ' 'N' IntToStr(A[m]); end; //ShowMessage(S); end; //ShowMessage(FloatToStr(GetLength(A))); LMDListBox2.Items.Add(IntToStr(LMDListBox2.Items.Count 1) ';' NumberSpinEdit.Text ';' FloatToStr(GetLength(A)) ';' S); end else begin end end; TimeEdit.Text:=Counter.ElapsedSecs; end; 想請教大家一下， LMDListBox理的資料如下所示： 1 2 3 2 3 4 3 4 5 4 6 7 5 8 9 6 10 11 7 12 13 8 14 15 謝謝。

引言: 我的問題用意在於... 隨機選取LMDListBox裡面的前面的 1,2,3,4,5,6,7,8 但是選擇不能重複不能重複， 然後我會去選擇另一個矩陣中的數值相加 謝謝站長的解釋

引言: 應該一為陣列就可以了， 只是我新手，還無法用隨機選取1～8 且不能重複 意思是說： 我希望得到的結果為13578642或2456317這樣的組合 就是1～8不能重複 但卻是隨機排列。 謝謝。

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  memo2.lines.clear;
  randomize;
  while memo1.Lines.count>0 do
  begin
     i:=random(memo1.lines.count);
     memo2.lines.add(memo1.Lines[i]);
     memo1.Lines.Delete(i);
  end;
end;

引言: [Error] Unit1.pas(14): Unsatisfied forward or external declaration: 'TForm1.Memo1Change' Memo1 have error??? 是我在宣告有問題嗎？？