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

Разбитие строк на слова. Задача усложняется.   Найти похожие ветки 

← →
UDS ©   (2002-04-28 17:16) [0]

Теперь необходимо исходный текст в виде: Фамилия Имя Отчество, Фамилия Имя Отчество, Фамилия Имя Отчество.....и т.д. представить в виде списка, используя для вывода стандартный TMemo.
Но! Есть условие: строки выводятся в виде:

Вариант a) Имя Отчество Фамилия
Имя Отчество Фамилия
Имя Отчество Фамилия
и т.д.

Вариант b) Фамилия И.О.
Фамилия И.О.
Фамилия И.О.
и т.д.

---

← →
UDS ©   (2002-04-28 19:03) [1]

?????

---

← →
PaRL ©   (2002-04-28 19:24) [2]

Принцип такой приблизительно:

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 Понял, нет?

---

← →
kull ©   (2002-04-28 23:49) [3]

Используй функцию WrapText.

---

← →
Anatoly Podgoretsky ©   (2002-04-29 00:12) [4]

А может лучше CommaText специально для этого предназначено

---

← →
UDS ©   (2002-04-29 22:24) [5]

>Anatoly Podgoretsky © (29.04.02 00:12)
>А может лучше CommaText специально для этого предназначено

Может и лучше. Но я самоучка и с большинством функций и даже компонентов не знаком. Вся надежда на "Мировой разум".
Нельзя ли поподробнее о приведенном вами CommaText?
Может есть небольшой примерчик работы этой функции?..
Заранее благодарен.

---

← →
UDS ©   (2002-05-01 00:39) [6]

????????????????????????????????

---

← →
Anatoly Podgoretsky ©   (2002-05-01 00:56) [7]

Вообще то тебе не пододет, у текст не в кавычках
Надо использоват StringReplace

---

← →
Aleks1   (2002-05-01 02:39) [8]

Речь тут идет не о StringReplace. Похоже автор с ним уже разобрался. Теперь от нас требуется ответ "Как заменить некоторые слова в тексте на "ПерваяБуква." Плюс к тому - как поменять местами три слова (Имя, Отчество, Фамилия).
Ну что будем писать за него?

---

← →
Anatoly Podgoretsky ©   (2002-05-01 09:50) [9]

Писать не стоит, надо что бы и он сам немного поработал

---

← →
PaRL ©   (2002-05-01 19:01) [10]

Жестокие :)

---

← →
Anatoly Podgoretsky ©   (2002-05-01 19:16) [11]

Нет, пользы больше будет, тем более, что практические примеры он уже получил в другой ветке

---

← →
PaRL ©   (2002-05-01 19:25) [12]

Да, польза будет...

---

← →
Aleks1   (2002-05-02 02:54) [13]

2 PaRL © (01.05.02 19:25)
Если польза такая же как в вопросе о "Создании Файла" - тогда ее, т.е. эту пользу, можно сразу спустить в сортир.

---

← →
PaRL ©   (2002-05-02 16:36) [14]

> Если польза такая же как в вопросе о "Создании Файла" -
> тогда ее, т.е. эту пользу, можно сразу спустить в сортир.

...

---

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

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



Память: 0.48 MB
Время: 0.008 c