задача такая
| Код |
procedure TForm1.FindFileFileMatch(Sender: TObject; const Folder: String; const FileInfo: TSearchRec); //короче это процедура типа когда поиск нашёл нужный мне файл
var
LI:TListItem;
begin
LI:=LV.Items.Add;
LI.Caption:='капшн'
LI.SubItems.Add('Folder');
LI.SubItems.Add('asdasd');
LI.SubItems.Add('1235');
LI.SubItems.Add('qwer1');
LI.SubItems.Add('qwer4');
LI.SubItems.Add('qwerdf');
end;
|
А добавляет он поочерёдно, сначало caption, потом подитемы
Из за этого возникает ошибка в процедуре
| Код |
procedure TForm1.LVCheckStateChange(Sender: TObject; Item: TListItem);
begin
//Узнать сколько обектов checked
if FCheckCount<-1 then
FCheckCount:=0;
if LV.Items.Count<>0 then
if Item.Checked then
begin
Inc(FCheckCount);
Sum:=Sum+GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);
end
else
if FCheckCount<>-1 then
begin
Dec(FCheckCount);
Sum:=Sum-GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);
end;
st1.Items.Item[10].SubItems[0]:=FloatToStrF(FCheckCount+1,ffNumber,10, 0);
st1.Items.Item[11].SubItems[0]:=GapSize(Sum);
end;
|
Заметьте это процедура выполняется при изменении чего либо, Когда функция поиска начинает добавлять итем, функция изменения срабатывает и выводит ошибку, типа subItem не создан по которому я пытаюсь:
| Код |
Sum:=Sum-GetFileSize(IncludeTrailingBackslash(Item.SubItems[0])+Item.Caption);
|
определить размер! ФАК!=(
и вот хочу попробовать сделать добавление построчно... |
)