| Код |
begin
with IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM DOCS');
Open;
ListView1.Items.Clear;
while not IBQuery1.Eof do
begin
with ListView1.Items.Add do
begin
Caption := IBQuery1.Fields[0].AsString;
SubItems.Add(IBQuery1.Fields[1].AsString);
end;
IBQuery1.Next;
end;
end;
|
Есть вот такой код, и вроде бы все должно работать безукаризненно, НО......
Если выставить у ListView параметр ViewStyle на vsReport, то данные не заносятся вообще, при других стилях заполняется только одно значение.
Пробовал проверять отладчиком, все значения заносятся в переменные, но до Листа они не доходят. |