tobjectlist

    8熱度

    1回答

    我正在使用TObjectList(Delphi 2007)來存儲大量數據 - 我預計會有大約30萬個元素甚至更多。但是,創建列表時,默認大小設置爲只存儲四個元素,然後八個(如果嘗試添加第五個元素),然後是十六個(如果嘗試添加第九個元素等等)。這些數字可能是關閉的,但我認爲這些工作是正確的。問題在於所有元素都必須從內存的釋放部分複製到新擴展列表遷移到的新內存塊。我想設置一個特定的初始大小,並釋放(或

    0熱度

    1回答

    我在創建自定義類型對象列表的一個列表並在該列表中添加一些對象時遇到了一些問題。 我有一個advertise對象列表 public int ajax_GenerateReports(ResourceRequest request, ResourceResponse response) throws Exception { log.info("ajax_Generate Reports E

    1熱度

    1回答

    有人可以確認我不可能在用Delphi編寫的exe和dLL之間交換一個包含TobjectList的指針嗎? Class definition shared between DLL and EXE TCMStack = CLASS(TObject) PRIVATE FEquipment: TCMEquipment; /// equipement with associated constra

    1熱度

    2回答

    我需要根據一些規則重新排序TObjectList。我怎樣才能做到這一點? 因此,我將面板以dinamically方式添加到ScrollBox。 當我添加它們時,我也將它們按照在運行時添加的順序添加到ObjectList中,以供將來使用。然後,我可以通過拖放來重新組織滾動框中的面板。 我希望ObjectList能夠鏡像在拖放時在運行時設置的相同順序。 這裏是我的代碼: var MainFo

    3熱度

    1回答

    我工作的自定義類,以XML轉換和要求之一是流TObjectList<T>領域的能力得到對象。 我試圖調用ToArray()方法來獲取TObjectlist的對象保持,但我得到「無效的類類型轉換」,因爲該類型的明顯不匹配。 藉此類,例如: type TSite = class Name : String; Address : String; end;

    1熱度

    1回答

    我將一些圖像加載到對象列表中,然後嘗試調用它們。但它沒有顯示圖像? procedure TForm1.LoadImages(const Dir: string); var i: Integer; CurFileName: string; JpgIn: TJPEGImage; BmpOut: TBitmap; begin //sets index for

    1熱度

    1回答

    我構建TObjectList至極將存儲類TButton的對象: ... type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure FormCreate(Sender: TObject); public

    8熱度

    2回答

    我有我的代碼,它使用泛型類型的問題。爲什麼編譯器不知道通過的列表(Result)是TObjectList<TItem>(TItem是T的類型TItems)? 接口: type TItem = class end; type IItemsLoader = interface procedure LoadAll(AList : TObjectList<TItem>)

    1熱度

    2回答

    我有類 TFolder = class NODE_INDEX: Integer; FIRST_INDEX : Integer; CODE_NAME: AnsiString; NAME: AnsiString; constructor Create(NewNODE_INDEX, NewFIRST_INDEX: Integer; NewCODE_NA

    1熱度

    2回答

    我有一個很少元素的TObjectList。我必須用同一個項目中的一個替換其中的一個(不需要更改計數)。我做了以下操作: procedure TForm1.Button1Click(Sender: TObject); var TObj: TObjectList; LPoint: TPPoint; i: integer; begin TObj:= TObje