Delphi ListView 大量資料高速操作通用架構：實作篇 (MVC 模式與虛擬模式)

原生 TListView 在 5,000+ 筆資料下操作極慢。本文提出一套通用類別架構，結合虛擬模式 (OwnerData) 與 MVC 分離，實現高效能、可維護的 ListView 資料操作。

架構優勢總覽

1. 快速實現 MVC：Controller 實例化 View 子類，調用方法完成增刪改，業務邏輯與顯示分離
2. 封裝記憶體資料清單：簡化 List 物件操作，減少建立/操作/釋放錯誤
3. 集中控制碼：相同資料在不同 Form 只需實例化一個 View 子類
4. 業務資訊集中：顯示欄位變更只需修改 View 子類一處

已知不足與改進方向

• 外部呼叫方式高度相似 → 抽象層次不夠
• 基類行為抽象不足 → 可改用介面 (Interface) 取代虛擬方法，符合「依賴抽象」原則
• 缺欄位排序功能 → 待擴充
• Delphi 介面需實作 IInterface 且常繼承 TInterfacedObject，限制多重繼承彈性

核心單元程式碼片段

{ 產品: 成曉旭個人軟體 Delphi 原始碼庫 }
{ 模組: ListView 顯示控制類 - 應用層: Soft socket 類定義 }
{ 單元: unLVSoftSocket.pas → unLVQuickSocket.pas }
{ 作者: 成曉旭 }

unit unLVQuickSocket; 

interface

uses 
  Classes, Controls, ComCtrls, 
  unLVControler; { 核心控制器封裝包 }

type 
  { 快速操作基類 }
  TLVQuickClass = class 
  protected
    { 子類必須實作的兩個核心虛擬方法 }
    function CheckFound(const AData: Pointer): Boolean; virtual; abstract; 
    procedure ProcOnDataDetail(const AItem: TListItem; const AData: Pointer); virtual; abstract; 
  public
    constructor Create(const AListView: TListView); virtual; 
    destructor Destroy; override; 
    { 公開操作介面 }
    procedure AddItem(const AData: Pointer); 
    procedure UpdateItem(const AData: Pointer); 
    procedure DeleteItem(const AData: Pointer); 
    procedure ClearItems; 
  end; 

  { Socket 專用快速顯示類 }
  TLVQuickSocket = class(TLVQuickClass) 
  protected
    function CheckFound(const AData: Pointer): Boolean; override; 
    procedure ProcOnDataDetail(const AItem: TListItem; const AData: Pointer); override; 
  public
    { 業務擴充方法 }
    procedure RefreshBySocketID(const ASocketID: Integer); 
    procedure UpdateStatus(const AData: Pointer); 
  end; 

implementation

{ 核心虛擬方法實作略... }

end.

關鍵設計模式

應用層呼叫範例

{ Controller 中 }
var 
  SocketView: TLVQuickSocket; 
begin 
  SocketView := TLVQuickSocket.Create(ListView1); 
  try 
    SocketView.AddItem(SocketData); 
    SocketView.UpdateItem(SocketData); 
    SocketView.DeleteItem(SocketData); 
  finally 
    SocketView.Free; 
  end; 
end;

此架構在多個專案中經過驗證，有效解決了「程式碼散落、重複、難維護」的痛點，是 Delphi ListView 大量資料處理的成熟解決方案。