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

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

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 ...

А как добиться этого результат в редакторе то боюсь этот вопрос к разработчика ...
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы