Цитата
Что имеется в виду "не считается"? Папка появляется в Гриде, проверил. Количество видео-файлов в ней тоже появляется. Все ее подпапки тоже появляются, тоже проверил. Картинок не вижу никаких вообще, что именно у тебя "сдвигается" - непонятно.
действительно в гриде есть... а в выходном хтмл файле нету... блин
нащёт регистра - я тоже думал, изза этого проблема была с vob, просто незнал как сделать
а нащёт однотипных действий - я просто ночью делал - лиш бы уж както сделать
буду потом потихоньку всё оптимизирувать
зы ты знаешь, действительно исправил я условия, правда эффект не совсем тот получился - теперь и в гриде не отображает эту папку
ззы как ты и сказал - переделал всю процедуру так
Код
procedure VideoShare(path: string; SearchRec:TSearchRec);
var
AType: TStringList;
ext: string;
begin
AType := TStringList.Create;
if (UpperCase(ExtractFileExt(SearchRec.Name)) = '.AVI')or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.MKV')
or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.VOB')or(UpperCase(ExtractFileExt(SearchRec.Name)) ='.OGM')
or(UpperCase(ExtractFileExt(SearchRec.Name)) = '.MP4') then
begin
inc(vcount);
ext := UpperCase(ExtractFileExt(SearchRec.Name));
ext := copy(ext, 2, length(ext)-1);
if pos(ext, Form1.Grid.Cells[4,gridcell-1]) = 0 then
begin
if Form1.Grid.Cells[4,gridcell-1] = '' then
begin
Image(path);
PathList.Add(path);
infill(path, AType);
end;
Form1.Grid.Cells[4,gridcell-1] := Form1.Grid.Cells[4,gridcell-1] + ext + ' ';
end;
end;
AType.Free;
end;
правда теперь снова в гриде нет папки - а картинка её высвечивается в хтмлке