Проблема с readbyte

[PVD]

function makemenu(f:String):String;
var
res:resource;
typ,filepath,hint:string;
IDS,byte,ExitID:Integer;
Begin
res:=openresource('/'+f+'.txt');
_clearform;
While chr(byte)<>'&' Do
    Begin
    byte:=readbyte(res);
    If chr(byte)='$' Then
        Begin
        typ:='';
        filepath:='';
        hint:='';
        While chr(byte)<>'(' Do
            Begin
            byte:=readbyte(res);
            If chr(byte)<>'(' Then typ:=typ+chr(byte);
            End;
        While chr(byte)<>',' Do
            Begin
            byte:=readbyte(res);
            If chr(byte)<>',' Then filepath:=filepath+chr(byte);
            End;
        While chr(byte)<>')' Do
            Begin
            byte:=readbyte(res);
            If chr(byte)<>')' Then hint:=hint+chr(byte);
            End;
        IDS:=_addselectedlabel(typ,0);
        End;
    End;
... 


что тут неправильно?

[ViNT]

В чем именно заключается проблема?

[PVD]

Программа просто останавливается и не работает "зависает" падение мидлета не наблюдается может где то есть бесконечный цикл?

Есть идеи?

[ViNT]

Явных ошибок в логике не видно, сорее всего, ошибка в структуре файла, т.е. на определенном шаге программа не находит нужный символ и зацикливается.

[PVD]

вот там такая структура

 $itself(crottooo,byme) &

у кого нить есть какие идеи?

[ViNT]

Первое - не стоит читать данные побайтно из ресурса, лучше сразу прочитать строку данных в строковую переменную, а потом уже ее обрабатывать.
Второе - добавить после строки данных еще какую-нибудь строку, бывают глюки, связанные с этим.
А дальше - еще и еще раз проверять работу алгоритма, правильно ли он обрабатывает данные.

[PVD]

Второе - добавить после строки данных еще какую-нибудь строку, бывают глюки, связанные с этим.

да пробывал не помагает...

[odd]

При чтении строк и байтов MP часто не может определить грамотно конец файла и возникает зависание. Мой совет - читать построчно с помощью либы Lib_resloader там зависать точно не будет.