Опять строки

[huck_mid]

Есть строка слов (одна строка), эта строка вводится в memo, так вот, нужно исключить из этой строки слова в которых одновременно присутствуют символы русского и латинского алфавита. Заранее спасибо.

[Квэнди]

создаешь два массива букв.
Идешь по строке, разделяя её на слова по разделителям
потом проверяешь и все.

[Сильванович Михаил]

Подсказка:
Рус-алф: 192-255 (если для ДОСа, то 128-175), где a: Char
Лат-алф: 65-90 + 97-122, это ord(a), где a: Char

З.Ы. Для всего остального у тебя есть, надеюсь прямые, руки! =)

[huck_mid]

Зачем так глубоко копать ведь можно как нить
str:=memo1.text.
ch:=length(str);
i:=0;
while i<=ch do begin
if str[i]=' ' then begin
for j:=0 to i-1 do begin
if str[j] in ['A'..'Z','a'..'z'] then flag:=true;
if flag then begin
if str[j-1] in ['А'..'Я','а'..'я'] then {если это лабуда не смейтесь}
Ну вот в таком напрвлении, ведь наверняка можно? У меня не получается до конца реализовать это. Выручайте.

[Alex21]

Сообщение от huck_mid

for j:=0 to i-1 do begin

Ввести неще одну переменную K, и j брать не от нуль, а от К

for j:=K to i-1 do begin
..{проверяешь условие}
{и вот оно}
Delete(str,k,i-1);{удаление}

[Jeni]

Кстати, выделять отдельные слова можно и другим способом (особенно если слов предполагается много и потом их нужно обрабатывать). Это не только к этой задаче, а вообще.

1. Заменить в строке все пробелы на запятую (заменить можно любым способом или просто хранить в таком виде)
for I := 1 to <длина_строки> do
if S[I] = ' ' then S[I] := ','

а потом передать строку в список
SL.CommaText := S;

Здесь SL переменная типа TStringList, можно вместо SL использовать свойства Memo.Lines или ListBox.Items и др.

В результате в каждом элементе списка будет отдельное слово. А дальше обрабатывать список слов как хочешь.

[pu4koff]

ну тогда уж писать:
for I := 1 to <длина_строки> do
if (S[i] < 'A') then S[i] := #13
т.е. все символы, до латинского алфавита меняем на энтер (цифры правда тоже)

[Jeni]

А какой смысл, что дальше делать с такой строкой?

[pu4koff]

Сообщение от Jeni

А какой смысл, что дальше делать с такой строкой?

ну если я не ошибаюсь, то если в свойство Text записать это, то одна строка = 1 слово, т.к. там будет символ энтера. Ну или можно так же на запятую твою менять, но просто вдруг слова отделены точкой или скобкой какой...

[Jeni]

Просто не так выразился. Я имел ввиду, что строка в таком виде будет "побитая", а вдруг там цифры и другие "убитые" символы важны?
А про то, чтоб записать в Text и получить список слов я конечно сразу понял. Собственно, вариантов разных уже достаточно.