| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Разбитие строк на слова. Задача усложняется.
UDS © (2002-04-28 17:16:00)Теперь необходимо исходный текст в виде: Фамилия Имя Отчество, Фамилия Имя Отчество, Фамилия Имя Отчество.....и т.д. представить в виде списка, используя для вывода стандартный TMemo.
Но! Есть условие: строки выводятся в виде:
Вариант a) Имя Отчество Фамилия
Имя Отчество Фамилия
Имя Отчество Фамилия
и т.д.
Вариант b) Фамилия И.О.
Фамилия И.О.
Фамилия И.О.
и т.д.
PaRL (2002-05-02 16:36:00) [1]
> Если польза такая же как в вопросе о "Создании Файла" -
> тогда ее, т.е. эту пользу, можно сразу спустить в сортир.
...
Aleks1 (2002-05-02 02:54:00) [2]2 PaRL © (01.05.02 19:25)
Если польза такая же как в вопросе о "Создании Файла" - тогда ее, т.е. эту пользу, можно сразу спустить в сортир.
PaRL (2002-05-01 19:25:00) [3]Да, польза будет...
Anatoly Podgoretsky (2002-05-01 19:16:00) [4]Нет, пользы больше будет, тем более, что практические примеры он уже получил в другой ветке
PaRL (2002-05-01 19:01:00) [5]Жестокие :)
Anatoly Podgoretsky (2002-05-01 09:50:00) [6]Писать не стоит, надо что бы и он сам немного поработал
Aleks1 (2002-05-01 02:39:00) [7]Речь тут идет не о StringReplace. Похоже автор с ним уже разобрался. Теперь от нас требуется ответ "Как заменить некоторые слова в тексте на "ПерваяБуква." Плюс к тому - как поменять местами три слова (Имя, Отчество, Фамилия).
Ну что будем писать за него?
Anatoly Podgoretsky (2002-05-01 00:56:00) [8]Вообще то тебе не пододет, у текст не в кавычках
Надо использоват StringReplace
UDS (2002-05-01 00:39:00) [9]????????????????????????????????
UDS (2002-04-29 22:24:00) [10]>Anatoly Podgoretsky © (29.04.02 00:12)
>А может лучше CommaText специально для этого предназначено
Может и лучше. Но я самоучка и с большинством функций и даже компонентов не знаком. Вся надежда на "Мировой разум".
Нельзя ли поподробнее о приведенном вами CommaText?
Может есть небольшой примерчик работы этой функции?..
Заранее благодарен.
Anatoly Podgoretsky (2002-04-29 00:12:00) [11]А может лучше CommaText специально для этого предназначено
kull (2002-04-28 23:49:00) [12]Используй функцию WrapText.
PaRL (2002-04-28 19:24:00) [13]Принцип такой приблизительно:
var k, m, d : integer;
s : string;
begin
for k := 0 to Memo1.Lines.Count do
begin
s := Memo1.Lines[k];
for m := 0 to Length(s)-1 do
if s[m] = " " then
for d := 0 to m do
StringGrid1.Cells[1,1] := StringGrid1.Cells[1,1] + s[d];
end;
PS Понял, нет?
UDS (2002-04-28 19:03:00) [14]?????
| |
