Простой вопрос

← →
cypher (2002-02-16 22:13) [2]

procedure TForm1.BuildNetShareList;
var
I: Integer;
LastCaption: String;
FindItem: TListItem;
begin
with ListView1 do begin
Items.BeginUpdate;
try
Items.Clear;
ShareList.Refresh;
for I := 0 to ShareList.Count - 1 do
with Items.Add, ShareList[I] do begin
////////////////////////////////////
if DirectoryExists(Path) then ImageIndex := 0
else ImageIndex := 4;
///////////////////////////////////
Caption := ShareName;
Data := ShareList[I];
SubItems.Add(Path);
SubItems.Add(Remark);
end;
AlphaSort;
finally
Items.EndUpdate;
end;
end;
end;

Функция заполняет ListView расшареными папками..
Если расшарить флоппик - ругается... В 9x не проворял, но в XP ругается...

Простой вопрос Найти похожие ветки