Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];
Вниз
Глюк при 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
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c
