Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Доброго часу доби Знайти схожі гілки


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

як визначити чи є в стоці символи кореляцій?
можна трохи перетворити питання:
як визначити що в рядку є тільки: латинські букви і службові знаки



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

Порівнювати символи цього рядка з символами кирилиці не пробував?



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 ": Result: = 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;
сопзЬ
RusChars = [ "Рђ" .. "РЇ", "Р °" .. "СЏ"];
починати
Result: = False;
for i: = 1 to Length (s) do
if s [i] in RusChars then
починати
Result: = True;
Break;
end;



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;
break;
end;



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];

наверх









Пам'ять: 0.59 MB
Час: 0.063 c
3-21982
Dush
2001-12-06 12:37
2002.01.08
Підключення клієнта до бази


1-22206
T2
2001-12-16 07:11
2002.01.08
Align field


14-22397
мертвий
2001-11-10 18:49
2002.01.08
У кого-небудь є GIF або JPG контурної карти світу?


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


7-22439
PONTIY
2001-09-27 09:18
2002.01.08
Відображення вже створеного (Create) компонента на іншій формі





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська