Как отчистить текст от неруских букв?

← →
Ahmad K © (2003-06-29 11:49) [0]

Здравствуйте ув. Мастера!
Буду краток. Дан текст:
tggh апельсин yyt=--\==\- лимон 094=-\= мандарин
этот текст надо преобразовать в такой:
апельсин лимон мандарин
т.е. там между русскими словами всякие символы, надо оттуда удалить все не русское, а русские слова в столбец.
У кого какие варианты?
Да и еще, Memo1.Text[1]:=" "; сообщает об ошибке, можно узнать как правильно указать проге заменить определенный символ в это Memo?
Заранее благодарен!

← →
Fenik © (2003-06-29 11:58) [1]

В цикле:
Смотрим букву. Ссли она русская, то начинаем запись слова. Как только доходим до нерусской добовляем слово в список. И тд.

Ты не можешь присвоить значение определённому символу в строке. Это не простой массив. Будет умнее следущий код:
s := Memo1.Text; s:=" " + Copy(s,2,Length(Memo1.Text)); Memo1.Text := s;

Как отчистить текст от неруских букв? Найти похожие ветки