Вверх ↑
Разработчик
Ответов: 25654
Рейтинг: 2085
#1: 2020-09-02 12:39:41 ЛС | профиль | цитата
3042 писал(а):
Поправил.

Ни фига не хочет работать на Win7x64. Вопросики вместо текста и баста.

--- Добавлено в 2020-09-02 13:11:44

Пока пробовал всякие изощрения, обнаружил, что вот это


   while(i < Length(p))and(p[i] in ['а'..'я','А'..'Я','a'..'z','A'..'Z'])do
надо заменить вот на это

   while(i <= Length(p))and(p[i] in ['а'..'я','А'..'Я','a'..'z','A'..'Z'])do
а то сжирается последний символ.
карма: 19

0
Редактировалось 1 раз(а), последний 2020-09-02 13:11:44