Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

строки   Найти похожие ветки 

 
Del_programmer ©   (2005-10-06 14:33) [0]

надо в мемо1, в его тексте определить наибольшее слово.
Как это сделать? Желательно примеры из Билдера....:)
спасибо..


 
clickmaker ©   (2005-10-06 14:36) [1]

для начала вынести в отдельный массив возможные разделители слов. Пробел, хотя бы.
Потом в цикле по строкам. Нашел разделители - скопировал слово - получил длину - запомнил. Если она больше чем максимальная (изначально 0) - max=len, и дальше чешешь...


 
Иванов__   (2005-10-06 14:36) [2]

Читать книги "Основы алгоритмизации и программирования"


 
Del_programmer ©   (2005-10-06 14:43) [3]


> clickmaker ©

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


 
Del_programmer ©   (2005-10-06 15:01) [4]

хоть кто-то...........кодик..........


 
Antonn ©   (2005-10-06 15:31) [5]

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


 
evvcom ©   (2005-10-06 16:08) [6]

А что такое "наибольшее слово"?


 
msguns ©   (2005-10-06 16:45) [7]

Делается тремя операторами в цикле с использованием Pos и LeftStr
При жестко заданном разделителе, еснно ;))


 
Antonn ©   (2005-10-06 17:08) [8]

msguns ©   (06.10.05 16:45) [7]
можно и больше:)


 
SergProger ©   (2005-10-07 01:01) [9]

Попробуй так:

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;


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


> SergProger ©  

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



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

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.045 c
5-1107459735
Сергей Д.
2005-02-03 22:42
2005.10.30
TPanel с вертикальным текстом


1-1128521993
Aleksey
2005-10-05 18:19
2005.10.30
Image.Canvas и LineTo


4-1125042482
ganda
2005-08-26 11:48
2005.10.30
Подключится к интернету зная только имя соединения


14-1128445974
Kerk
2005-10-04 21:12
2005.10.30
провокация, которая может питать экстремистские настроения


3-1127061927
suharew
2005-09-18 20:45
2005.10.30
Транзакции в Interbase