- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
Function IsBigLet(Let: String): Boolean;
var r: bool;
begin
r:=false;
if pos('Й',Let)>0 then r:=true;
if pos('Ц',Let)>0 then r:=true;
if pos('У',Let)>0 then r:=true;
if pos('К',Let)>0 then r:=true;
if pos('Е',Let)>0 then r:=true;
if pos('Н',Let)>0 then r:=true;
if pos('Г',Let)>0 then r:=true;
if pos('Ш',Let)>0 then r:=true;
if pos('Щ',Let)>0 then r:=true;
if pos('З',Let)>0 then r:=true;
if pos('Х',Let)>0 then r:=true;
if pos('Ф',Let)>0 then r:=true;
if pos('Ы',Let)>0 then r:=true;
if pos('В',Let)>0 then r:=true;
if pos('А',Let)>0 then r:=true;
if pos('П',Let)>0 then r:=true;
if pos('Р',Let)>0 then r:=true;
if pos('О',Let)>0 then r:=true;
if pos('Л',Let)>0 then r:=true;
if pos('Д',Let)>0 then r:=true;
if pos('Ж',Let)>0 then r:=true;
if pos('Э',Let)>0 then r:=true;
if pos('Я',Let)>0 then r:=true;
if pos('Ч',Let)>0 then r:=true;
if pos('С',Let)>0 then r:=true;
if pos('М',Let)>0 then r:=true;
if pos('И',Let)>0 then r:=true;
if pos('Т',Let)>0 then r:=true;
if pos('Б',Let)>0 then r:=true;
if pos('Ю',Let)>0 then r:=true;
Result:=r;
end;
guest 09.04.2010 11:52 # +4.8
guest 09.04.2010 12:11 # +0.6
Snake2101 09.04.2010 12:17 # +3.4
guest 09.04.2010 13:11 # +2.6
Temnenkov 09.04.2010 13:12 # 0
guest 09.04.2010 14:30 # 0
guest 09.04.2010 15:42 # 0
guest 09.04.2010 14:30 # 0
guest 09.04.2010 16:14 # 0
Temnenkov 09.04.2010 17:07 # +1.6
guest 09.04.2010 20:41 # +0.4
guest 09.04.2010 20:47 # +1
ISith 10.04.2010 01:45 # +1.2
+1 те =)
guest 10.04.2010 02:40 # +0.2
Temnenkov 10.04.2010 09:58 # 0
guest 11.04.2010 18:18 # −2
Temnenkov 11.04.2010 21:22 # 0
Впрочем, и с "не доставляют", похоже, тоже ошибочка - есть комментарии людей, которым это доставило, да и рейтинг +12.5 - ничего так.
guest 12.04.2010 19:37 # 0
bugmenot 01.06.2010 21:21 # 0
guest 14.04.2010 23:21 # −1
adli__82 17.08.2010 11:21 # 0
и чел ни else ни case повидимому не знает, вариант с масивом ему не по уму....
absolut 17.08.2010 11:24 # 0
Советую посмотреть на клавиатуру
adli__82 17.08.2010 11:39 # −1