高手指教啊:list index out of bounds(1)!
procedure TFrmMain.FormCreate(Sender: TObject);
var
NewColumn: TListColumn;
begin
FDmbook:=TDMBook.Create(self);
RefreshExecute(nil);
with ListView1 do //运行到这里出错!
begin
clear;
SmallImages := imgSmall;
LargeImages := imgbig;
NewColumn := Columns.Add;
NewColumn.Caption :='书名';
NewColumn.Width:=280;
NewColumn := Columns.Add;
NewColumn.Caption :='译著者';
NewColumn.Width:=80;
NewColumn := Columns.Add;
NewColumn.Caption :='出版社';
NewColumn.Width:=100;
NewColumn := Columns.Add;
NewColumn.Caption :='出版时间';
NewColumn.Width:=80;
end;
end;