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

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

← →
Апостля   (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 вся ветка

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



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