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
Поиск
Друзья
Администрация