Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Работа с текстом.   Найти похожие ветки 

 
Windeus ©   (2002-04-30 07:38) [0]

Здравствуйте,
У меня несколько вопросов по работе с текстом, надеюсь на подробные ответы..
Вопросы я думаю не сложные, но все же прошу ответить, а не упрекать меня в том, что они десятки раз обсуждались и мне надо искать на них ответы в архивах. Тем более, что поиск здесь все равно сейчас не работает.
1. Как осуществить индикотор Insert"a? Т.е. чем отлавливать в статус бар событие изменениия вставка/замена текста?
2. Где можно почитать о работе с Tregistry? Хотя бы основное - чтение/запись ключей.
3. Как можно определить в открытом в RichEdit документе кодировку? Как можно перекодировать текст из одной кодировки в другую - например из Win в KOI или из DOS в Win? Для начала я думаю необходимо объявить массивы символов.. но что дальше? Как организовать процедуры преобразования? Тут же вопрос, как мне кажется, аналогичного решения: трансформация текста из транслита и обратно. Как?
4. Также хотел бы узнать о способах подсветки нужных комбинаций символов в RichEdit.
Очень прошу ответить по существу и доступно.


 
Alx2 ©   (2002-04-30 08:07) [1]

1. Как осуществить индикотор Insert"a? Т.е. чем отлавливать в статус бар событие изменениия вставка/замена текста?
Сделать булево свойство объекта, указывающее режим вставки/замены. При его изменении соответственно менять текст в StatusBar.


 
Song ©   (2002-04-30 08:39) [2]

Узнать состояние Insert как и любой другой (NumLock, CapsLock, ScrollLock) нетрудно:
Ins:=LowOrderBits(GetKeyState(VK_Insert));


 
fnatali ©   (2002-04-30 09:49) [3]

Перекодировать текст AnsiToOEm и OEMToAnsi


 
HDD ©   (2002-04-30 15:41) [4]

2) Кодировка из доса в виндовс и обратно

procedure TForm1.DosClick(Sender: TObject);
var S: String;
begin
S := Richedit1.Lines.Text;
CharToOem(PChar(S), PChar(S));
Richedit1.Lines.Text:= S;
end;



procedure TForm1.WinClick(Sender: TObject);
var S: String;
begin
S := Richedit1.Lines.Text;
OemToChar(PChar(S), PChar(S));
Richedit1.Lines.Text:= S;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-49980
Riko
2002-04-30 11:19
2002.05.16
SaveDialog


7-50150
Yevhen Bilevych
2001-11-19 13:53
2002.05.16
Декомпилятор для HTML help?


6-50074
серёга
2002-03-06 00:57
2002.05.16
Привет всем. Скажите как определить IP-адреса компьтеров


14-50102
lipskiy
2002-04-06 00:21
2002.05.16
Кто пользовался программой Business Market Viewer?


1-50039
Dimedrol
2002-04-30 13:43
2002.05.16
Ошибка при выходе...