Работа с текстом.

← →
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

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;

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