代碼如下:ActiveList 為THashedStringList 型別,請各位大神幫忙看看標紅的地方用法對嗎,是否可以這樣進行添加?
procedure TInterface.SetList(pStatus: PStatus);
var
index : Integer;
begin
with ActiveList do
begin
if (pStatus^.c_status = '2') or (pStatus^.c_status = '3') then
AddObject(pStatus^.vc_code,TObject(pStatus^.c_status));
end;
end;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/108839.html
標籤:語言基礎/算法/系統設計
上一篇:關于執行緒設計和物件的一個問題
