Текущий архив: 2002.05.16;
Скачать: 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 вся ветка
Текущий архив: 2002.05.16;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.012 c
