VPF::Код из DRKB - Форум программистов

Canada

Дата 13.3.2009, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Нашел в DRKB код для работы с richedit, а он работает только с английским языком. Я так понимаю, что тут виной не код, а именно richedit.
Как и что изменить в настройках RichEdit чтобы с русским языком работал код по замене и нахождению в RichEdit? Заранее спасибо.

Poseidon

Дата 13.3.2009, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(Canada @ 13.3.2009, 14:42

)

Нашел в DRKB код для работы с richedit

Классно, только ты не по адресу обратился. Форум телепатов на соседнем сервере хостится.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Frees

Дата 13.3.2009, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(Canada @ 13.3.2009, 16:42

)

Нашел в DRKB код для работы с richedit

название статьи хотя бы скажи
и делфи какая?

--------------------

Кольцов Виктор Владимирович

Canada

Дата 13.3.2009, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Дак я думал, что код не важен. Т.к. все дело то в RichEdit. Делфи 7.

Код


function Search_And_Replace(RichEdit: TRichEdit; 
SearchText, ReplaceText: string): Boolean; 
var 
startpos, Position, endpos: integer; 
begin 
startpos := 0; 
with RichEdit do 
begin 
   endpos := Length(RichEdit.Text); 
   Lines.BeginUpdate; 
   while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do 
   begin 
     endpos   := Length(RichEdit.Text) - startpos; 
     Position := FindText(SearchText, startpos, endpos, [stMatchCase]); 
     Inc(startpos, Length(SearchText)); 
     SetFocus; 
     SelStart  := Position; 
     SelLength := Length(SearchText); 
     richedit.clearselection; 
     SelText := ReplaceText; 
   end; 
   Lines.EndUpdate; 
end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
Search_And_Replace(Richedit1, 'OldText', 'NewText'); 
end;

Canada

Дата 13.3.2009, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Никто не поможет?!!!!

Snowy

Дата 13.3.2009, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Информации недостаточно.
Код отлично работает с русским, если регистр совпадает и винда русская.

Canada

Дата 13.3.2009, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

А если винда не русская, а английская + MUI?
Что тогда сделать можно?

Snowy

Дата 13.3.2009, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Панель управления - Язык и региональные настройки - Дополнительно
В комбобоксе выбрать русский.
Ну а для полной гарантии нужно перейти на юникод - читай: юзай Delphi 2009

Canada

Дата 13.3.2009, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Заработало.. Спасибо огромное!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »