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

Вниз

TMemo - как разбить на слова.   Найти похожие ветки 

 
КомофОнСамый   (2004-03-30 16:37) [0]

как бы сделать чтоб после редактирования поля TMemo запускалась моя процедурка (нужен аналог onBluer как в JavaScript).

А там хочу разбивать на слова следующим алгоритмом(а может быть можно поставить какое-нить свойство можно и оно само разобьется):

procedure StrSplitByWord(aStr:string; var A:TStringList; aLen:Integer);
var
 stt:string;
 i,
 spacePrev,     //позиция предыдущего пробела
 copyFrom,      //позиция откудова копировать
 k              //номер массива результирующей строки
 :Word;
begin
 if(A=nil) then A:=TStringList.Create;
 A.Clear;
 stt:=aStr+" ";
 copyFrom:=1;
 spacePrev:=1;
 i:=1; k:=1;
 while(i<=Length(stt))do
 begin
   if(stt[i]=" ")then//нашли пробел
   begin
     if(i-copyFrom>aLen)then//значит нужно выделить строку в массив
     begin
       A[k]:=Copy(stt, copyFrom, spacePrev-copyFrom);//не паримся откель до кель - просто обрезаем Trim-ом
       Inc(k);
       copyFrom:=spacePrev+1;
     end;
     spacePrev:=i;
   end;
   Inc(i);
 end;
 A[k]:=Copy(stt, copyFrom, spacePrev-copyFrom);
end;


 
Smithson ©   (2004-03-30 16:59) [1]

OnChange ? OnExit?


 
КомофОнСамый   (2004-03-30 17:06) [2]

о то что нужно.

а никак незя разбивать по словам внутри Lines?


 
VMcL ©   (2004-03-30 17:17) [3]

TMemo.WordWrap
?

SysUtils.WrapText
?


 
MetalFan ©   (2004-03-30 17:17) [4]

delimiter
delimitedText
?


 
КомофОнСамый   (2004-03-30 19:13) [5]

SysUtils.WrapText - то что нужно.

а для TMemo.WordWrap - как задать максимальную длину строк?

2MetalFan©:
>delimiter
>delimitedText
это что такое? где искать?


 
Игорь Шевченко ©   (2004-03-30 19:20) [6]

КомофОнСамый


> это что такое? где искать?


Искать в F1



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

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

Наверх




Память: 0.48 MB
Время: 0.023 c
4-1075999379
Arsen
2004-02-05 19:42
2004.04.18
Окончание загрузки программы


14-1079808990
Sergey Masloff
2004-03-20 21:56
2004.04.18
Чудеса женской интуиции


7-1076840953
Gorlum
2004-02-15 13:29
2004.04.18
Все принтеры


14-1080097484
Думкин
2004-03-24 06:04
2004.04.18
С днем рождения! 24 марта.


7-1076865401
Тупикин Илья
2004-02-15 20:16
2004.04.18
Работа с реестром