Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c