Помогите разобраться!!!!!!Пожалуйста!
Вот проект который должен читать информацию об AVI файле!Но он этого не делает!Помогите разобраться в чем ошибка!!
...
if not FileExists(FileName) then
begin
ErrCode := 1;
exit;
end;
iFileHandle := FileOpen(FileName, fmOpenRead);
FileSeek(iFileHandle, 7, 0);
setlength(TempFExt, 5); { <--- Этого у тебя вообще не было }
FileRead(iFileHandle, TempFExt[1], 5); { Обрати внимание на индекс ... }
if copy(TempFExt, 2, 4) <> 'AVI ' then { <--- ... и на то, ОТКУДА начинаем копирование }
begin
ErrCode := 2;
exit;
end;
{ Дальше - без изменений... }
procedure TForm1.Button1Click(Sender: TObject);
...
if ErrCode = 0 then { <--- Исправь на это }