| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверка буквы на строчность [D7, WinXP]

Страницы:   < 1 2 >

seregka ©   (2005-05-21 22:36:00) 

Как проверить является ли первая буква в слове (как первую букву определять я знаю) строчной (заглавной).

---

Игорь Шевченко   (2005-05-23 12:47:00) [1]

if IsCharUpper(....) then

---

Просто Джо   (2005-05-22 03:28:00) [2]

[30] KilkennyCat ©   (22.05.05 03:18)
> последнее слово в скобках - заглавные

имеем 2 варианта прочтения
(1) Строчные - это заглавные;
(2) Строчные/заглавные.

Авторский пост [31] подтверждает мое предположение о подразумеваемом варианте (1).

---
П.С.
Мелочные придирки и подозрительность -- в моем характере, впрочем это соответствует и стилистике форума. Что делать.

---

default   (2005-05-22 03:27:00) [3]

seregka   (22.05.05 03:21) [31]
" ну описался- ПРОПИСНЫЕ, а не строчные."
надеюсь, памперс спас?:)
P.S. шучу

---

seregka   (2005-05-22 03:21:00) [4]

ну описался - ПРОПИСНЫЕ, а не строчные.

---

KilkennyCat   (2005-05-22 03:18:00) [5]

> Просто Джо ©   (22.05.05 03:15)


последнее слово в скобках - заглавные. так что все путем.

---

Просто Джо   (2005-05-22 03:15:00) [6]

>  [28] default ©   (22.05.05 03:12)
> Просто Джо ©   (22.05.05 03:05) [27]
> а разница?


Возможно это придирка, но название ветки не соответствует ответам в ней. А так ничего, даже весело, особенно реплики seregk'и :)

---

default   (2005-05-22 03:12:00) [7]

Просто Джо ©   (22.05.05 03:05) [27]
а разница?

---

Просто Джо   (2005-05-22 03:05:00) [8]

> Проверка буквы на строчность


Стоп! Приехали.
Человеку, оказывается, нужна строчная, а незаглавная.

---

KilkennyCat   (2005-05-22 03:00:00) [9]

> [25] default ©   (22.05.05 02:56)


угу. а завтра он об этом забудет, или изменит ТЗ, или еще-что-нибудь-что-не-ждали-но-вероятность-прихода-высокая случится. И начнет здесь спрашивать "Почему у меня там-то там-то не работает, хотя вчера все работало".

________________________________________________

---

default   (2005-05-22 02:56:00) [10]

KilkennyCat ©   (22.05.05 02:50) [24]
[6]

---

KilkennyCat   (2005-05-22 02:50:00) [11]

> [23] default ©   (22.05.05 02:46)


если.

---

default   (2005-05-22 02:46:00) [12]

если брать только русские буквы(исключая обособленное "ё")вариант [7] на треть времени быстрее чем со множеством

---

Anatoly Podgoretsky   (2005-05-22 00:07:00) [13]

UpperCase returns a copy of the string S, with the same text but with all 7-bit ASCII characters between 'a' and 'z' converted to uppercase. To convert 8-bit international characters, use AnsiUpperCase instead.

---

Просто Джо   (2005-05-22 00:04:00) [14]

>
> [19] seregka   (22.05.05 00:00)
> Просто Джо
> Оба дали "А".
> Или Вы хотите сказать, что uppercase только с латиницей
> нормально работает?


Да. И в Delphi6 и в Delph2005. Подозреваю, что и в 7-ке тоже.

---

Anatoly Podgoretsky   (2005-05-22 00:03:00) [15]

KilkennyCat ©   (21.05.05 23:58) [18]
Ой ну зачем нам разные варианты придумывать, я же сказал их много, есть смысл использовать классические, ясные варианты.

---

seregka   (2005-05-22 00:00:00) [16]

Просто Джо
Оба дали "А".
Или Вы хотите сказать, что uppercase только с латиницей нормально работает?

---

KilkennyCat   (2005-05-21 23:58:00) [17]

if pos('A', 'QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ') > 0 then

---

Ученик   (2005-05-21 23:58:00) [18]

>seregka   (21.05.05 23:53) [15]


{ sysutils.pas }

function UpperCase(const S: string): string;
var
 Ch: Char;
 L: Integer;
 Source, Dest: PChar;
begin
 L := Length(S);
 SetLength(Result, L);
 Source := Pointer(S);
 Dest := Pointer(Result);
 while L <> 0 do
 begin
   Ch := Source^;
   if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
   Dest^ := Ch;
   Inc(Source);
   Inc(Dest);
   Dec(L);
 end;
end;



---

Просто Джо   (2005-05-21 23:55:00) [19]

>  [15] seregka   (21.05.05 23:53)
> Anatoly Podgoretsky
> А чем UpperCase не устраивает?


Подгорецкого устроит, тебя, боюсь, нет.

Запусти
 ShowMessage (UpperCase('à'));
а потом
 ShowMessage (ANSIUpperCase('à'));

---

seregka   (2005-05-21 23:53:00) [20]

Anatoly Podgoretsky
А чем UpperCase не устраивает?

---

Страницы:   < 1 2 >

Наверх