我正在嘗試從 to 顯示資料TFDQuery，TListView但我不想使用資料系結。
當我獲取資料時，每條記錄之間都有一個空白項。我怎樣才能避免這些空白項？
DM.Qdomains.Connection := DM.Conn;
DM.Qdomains.SQL.Text := 'SELECT * FROM domains';
DM.Qdomains.Active := True;
DM.Qdomains.First;
try
while not DM.Qdomains.Eof do
begin
with DomainsListView.Items.Add do
begin
DomainsListView.Items.Add.Data['domain'] := DM.Qdomains.FieldByName('domain').AsString;
end;
DM.Qdomains.Next;
end;
finally
DM.Qdomains.Free;
end;
uj5u.com熱心網友回復：
您每條資料庫記錄呼叫TListView.Items.Add() 兩次：
with DomainsListView.Items.Add do // <-- 1st call
begin
DomainsListView.Items.Add.Data['domain'] := ...; // <-- 2nd call
end;
只需擺脫多余的Add()呼叫，例如：
DM.Qdomains.Connection := DM.Conn;
DM.Qdomains.SQL.Text := 'SELECT * FROM domains';
DM.Qdomains.Active := True;
DM.Qdomains.First;
try
while not DM.Qdomains.Eof do
begin
DomainsListView.Items.Add.Data['domain'] := DM.Qdomains.FieldByName('domain').AsString;
DM.Qdomains.Next;
end;
finally
DM.Qdomains.Free;
end;
uj5u.com熱心網友回復：
我假設你沒有這個單一的文本，所以我認為你的 ListView 外觀是 Dynamic ？我同意 Remy 的回答，但我不禁要問為什么你不使用 Livebindings 來填充你的 ListView（這么簡單而且沒有代碼）？
（很抱歉將此作為答案，但聲譽低=>沒有評論也沒有投票）
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/437678.html