的TStringList的ADDOBJECT方法

Question

我想知道這個方法調用做什麼：

stringList.addObject(String,Object); 

我也想知道這個屬性的作用：

stringList.Objects[i] 

它看起來像鍵，值對同時加入。但是，在循環中檢索什麼被檢索？

我也看到物品[我]打電話。

我對TStringList操作和TList操作感到困惑。

Answer 1

AddObject方法允許您存儲與存儲在Item屬性中的字符串關聯的TObject地址（指針）。 Objects屬性用於訪問存儲的對象。

檢查使用AddObject存儲與每個字符串關聯的整數值的簡單採樣。

var 
List : TStringList; 
I : integer; 
begin 
    try 
    List:=TStringList.Create; 
    try 
     List.AddObject('Item 1', TObject(332)); 
     List.AddObject('Item 2', TObject(345)); 
     List.AddObject('Item 3', TObject(644)); 
     List.AddObject('Item 4', TObject(894)); 

     for I := 0 to List.Count-1 do 
     Writeln(Format('The item %d contains the string "%s" and the integer value %d',[I, List[I], Integer(List.Objects[i])])); 
    finally 
     List.Free; 
    end; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end. 

Answer 2

TStringList不僅僅是一個字符串列表。

它可用於名稱值對：

stringlist.Values['apple'] := 'one'; 
stringlist.Values['banana'] := 'two'; 

但它也可用於將字符串與任何對象（或任何指針）關聯。

stringlist.AddObject('apple', TFruit.Create); 
stringlist.AddObject('banana', TFruit.Create); 


i := stringlist.IndexOf('apple'); 
if i >= 0 then 
    myfruit := stringlist.Objects[i] as TFruit; 

TList是存儲指針的列表。它們不與字符串關聯。

Answer 3

它添加了一對項目：TStringList.Strings列表中的條目和TStringList.Objects列表中的匹配TObject列表。

例如，它允許您存儲提供項目名稱的字符串列表以及包含匹配項目的類別的對象。

type 
    TPerson=class 
    FFirstName, FLastName: string; 
    FDOB: TDateTime; 
    FID: Integer; 
    private 
    function GetDOBAsString: string; 
    function GetFullName: string; 
    published 
    property FirstName: string read FFirstName write FFirstName; 
    property LastName: string read FLastName write FLastName; 
    property DOB: TDateTime read FDOB write FDOB; 
    property DOBString: string read GetDOBAsString; 
    property FullName: string read GetFullName; 
    property ID: Integer read FID write FID; 
    end; 

implementation 

{TPerson} 
function TPerson.GetDOBAsString: string; 
begin 
    Result := 'Unknown'; 
    if FDOB <> 0 then 
    Result := DateToStr(FDOB); 
end; 

function TPerson.GetFullName: string; 
begin 
    Result := FFirstName + ' ' + FLastName; // Or FLastName + ', ' + FFirstName 
end; 

var 
    PersonList: TStringList; 
    Person: TPerson; 
    i: Integer; 
begin 
    PersonList := TStringList.Create; 
    try 
    for i := 0 to 9 do 
    begin 
     Person := TPerson.Create; 
     Person.FirstName := 'John'; 
     Person.LastName := Format('Smith-%d', [i]); // Obviously, 'Smith-1' isn't a common last name. 
     Person.DOB := Date() - RandRange(1500, 3000); // Make up a date of birth 
     Person.ID := i; 
     PersonList.AddObject(Person.LastName, Person); 
    end; 

    // Find 'Smith-06' 
    i := PersonList.IndexOf('Smith-06'); 
    if i > -1 then 
    begin 
     Person := TPerson(PersonList[i]); 
     ShowMessage(Format('Full Name: %s, ID: %d, DOB: %s', 
         [Person.FullName, Person.ID, Person.DOBString])); 
    end; 
    finally 
    for i := 0 to PersonList.Count - 1 do 
     PersonList.Objects[i].Free; 
    PersonList.Free; 
    end; 

這顯然是一個人爲的例子，因爲它不是你真正認爲有用的東西。不過，它展示了這個概念。

另一個方便的用途是存儲一個整數值和一個字符串（例如，顯示TComboBox或TListBox中的項目列表以及用於數據庫查詢的對應ID）。在這種情況下，您只需要在Objects數組中對整數（或其他任何SizeOf（指針））進行類型轉換。

// Assuming LBox is a TListBox on a form: 
while not QryItems.Eof do 
begin 
    LBox.Items.AddObject(QryItem.Fields[0].AsString, TObject(QryItem.Fields[1[.AsInteger)); 
    QryItems.Next; 
end; 

// User makes selection from LBox 
i := LBox.ItemIndex; 
if i > -1 then 
begin 
    ID := Integer(LBox.Items.Objects[i]); 
    QryDetails.ParamByName('ItemID').AsInteger := ID; 
    // Open query and get info. 
end; 

在存儲比實際TObject其他事情的情況下，你並不需要釋放的內容。由於它們不是真實物體，除了TStringList本身以外沒有任何東西可以自由使用。