Мемо - убрать лишние проблемы и Enter'ы

[lutdan]

Здравствуйте. Проблема заключается в следующем. При сохранении в БД появляются знаки типо || (это Два Enter), а при выводе в отчет вместо них появляются квадратики. При добавлении информации я сделал вот такой код

procedure TFormEditPlanovuy.Memo1KeyPress(Sender: TObject; var Key: Char);
begin  //Мы убираем все Enter'ы при нажатии...
  if key=#13 then
       begin
          key:=#0;
      end;
end;

Сохраняет все хорошо, а вот когда уже редактируем то курсор становится на вторую строку (Line=2) и при сохранении мы сохраняем этот Enter (|) Форумчане, я думаю кто-то встречался с похожей проблемой. Помогите.

[Sciv]

Мемо - убрать лишние проблемы и Enter'ы

харрошая опечатка

А почему при выводе в отчет нельзя убирать лишние ентеры?

[Serge_Bliznykov]

а не проще ли удалять все Enter'ы (если уж Вы так уверены, что они вашим пользователям не нужны) при сохраненнии данных в БД?
делать это очень легко.
вместо: <ВашеПолеВБд> := Memo1.Text;
достаточно написать:
<ВашеПолеВБд> := StringReplace( Memo1.Text, #13#10, '', [rfReplaceAll]);
и всё!

[Sciv]

Кстати, да, вероятнее всего, что символ, который ТС назвал "Этот Enter" - это таки не #13, а #10. Поэтому, как вариант, предложу изменить исходный код:

procedure TFormEditPlanovuy.Memo1KeyPress(Sender: TObject; var Key: Char);
begin  //Мы убираем все Enter'ы при нажатии...
  if (key=#13) or (key=#10) then key:=#0;
end;

Попробовать стоит - если сработает, значит я прав )

[Sciv]

Сообщение от Serge_Bliznykov

<ВашеПолеВБд> := StringReplace( Memo1.Text, #13#10, '', [rfReplaceAll]);
и всё!

Тогда уж как-то так:

<ВашеПолеВБд> :=  StringReplace( Memo1.Text, #13, '', [rfReplaceAll]);
<ВашеПолеВБд> :=  StringReplace( Memo1.Text, #10, '', [rfReplaceAll]);

Хз, в каком они там порядке стоять будут. Обычно, вроде, #10#13, хотя на 100% не уверен

[Аватар]

Memo.WantReturns:=False; не даст вставить клавиатурно в Memo перевод каретки и строки. Но для копипасте не сможет этому воспрепятствовать, собственно как и OnKeyPress. В предложении Сержа лучше все таки #13#10 на пробел менять

Хз, в каком они там порядке стоять будут

Обычно #13#10

[Serge_Bliznykov]

Сообщение от Sciv

Тогда уж как-то так:

<ВашеПолеВБд> :=  StringReplace( Memo1.Text, #13, '', [rfReplaceAll]);
<ВашеПолеВБд> :=  StringReplace( Memo1.Text, #10, '', [rfReplaceAll]);

ничего странного в коде не видите? Enter'ы в таком случае гарантированно останутся.
тогда уже так:

<ВашеПолеВБд> :=  StringReplace( StringReplace( Memo1.Text, #13, '', [rfReplaceAll]), #10, '', [rfReplaceAll]) ;

Хз, в каком они там порядке стоять будут. Обычно, вроде, #10#13, хотя на 100% не уверен

нет. Если речь идёт о Windows (а вряд ли автор темы использует Delphi не под Windows), то в тексте идёт именно в порядке #13#10! Так что можно и так оставить, тоже будет работать!

Сообщение от Аватар

Memo.WantReturns:=False; не даст вставить клавиатурно в Memo перевод каретки и строки.

спасибо. не знал...

Сообщение от Аватар

В предложении Сержа лучше все таки #13#10 на пробел менять

вот с этим согласен!
с учётом того, что автор темы и пробелы лишние удалить хочет я бы вообще такой код предложил:

s :=  StringReplace( Memo1.Text, #13, ' ', [rfReplaceAll]);
s :=  Trim( StringReplace( s, #10, ' ', [rfReplaceAll]) );
while pos('  ', s)>0 do
  s :=  StringReplace( s, '  ', ' ', [rfReplaceAll]);

<ВашеПолеВБд> := s

[Sciv]

Если речь идёт о Windows (а вряд ли автор темы использует Delphi не под Windows), то в тексте идёт именно в порядке #13#10! Так что можно и так оставить, тоже будет работать!

Ясно, весьма благодарен, не знал

Memo.WantReturns:=False; не даст вставить клавиатурно в Memo перевод каретки и строки.

Аватар, присоединяюсь к Сергею. ТОже был не в курсе.

[lutdan]

Спасибо, ВАМ ФОРУМЧАНЕ!
Sciv да уж и не заметил опечатку.

<ВашеПолеВБд> := StringReplace( Memo1.Text, #13#10, '', [rfReplaceAll]);