Delphi, возврат каретки в конце текста Memo

Question

[Антон]

Если зайти в редактор текста Мемо прямо с формы, то при следующем редактировании в конце добавляется возврат каретки, т.е. конечный символ всего текста в начале последней пустой строки. Так же это наблюдается в уже запущенных приложениях.
Вопрос: как сделать так что бы этого не было?

Answer 1

[ORTOL]

Вот написал функцию для вас ...

function DelLastChar(s:string): string;
begin
delete(s, length(s), 1);
result := s;
end;

Использование ...

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:= DelLastChar(Memo1.Text);
end;

---------------------------------------------------------------------------------
Использовать её нужно при запуске программы ...
Ну или после загрузки данных в Memo1 ...

А как добиться этого результат в редакторе то боюсь этот вопрос к разработчика ...