| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
буфер. ричедит.
Апостля © (2008-04-16 16:50:00)такая проблема. иногда выполняет процедуру, иногда просто оставляет ричэдит пустым. процедура:
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;
и еще вопрос, раз уж профи тут:
почему по подобной процедуре не ищет русский текст? я так понимаю он в буфер копирует в другой кодировке чтоли.. реально ли это обойти?
Апостля (2008-04-16 17:22:00) [1]и насчет второго вопроса подскажите, кто знает в чем трабл..
Апостля (2008-04-16 17:21:00) [2]просто непонятно, что при одних и тех же входных переменных и при одинаковом тексте работает "через раз".. ладно, пасиб за ответ, попробуем с отладчиком потестить..
tesseract (2008-04-16 16:55:00) [3]Отладчик в руки.
> SelStart:=pos-minus;
> SelLength := size;
Здесь скорее всего "иногда " и случаеться.
| |
