Программе некорректно обрабатывает некоторые файлы

[Shturmer]

Доброго времени суток!
Написал на Дельфи (Turbo Delphi 2006) программу-сортировщик файлов GBX(карты для игры Trackmania).
Но некоторые файлы обрабатываются некорректно.
Программа и исходный текст во вложении.
Также в архиве пример файла который отрабатывается некорректно (1250cc Debonaire.Challenge.Gbx) и пример файла корректного файла (ADRENALINE.Challenge.Gbx).
З.Ы. Опыта в создании приложений нет. Наиболее общие представления.
Кому интересно описание данного файла тут. (на английском). При создании данной программы никак не использовалось =)

[Stilet]

Толку от твоего исходника без формы и прочего...
Прикрепляй архив проекта всего.

[Shturmer]

Как и просили =)

[MalCer]

Shturmer, вы не могли бы по-подробнее. Я скомпилировал файл, вроде все работает

[Shturmer]

Если в директории находится один файл, который неверно обрабатывается, в данном случае 1250cc Debonaire.Challenge.Gbx, то после выполения программы в "логе"(лог вида: имя_файла|автор|время) не пишется автор и время строка получается такой "1250сс Debonaire.Challenge.Gbx||00.00." Если бы файл обрабатывался верно то строка должна принять вид "1250сс Debonaire.Challenge.Gbx|-Phyter-|01.49.00" где -phyter- автор, а 01.49.00 время. Чтобы понять что должно быть в файле, файл *.Gbx можно открыть например блокнотом и во второй строке можной найти author="-Phyter-" и gold="109000", автор и время соответственно.
А если есть в директории есть помимо этого другие файлы, но которые обрабатываются верно, то в лог "неверных" файлов пишутся данные из предыдущего файла, т.к. у меня не обнуляются переменные. Переменные пробовал обнулять после каждого файла, результат тотже.

[Serge_Bliznykov]

если дотерпите, сегодня вечерком посмотрю, что можно сделать с Вашей задачей.
но сразу могу сказать, где "корень зла" - файлы .Gbx НЕ ТЕКСТОВЫЕ! Их категорически нельзя читать как текстовые f : TextFile; Readln(f,buf)

Изменяйте, например, на работу с потоками:

var FS : TFileStream;
    Buffer : array[0..60*1024] of byte;
...
  FS := TFileStream.Create( SSource.text+'\'+SearchRes.Name, fmOpenRead   );
 //переход на нужную позицию в файле...
 FS.Seek(позиция, soFromBeginning); 
 // чтение в буфер 
 FS.ReadBuffer(buffer, нужное_число_байт);
и т.д.

  FS.Free;

и второе.
в файлах явно есть строго определённая структура. Почему ей не пользоваться?!! o_O

[Shturmer]

Спасибо за подсказку, с потоками попробую разобраться. А вот насчет структуры... Я просто не знаю как ей воспользоваться. Как я уже писал, у меня только наиболее общие представления в создании программ. По ссылке, приведенной мной в первом посте есть полное описание этого формата. Но вот чтобы воспользоваться мне не хватает знаний.
Вообще, на написание данной программы меня подтокнуло нежелание в ручную сортировать около 2000 тысяч таких файлов =)

[Serge_Bliznykov]

так сами разберётесь? или помощь всё таки нужна?

[Shturmer]

Думаю всетки нужна... Пока мне вообще не понятно что с этим файловым потоком делать =). Скопировали мы в буфер, часть файла опредленного размера. Дальше чего с ней делать? как нам найти в ней atuhor, envir и goldtime? =)