向窗口传递动态数组

Question

新手求教:
 如何向一窗口发送动态数组?如果用属性,该如何表述,拜托举个例子!先谢了

Answer 1

type
  TStringArr = array of string;  // 動態數組
  TForm1 = class(TForm)
  private
    { Private declarations }
    FStringArr:TStringArr;
  public
    { Public declarations }
    property StringArr: TStringArr read FStringArr write FStringArr; //屬性
  end;// 使用
procedure TForm1.FormCreate(Sender: TObject);
begin
  // 設定數組大小
  SetLength(Self.FStringArr, 2);
  Self.FStringArr[0]:='ssss';
  Showmessage(Self.FStringArr[0]);
end;不知道是不是這樣, 不是很明白你的意思.

Answer 2

对不起啊!表达不好!
我的意思是由TForm1向TForm2窗口传送一动态数组array1;array of string
Tform2如何以属性的方式接收

Answer 3

你是因为无法确定数组的大小吧?
High(),Low()这些函数可以帮忙...然后接收的时候好SetLength