因為我看書裡面最多只能顯示 二維座標(x[0],y[0]) 那如果我今天要顯示成 (x[0]=15.5,y[0]=3.33,z[0]5.55) 呈現在memo的面板 memo->lines->???? 要如何ㄋ 請各位大大幫忙

Hi spaceworld1108,    不知是否有誤解你的意思

var
  S : String;
begin
  S := '(x[0]=15.5,y[0]=3.33,z[0]5.55)';
  Memo1.Lines.Add(S);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

你的想法 的確是我要問的(先謝謝你) 不過現在我的x[0] y[0] z[0]是一種變數(不確定的數) 我現在用 Memo1->Lines->Add(x[i]); Memo1->Lines->Add(y[i]); Memo1->Lines->Add(z[i]); 來顯示 x,y,z 但結果會是 0 10 20 但是我希望現在能夠顯示成 (0,10,20) 麻煩一下 幫我一下 我實在找不到 memo其他方式

Hi spaceworld1108,    

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z : Array of Real;
  Len,I : Integer;
  S : String;
begin
  Randomize();
  Len := Random(10)   1;
  ShowMessage(IntToStr(Len));
  SetLength(X,Len);
  SetLength(Y,Len);
  SetLength(Z,Len);
  for I := 0 to Len - 1 do
    begin
      X[I] := Random(10000) / 100;
      Y[I] := Random(10000) / 100;
      Z[I] := Random(10000) / 100;
    end;
  Memo1.Lines.Clear;
  for I := Low(X) to High(X) do
    begin
      S := '('   FloatToStr(X[I])   ','   FloatToStr(Y[I])   ','   FloatToStr(Z[I])   ')';
      Memo1.Lines.Add(S);
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

真是謝謝你 你的方法真讚