Форум: "Начинающим";
Текущий архив: 2008.05.18;
Скачать: [xml.tar.bz2];
Вниз
буфер. ричедит. Найти похожие ветки
← →
Апостля (2008-04-16 16:50) [0]такая проблема. иногда выполняет процедуру, иногда просто оставляет ричэдит пустым. процедура:
procedure TForm1.searchtext(abc: string; size: integer; minus: integer);
var startpos,pos,endpos:integer;
begin
with richedit1 do begin
startpos:=0;
endpos:=length(richedit1.text);
SetFocus;
pos := FindText(abc,startPos,endPos,[stMatchCase]);
SelStart:=pos-minus;
SelLength := size;
cutToClipBoard;
end;
richedit1.Clear;
richedit1.PasteFromClipboard;
end;
и еще вопрос, раз уж профи тут:
почему по подобной процедуре не ищет русский текст? я так понимаю он в буфер копирует в другой кодировке чтоли.. реально ли это обойти?
← →
tesseract © (2008-04-16 16:55) [1]Отладчик в руки.
> SelStart:=pos-minus;
> SelLength := size;
Здесь скорее всего "иногда " и случаеться.
← →
Апостля (2008-04-16 17:21) [2]просто непонятно, что при одних и тех же входных переменных и при одинаковом тексте работает "через раз".. ладно, пасиб за ответ, попробуем с отладчиком потестить..
← →
Апостля (2008-04-16 17:22) [3]и насчет второго вопроса подскажите, кто знает в чем трабл..
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.05.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.052 c
