сортировка букв - англ или русские

← →
chips (2002-11-17 11:43) [0]

Уважаемые мастера,подскажите может есть функция какая в DELPHI
позволяющая "автоматом" выбрать из строки типа string ("все allriht") , все русские или английские буквы ? или все "ручками" придется , по алфавиту методом сравнения ?

← →
PaRL © (2002-11-17 12:15) [1]

А что такого? Можно и алфавитом.

const Rus : set of char = ["А".."я"]; Eng : set of char = ["a".."z","A".."Z"] var a : integer; s : string; RusS, EngS : TStringList; begin RusS := TStringList.Create; EngS := TStringList.Create; s := Memo1.Lines.Strings[0]; //твоя строка for a := 0 to length(s) do begin if s[a] in Rus then RusS.Add(s[a]); if s[a] in Eng then EngS.Add(s[a]); end; end;

Вот и всё, а ты боялся.
Кстати, "ё" надо отдельно проверять. Можно дупликаты в СтрингЛисте убирать.

← →
chips (2002-11-19 10:19) [2]

Большие пасибушки , пошел буквы э,ж,ъ,х,ю,б,Ё ковырять ... :-)))

если известно, что там только буквы то достаточно IsRus:=(byte(s[i])and $80)=$80 (ANSII #0..#127,OEM #128..#255)

сортировка букв - англ или русские Найти похожие ветки