通過代碼創建TVirtualTable而不丟棄組件

Question

最近我想使用TscExcelExport導出數據。 如果我使用設計組件使用TVirtualTable，它可以很好地工作。

EmpVT.First; 
EmpVT.Filtered := False; 
while not EmpVT.Eof do 
    begin 
    //Salary Virtual Table 
    VirtualTableBankTransferListExport.Append; 
    VirtualTableBankTransferListExport.FieldByName('EMPID').AsInteger := EmpVT.FieldByName('EMPID').AsInteger; 
    VirtualTableBankTransferListExport.FieldByName('EMPBANKGROUPNO').AsInteger := EmpVT.FieldByName('BANKGROUPNO').AsInteger; 
    VirtualTableBankTransferListExport.FieldByName('EMPTRANSBANKACCNAME').AsString := EmpVT.FieldByName('EMPBANKACCNAME').AsString; 
    VirtualTableBankTransferListExport.FieldByName('EMPTRANSBANKACCNO').AsString := EmpVT.FieldByName('EMPBANKACCNO').AsString; 
    VirtualTableBankTransferListExport.FieldByName('BANKACCNO').AsString := EmpVT.FieldByName('BANKACCNO').AsString; 
    VirtualTableBankTransferListExport.FieldByName('PERIOD').AsString := PaySlipPeriod; 
    VirtualTableBankTransferListExport.FieldByName('BANKNAME').AsString := EmpVT.FieldByName('BANKNAME').AsString; 
     VirtualTableBankTransferList.FieldByName('TRANSFERAMOUNT').AsInteger := 0;//Format('%s%s%.*d', [EmpVT.FieldByName('REGIONCODE').AsString,EmpVT.FieldByName('EMPCODE').AsString,4,EmpVT.FieldByName('EMPCODE').AsInteger]); //EmpVT.FieldByName('EMPCODE').AsString; 
    VirtualTableBankTransferListExport.FieldByName('BANKID').AsString := EmpVT.FieldByName('BANKID').AsString; 
    VirtualTableBankTransferListExport.FieldByName('TBANKNAME').AsString := EmpVT.FieldByName('TBANKNAME').AsString; 
    VirtualTableBankTransferListExport.FieldByName('BANKLOCATION').AsString := EmpVT.FieldByName('BANKLOCATION').AsString; 
    VirtualTableBankTransferListExport.Post; 
    EmpVT.Next; 
    end; 
    scExcelExport1.WorksheetName := 'Bank Transfer List'; 
    scExcelExport1.Dataset:=VirtualTableBankTransferListExport; 
    scExcelExport1.ExportDataset; 
    scExcelExport1.Disconnect; 

什麼是通過代碼創建TVirtualTable而不刪除TVirtualTable的正確方式？

謝謝你的幫助。

Answer 1

安裝專家包（更多功能，但不太穩定）或GExperts IDE（更粗糙，但功能較少）附加

他們都有「組件到代碼」嚮導。

所以你要選擇你的組件，從菜單運行這個命令，並獲得創建它的純粹的Pascal源。

PS。實際上可能有幾個組件，而不是一個組件：字段通常是它們自己的組件。