Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

строки [D7, WinXP]

Del_programmer © (2005-10-06 14:33:00)
надо в мемо1, в его тексте определить наибольшее слово.
Как это сделать? Желательно примеры из Билдера....:)
спасибо..

Del_programmer (2005-10-07 09:26:00) [1]

> SergProger ©

оно по ходу определяет наибол строку.....
а мне надо слово:)

SergProger (2005-10-07 01:01:00) [2]
Попробуй так:

If Memo1.Lines.Count <> 0 then begin
max:=0;
For i:=0 to Memo1.Lines.Count-1 do
If Length(Memo1.Lines[i]) > Length(Memo1.Lines[max]) then max:=i;
Form1.Caption:=Memo1.Lines[max];
end;

Antonn (2005-10-06 17:08:00) [3]
msguns © (06.10.05 16:45) [7]
можно и больше:)

msguns (2005-10-06 16:45:00) [4]
Делается тремя операторами в цикле с использованием Pos и LeftStr
При жестко заданном разделителе, еснно ;))

evvcom (2005-10-06 16:08:00) [5]
А что такое "наибольшее слово"?

Antonn (2005-10-06 15:31:00) [6]
Del_programmer © (06.10.05 15:01) [4]
сюда глянь, идеи посмотри:
http://an-files.narod.ru/_works/index.html

Del_programmer (2005-10-06 15:01:00) [7]
хоть кто-то...........кодик..........

Del_programmer (2005-10-06 14:43:00) [8]

> clickmaker ©

ну например..........

clickmaker (2005-10-06 14:36:00) [9]
для начала вынести в отдельный массив возможные разделители слов. Пробел, хотя бы.
Потом в цикле по строкам. Нашел разделители - скопировал слово - получил длину - запомнил. Если она больше чем максимальная (изначально 0) - max=len, и дальше чешешь...

Иванов__ (2005-10-06 14:36:00) [10]
Читать книги "Основы алгоритмизации и программирования"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »