delphi программа алгоритма хаффмана

[Droid5555]

братаны программисты кто нибудь может объяснить в чем проблема в этой программке
заранее спасибо

[Serge_Bliznykov]

в файле Unti1.pas в строке 188 замените

  StatusBar1.Panels[1].Text:=OD.FileName;//Выводим директорию файла в панель снизу

на

  StatusBar1.Panels[0].Text:=OD.FileName;//Выводим директорию файла в панель снизу

остальное, вроде бы, работает.

[Droid5555]

нет братан не запускается прога

[Droid5555]

прога запускается но после выбора текстового файла выдает ошибку

[evg_m]

но после выбора текстового файла выдает ошибку

и какую же ?

  BlockRead(FInput,Buf,  LengthSizeOf(Buf),NumRead);//Считываем символы

SizeOf -- размер отдельного элемента {в массиве}
Length -- количество таких элементов в массиве

until (NumRead<SizeOf(Buf));//Повторяем до тех пор пока буфер не наполнился
EOF(Finput) //есть что читать (еще не конец файла (EndOfFile)

[Serge_Bliznykov]

у меня программа работает.
текстовый файл я брал в кодировке 1251 (ANSI).
версия Delphi у меня 2006.

[Droid5555]

у меня 2010
можешь прогу вложить

[Droid5555]

[QUOTE=evg_m;1674941]и какую же ?

после выбора текстового файла выходить окно deburgger exception notification
и после клика break показывает 210 строку

[Serge_Bliznykov]

странная ошибка.
Какая у Вас версия Delphi ?

а попробуйте заменить строчку

  Buf: array[0..BufSize-1] of Char;

на строчку

  Buf: array[0..BufSize-1] of AnsiChar;

[Serge_Bliznykov]

Сообщение от Droid5555

можешь прогу вложить

да не вопрос:
Project1_EXE.rar (пароль на архив 123)
Huffman_project_source.rar