Глюк при Length(Form1.RichEdit1.Lines.Text)

← →
hooky-mars (2002-05-14 21:56) [0]

Saluer!
При таком расположении дел:
...
Form1.RichEdit1.Lines.Text:="<b a>";
e:=Length(Length(Form1.RichEdit1.Lines.Text));
showMessage(IntToStr(e));

e как ни странное равно 7, а символов 5! И так при любом кол-ве символов. Откудо нивозмись берутся лишние 3 символа!
Что ето за глюк, и как бороться с этим? (мне приходиться отнимить эти 3 лишних символа, но это не надёжно)

← →
Anatoly Podgoretsky (2002-05-14 22:10) [1]

7-5=2
Случайно не crlf, хотя не должно

← →
Doom (2002-05-14 22:18) [2]

Length(Length ----------??????????
Text :string ???

← →
Anatoly Podgoretsky (2002-05-14 22:37) [3]

Ух ты, даже не заметил, ну ты телепат однако

← →
hooky-mars (2002-05-15 17:37) [4]

> Anatoly Podgoretsky

Да я сам токо заметил

← →
hooky-mars (2002-05-15 17:38) [5]

Но какже тогды компилирование происходило?

← →
Игорь Шевченко (2002-05-15 17:40) [6]

Режим compiler errors был отключен :-)

← →
hooky-mars (2002-05-15 17:42) [7]

> Игорь Шевченко

А это может быть без ведома того кто пишет код?

← →
Игорь Шевченко (2002-05-15 17:45) [8]

hooky-mars © (15.05.02 17:42)

А оно и не компилируется :-)
на D5, по крайней мере...

← →
hooky-mars (2002-05-15 17:48) [9]

> Игорь Шевченко

На D6 молча. Этот код находится в потоке( но этоже никак невлияет на кмпиляцию?)

← →
Игорь Шевченко (2002-05-15 17:50) [10]

Все update packs установлены на D6 ?

← →
hooky-mars (2002-05-15 18:14) [11]

До меня только дошло проверить код. Я неправильно написал надо так
Length(Form1.RichEdit1.Lines.Text));
И при этом раскладе 7 символов!!!!!! при Form1.RichEdit1.Lines.Text:="<b a>";
Так откуда лишние символы?

← →
MBo (2002-05-15 18:19) [12]

перевод строки #13#10

← →
hooky-mars (2002-05-16 17:46) [13]

> MBo
Поясните пожалуйста

← →
MBo (2002-05-16 18:12) [14]

в текстовых файлах dos и windows и соответственно в содержимом окон текстовых редакторов перевод строки обозначается двумя символами под номерами 13 и 10 (CR и LF).

попробуй сделать
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
label1.caption:=inttostr(length(richedit1.lines.text));
end;

этот перевод строки может быть даже в пустом визуально редакторе - и его можно стереть backspace или del

Глюк при Length(Form1.RichEdit1.Lines.Text) Найти похожие ветки