|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.04.2008, 13:50 | #1 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 33
|
Длина слова
Помогите пожалуйста найти длину слова в тексте...
Мир не без добрых людей..
|
22.04.2008, 14:03 | #2 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
Если известно слово его можно поместить в строку функцией copy и узнать длину функцией length;
Карп преодолевший водопад становится драконом.
|
22.04.2008, 14:16 | #3 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 33
|
Слово берется произвольно из текста. Нужно вообще найти максимальное и минимальное по длине слово в тексте..
Мир не без добрых людей..
|
22.04.2008, 14:18 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну дык разбивай на массив слов и анализируй их длину.
I'm learning to live...
|
22.04.2008, 14:27 | #5 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 33
|
а можно текст проги?) а то чет мой не пашет((
Мир не без добрых людей..
|
22.04.2008, 14:46 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ты первый.
I'm learning to live...
|
22.04.2008, 15:03 | #7 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 33
|
Var mas: array [1..50] of integer;
i, x: integer; S, S2: string; begin S2 := ''; x := 1; S:=Memo1.Text; For i := 1 to Length(S) do begin S2 := S2 + S[i]; if S[i] = ' ' then begin mas[x] := Length(S2) - 1; S2 := ''; x := x + 1; End; if S[i] := '.' then begin mas[x] := Length(S2) - 1; End; if i := Length(S) then mas[x] := Length(S2); End; процентов на 120, уверен что написал фигню
Мир не без добрых людей..
|
22.04.2008, 15:18 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Я даж разбираться не буду, это для меня слишком сложно )
Вот моя разбивка на слова: Код:
I'm learning to live...
|
22.04.2008, 15:35 | #9 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 33
|
не понятен пункт 31,33, 40,41..Можешь обьяснить, пожалуйста?
А можно ж это сделать, используя только memo-поле, button(которая запускает само действие) и edit`ы?
Мир не без добрых людей..
Последний раз редактировалось Stilet; 22.04.2008 в 15:48. |
22.04.2008, 15:50 | #10 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ничего не понятно?
S - это класс которым удобно работать с массивом строк Задавая ему Delimiter я указываю как простую строку разбить на массив, т.е. массив образуется из подстрок разделенных этим Delimiter, тут пробелом. А дальше просто то что он в массив превратит, а точнее каждую строку Мемо, я вывожу в ListBox для наглядности.
I'm learning to live...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составление слова | Cawboy | Общие вопросы Delphi | 2 | 03.06.2008 13:21 |
Поиск 'Слова' | JakSon | Работа с сетью в Delphi | 1 | 20.04.2008 00:13 |
StringGrid - длина заголовка | Иринкаа | Компоненты Delphi | 10 | 04.12.2007 20:28 |
длина массива | skif93 | Microsoft Office Excel | 2 | 24.11.2007 11:45 |
Длина множества | ElenaA | Общие вопросы Delphi | 1 | 02.07.2007 12:10 |