RichEdit отслеживаем символ стоящий после курсора (Delphi 7)

[munthrekosh]

Из RichEdit нужно брать символ стоящий после курсора и возвращать код этого символа с помощью ord в StatusBar.Panels[4]...Сижу уже над этим последним рывком 2 часа. Прочитал и поискал я достаточно, но так до меня и не дошло как это можно осуществить. Помогите

[Hacker19_90]

что то типа

Edit1.Text := StrToInt(ord(copy(RE1.Lines.Strings[RE1.CaretPos.Y], RE1.CaretPos.X, 1)))

Где RE1 это ричедит сам!

[Аватар]

RichEdit.SelStart и будет относительная позиция курсора в тексте, если только нет выделения

С выделением тоже работает

В общем да, только это будет позиция начала выделенного участка

[Прик]

Можно слегка попроще:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  StatusBar1.Panels[4].Text :=
    IntToStr(Ord(RichEdit1.Text[RichEdit1.SelStart+1]));
end;

2 Аватар. С выделением тоже работает. Ведь позиция курсора не меняется при выделении текста.

[munthrekosh]

Не робит ни то ни другое

[munthrekosh]

есть ли аналог copy который вырезал бы чисто один символ? а то обычный copy возвращает string, а ord работает только с char

[Прик]

У меня робит.
Функция Copy может "вырезать" любое количество символов, в т.ч. и одиночный.
См. справку по функции.

[munthrekosh]

Сообщение от Прик

У меня робит.
Функция Copy может "вырезать" любое количество символов, в т.ч. и одиночный.
См. справку по функции.

Но возвращает то он string. А нужен char

Кстати, прик, на твой код выскакивает следующие

[Аватар]

StatusBar1.Panels[4].Text :=RichEdit1.Text[RichEdit1.SelStart+1];
ИЛИ
StatusBar1.Panels[4].Text :=Copy(RichEdit1.Text,RichEdit1.SelStart+1,1);

[Прик]

Char(RichEdit1.Text[RichEdit1.SelStart+1]);