буфер. ричедит.

← →
Апостля (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]

и насчет второго вопроса подскажите, кто знает в чем трабл..

буфер. ричедит. Найти похожие ветки