Помогите c TXT файлом

[romeo]

Несмотря на то, что в строке все время гарантированно есть необходимое число точек с запятой я бы обработал ситуацию, когда по каким-либо причинам точка с запятой не нашлась ... То есть взял бы под IF строку STRPOS(Buffer,';')

[Blade85]

Цитата:

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

Несмотря на то, что в строке все время гарантированно есть необходимое число точек с запятой я бы обработал ситуацию, когда по каким-либо причинам точка с запятой не нашлась ... То есть взял бы под IF строку STRPOS(Buffer,';')

а по конкретнее покажите такой код


FOR i:=1 TO Number DO BEGIN

s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;

Цитата:

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

В функции Эксплоде. Поставьте флаг VAR=Да у переменной Buffer.

Или сделайте Буффер глобальным и вообще в функцию Эксплоде ее не передавайте.

А то буффер в эксплоде пустой. Можете проверить.

галочку в Var то поставил. все равно дает ошибку