Главная страница
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.039 c
1-1080815133
snake1977
2004-04-01 14:25
2004.04.18
TStringGrid


4-1076532588
Runner
2004-02-11 23:49
2004.04.18
Отловить Enter


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


1-1080879203
Pavelius
2004-04-02 08:13
2004.04.18
Установка значения в RT


3-1080125220
JohnS
2004-03-24 13:47
2004.04.18
Paradox and поле с именем DATE