Delphi的動態形式陣列和數據陣列管理

Question

我必須解決一個問題：

Form23：

public 
{ Public declarations } 
FormsArray : array of TForm24; 
end; 


Procedure Create_form; 
begin 
SetLength(FormsArray, Length(FormsArray)+1); 
FormsArray[Length(FormsArray)-1] := TForm24.Create(Self); 
end; 

Form24：

public 
end; 

var 
UniqueValue : Array of ShortString; 

Procedure Fill_Unique; 
var 
tmp1 : Longint; 
begin 
SetLength(UniqueValue, 256); 
for tmp1 := 0 to Length(UniqueValue)-1 do 
begin 
    UniqueValue[tmp1] := IntToStr(tmp1); 
end; 
end; 

Procedure OnButtonClick(Sender); 
begin 
Fill_Unique; 
end; 

時，我有一種形式Form24和我填充一些價值觀，那麼它就沒問題。

當我有兩種形式Form24（FormsArray [0]和FormsArray [1]），我更改UniqueValue在一種形式，然後我有兩種形式的值。

即

創建FormsArray [0]和FormsArray [1]

當我點擊FormsArray按鈕[0]：

FormsArray [0] - UniqueValue [...] = '1,2,3,4,5,6,7,8,9 ......';

FormsArray [1] - UniqueValue [...] ='1,2,3,4,5,6,7,8,9 ...';

當我點擊FormsArray按鈕[1]：

FormsArray [0] - UniqueValue [...] =「1,2,3,4,5,6,7,8,9 .. ';

FormsArray [1] - UniqueValue [...] ='1,2,3,4,5,6,7,8,9 ...';

當我更改代碼：

Form24：

public 
UniqueValue : Array of ShortString; 
end; 

和我點擊按鈕FormsArray [1]那麼我：

FormsArray [0] - UniqueValue [... ] ='';

FormsArray [1] - UniqueValue [...] ='';

UniqueValue爲空。

我需要在我創建的每個窗體Form24中有獨立數組（每個窗體創建時都有不同的UniqueValue）。

如何做到這一點？我做錯了什麼？

感謝您的任何幫助。

已解決！

我得到-1的解決方案，我寫在這裏。那麼將是無法解決的。搜索你自己。

Answer 1

這聽起來像你已經解決了它。使UniqueValue成爲的成員。例如，將它放在類聲明的public部分。

type 
    TForm24 = class(TForm) 
    public 
    UniqueValue: array of string; 
    end; 

您展示了首代碼有數組作爲全局變量，這當然是由你的窗體類的所有實例共享的，以及一切在你的程序。你可能會覺得困惑，認爲與表單類相同的文件中聲明的任何東西「屬於」該類，但如果你認爲這是錯誤的。爲了製作屬於某個類的東西，應該在裏聲明這個類，而不是在同一個單元文件中的某個地方。

看起來您可能想讓Fill_Unique和OnButtonClick也是表單類的成員。在你展示的代碼中，它們是獨立的程序，所以它們沒有提及它應該處理的任何形式。這意味着他們不能參考UniqueValue，因爲他們不會知道在哪個TForm24實例的字段上進行操作。

Answer 2

您的UniqueValue數組是全局聲明的，因此多個表單實例將訪問內存中的同一個數組。將數組移動到Form類的public部分，可以讓該Form的每個實例擁有自己的數組，該數組獨立於其他Form實例。只要確保你刪除全局數組。