Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Բարի օր Գտնել նմանատիպ մասնաճյուղեր


Dmitry1   (2001-12-14 16:53) [0]

как определить есть ли в стоке символы кирилицей?
можно немного преобразовать вопрос:
как определить что в строке есть только: латинские буквы и служебные знаки



Mick   (2001-12-14 16:56) [1]

Փորձե՞լ եք համեմատել այս տողի նիշերը yrիրիլյան այբուբենի նիշերի հետ:



Dmitry1   (2001-12-14 17:01) [2]

դա, իհարկե, կարելի է անել, բայց ես վախենում եմ, որ այն երկար ժամանակ կաշխատի: Ես ունեմ ավելի քան 2000 տող, որոնք պետք է մշակվեն: : ((



Mick   (2001-12-14 17:05) [3]

Процессор 8086? Так и ему это вполне по силам.



Dmitry1   (2001-12-14 17:11) [4]

Բայց ի՞նչ հատուկ գործառույթ գոյություն չունի:



Mick   (2001-12-14 17:15) [5]

Есть такая функция!
Фамилия у нее If



Dmitry1   (2001-12-14 19:42) [6]

я же про API функции спрашивал. :(( А в твоем варианте решения задачи лучше не if применять, а դեպք так как тип char- перечисляемый.
а Api функция мне нужна для того чтобы правильно работать с кодировками.



Tonie   (2001-12-14 19:46) [7]

տողը կոդավորման որևէ նշան չունի, այնպես որ, իրոք, պարզապես անհրաժեշտ է անցնել գծի երկայնքով և ստուգել լատինական այբուբենին պատկանելու նիշերի կոդը, ինչպիսիք են ՝ «A» .. «Z», «a» .. «z»: Արդյունքը ՝ = inLatin



Mick   (2001-12-14 19:48) [8]

И чем например такое:
if MyString[i] in ["A".."я"] then ...
хуже чем case ?

И где именно был вопрос по API функциям, я что-то не заметил сразу?



Вадим   (2001-12-14 19:53) [9]

case? Приплыли, всю ночь гребли, а лодку отвязать забыли...

function IsRus(s: string): boolean;
էր
i: integer;
const
RusChars = ["А".."Я", "а".."я"];
սկսել
Արդյունք `= կեղծ;
համար i: = 1- ից մինչև երկարություն (ներ) ը
if s[i] in RusChars then
սկսել
Արդյունք `= True;
Break;
վերջը.



Mick   (2001-12-14 19:55) [10]

Лучше так :)

for i := 1 to Length(s) do
begin
Result:=s[i] in RusChars;
if Result then Break;
end;



Mbo   (2001-12-15 07:53) [11]

>как определить что в строке есть только: латинские буквы и служебные знаки
onlylat:=true;
for i:=1 to length(s) do if ord(s[i])>127 then begin
onlylat:=false;
կոտրել.
վերջը.



Anatoly Podgoretsky   (2001-12-15 12:07) [12]

Лучше все таки not (s[i] in LatinAndSpecialChars) иначе отсекаются некоторые знаки, например денежные символы и некоторое другое
Так будет более гибко



Dmitry1   (2001-12-17 15:08) [13]

Спасибо всем кто окликнулся.



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.58 ՄԲ
Ժամանակը `0.028 գ
14-22365
Ketmar
2001-10-16 06:22
2002.01.08
Այստեղ հետաքրքիր է. Սիմֆերոպոլից ես մենակ եմ այստեղ:


1-22171
Dim
2001-12-20 14:19
2002.01.08
Հնարավոր է հրաշք:


3-21933
pov
2001-11-26 12:19
2002.01.08
Ասա BDE գրանցելու ամենահեշտ ձևը


1-22144
շորնիկ
2001-12-20 11:36
2002.01.08
Վարպետներ !!!! Խնդրում ենք օգնել խնդրին:


4-22507
Սլավիկ
2001-11-06 17:55
2002.01.08
Համակարգային սրբապատկերներ





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский