![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 29.05.2011
Сообщений: 8
|
![]()
Помогите пожалуйста! вот такая задача вот
Подсчитать количество слов, начинающихся с заглавной буквы. если набирать английские буквы то с помощью функции LowerCase прога которую я написал работает, а на русские буквы не реагирует. ![]() |
![]() |
![]() |
![]() |
#2 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
![]()
В консоле работаешь?
Сливочное масло Valio - компиляция как по маслу
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 29.05.2011
Сообщений: 8
|
![]()
нет, мне на делфи надо
|
![]() |
![]() |
![]() |
#4 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
![]()
В Delphi можно создать несколько видов проектов. Один из них Console Application.. и вот у него (покрайней мере в Delphi 7) были проблемки с Русским шрифтом.
Или ты делаешь на форме? Console выглядит так: http://delphistudio.ru/i/Console-Application_1.png
Сливочное масло Valio - компиляция как по маслу
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 29.05.2011
Сообщений: 8
|
![]()
Я на форме делаю
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 29.06.2008
Сообщений: 603
|
![]()
ANSILowerCase спасет отца русской демократии?
|
![]() |
![]() |
![]() |
#7 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
![]()
Ну может ты покажешь тогда код и укажешь в какой версии Delphi работаешь.
Сливочное масло Valio - компиляция как по маслу
|
![]() |
![]() |
![]() |
#8 |
Регистрация: 29.05.2011
Сообщений: 8
|
![]()
спасибо _Engine_! помогло, теперь все работает нормально )))
|
![]() |
![]() |
![]() |
#9 |
Регистрация: 29.05.2011
Сообщений: 8
|
![]()
а вот и код моей проги:
rocedure TForm1.BitBtn1Click(Sender: TObject); var i,k,n,s:integer; a,b,c:string; begin a:=memo1.Text; n:=length(a); i:=1; s:=0; While i<=n do begin If a[i]=' ' then begin if a[i+1]<>ansiLowerCase(a[i+1]) then begin s:=s+1; end; end; i:=i+1; end; memo1.Lines.Add('s= '+inttostr(s)); end; версия делфи 7.0 |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 07.12.2010
Сообщений: 42
|
![]()
Попробуй строку с пробелом в конце, должно вылететь.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Верхний регистр для русского текста. Visual C++ | Kingdom_Reborn | Помощь студентам | 1 | 17.12.2010 02:28 |
Ввод с клавиатуры,верхний и нижний регистр | Forever_young | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 8 | 11.11.2009 23:27 |
Как в lable задать степень (нижний и верхний регистр) | Polotenchik | Общие вопросы Delphi | 17 | 17.07.2009 23:30 |
Перевод имени в верхний регистр | MalCer | Общие вопросы Delphi | 6 | 31.03.2009 13:14 |
Используя типизированную константу множество преоброзовать все маленькие русские буквы в верхний регистр | VITIY | Паскаль, Turbo Pascal, PascalABC.NET | 20 | 21.11.2008 19:16 |