Главная страница
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.024 c
1-1080835148
Leon
2004-04-01 19:59
2004.04.18
Создание "процедурного типа" с параметром


1-1080637822
vintik
2004-03-30 13:10
2004.04.18
Отличие Sender от Self


3-1079468454
Zhenja
2004-03-16 23:20
2004.04.18
Index is out of date


1-1080812596
Viking
2004-04-01 13:43
2004.04.18
Отладка DLL в Delphi 5 под Win XP


4-1076302452
r9000
2004-02-09 07:54
2004.04.18
Управление другой программой