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
это что такое? где искать?

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

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

Искать в F1

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