Текущий архив: 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.45 MB
Время: 0.035 c
