Сортировка в Turbo Vision - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Сортировка в Turbo Vision, Украинские символы

Опции

-Дима-	26.05.2007 17:08 Сообщение #1
Гость	Помогите пожалуйста с сортировкой в Turbo Vision. Нужно, чтоб сортировало и украинские символы... Код есть, только ничё не сортирует. Плз. Помогите кто знает... Фрагмент программы: Procedure SearchItem; Function UpString(s: String): String; var k: Integer; begin for k := 1 to Length(s) do if s[k] in ['a'..'z'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a')) else if s[k] in [' а'..'i','ї'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a') ) else if s[k] in ['К'..'п'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a')) else if s[k] in ['р'..'я'] then s[k]:=chr(ord('P')+ord(s[k])-ord('p')); UpString:=s end;