Скачать: CL | DM;

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

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

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

---

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

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

---

← →
oleg_SYS ©   (2003-06-29 12:25) [2]

Ты не можешь присвоить значение определённому символу в строке. Это не простой массив. Будет умнее следущий код:

s := Memo1.Text;
s:=" " + Copy(s,2,Length(Memo1.Text));
Memo1.Text := s;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c