Показать сообщение отдельно
  #22  
Старый 10.08.2012, 11:19
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Dmitry_DM
Я попробовал что-то сделать, но не получается ввести в программу sample и SampleSize, выдаются ошибки, типа тип не описан, но я ведь его описал. Вот код:
...
Что тут не так. И еще одно: тип должен быть именно Sample, ведь именно его программа видит в файле, или... и вообще за каким принципом читаются данные?
Ты же пытаешься читать сэмплы в том месте где должен читаться чанк "fmt". Читать нужно когда уже найден чанк "data" - в твоём коде это перед словом Exception:
Код:
    until  String(ID)='data';

    <-- Вот тут

Except
    Result.ERROR := ReadError;
  end;
Ответить с цитированием