Лишние символы вводимого текста

[victorshkoda]

Доброго времени суток.
Столкнулся с проблемой. Ввожу в Memo текст, к примеру "привет", а на выходе получаю если string, то "привет" а длина почему-то 8 символов.

procedure TForm1.Button1Click(Sender: TObject);
var i,: integer;
var s, q: string;
begin
  s:=Memo1.Text;
  Edit1.Text:=s;
  i:=length(s);
  //q:='fff';
  q:=inttostr (i);
  Edit2.Text:=q;
end;

Сначала решил, что ВОМ вылазит, но там 3 символа.
Может кто подскажет, в чем проблема?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

Ввожу в Memo текст, к примеру "привет"

<Enter> жмете? (#10+#13 как раз 2 символа)

[victorshkoda]

Нет, сразу на кнопку.

[Serge_Bliznykov]

Mad_Cat говорит о том, что у Вас в Memo в конце строки есть переход на новую строчку.
попробуйте их удалить перед обработкой:

procedure TForm1.Button1Click(Sender: TObject);
var i,: integer;
var s, q: string;
begin
  s:=Memo1.Text;
  while (Length(s)>0) and (s[Length(s)] in [#10,#13]) do Delete(s, Length(s),1); 
  Edit1.Text:=s;
....

или, если интересует только ОДНА строка из мемо, то её и берите:

  s := '';
  if Memo1.Lines.Count>0 then
     s:=Memo1.Lines[0];  // взять 1-ю строчку из Memo1

[victorshkoda]

Спасибо, помогло.

[Mad_Cat]

позксперементировал)
1)ввод "Привет"---> <Enter> --> кнопка==> Length(Memo.text) =8
2)ввод "Привет" --> кнопка==> Length(Memo.text) =6
вывод: все-таки это #10#13

[victorshkoda]

Выходит у меня в самой программе баг?

[chertovich]

Используйте

Edit1.Text := Trim(Memo1.Text)

[3D Hunter]

Функция Trim режет пробелы, а не символы возврата и перевода каретки.

[chertovich]

Сообщение от 3D Hunter

Функция Trim режет пробелы, а не символы возврата и перевода каретки.

Trim, удаляет с начала и конца строки непечатуемые символы. Прежде чем что-то писать, проверяй.
http://www.delphibasics.ru/Trim.php

Функция Trim удаляет пробельные и управляющие символы (такие как перевод строки) в начале и в конце строки.