Главная страница
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.025 c
3-1079907333
garry79
2004-03-22 01:15
2004.04.18
Как активировать уникальные(внешние) ключи?


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


14-1080424867
Soft
2004-03-28 01:01
2004.04.18
Черная метка, чертова метка, мне...


6-1075295054
axx
2004-01-28 16:04
2004.04.18
Передача файла через TClient и TServer -Socket


1-1080889651
still_swamp
2004-04-02 11:07
2004.04.18
Что нужно для работы приложений D8?