Как убрать Enter-ы в DBMemo

← →
ruslan_as (2006-05-12 09:45) [0]

Подскажите пожалуста, как перед сохранением очистить поле DBMemo от знаков Enter. Пробовал через StringReplace..., что-то не получилось :(

← →
Val © (2006-05-12 10:32) [1]

покажите код

← →
ruslan_as (2006-05-12 11:04) [2]

StringReplace(DM.odsNewTovarN_TOV.Value,#10,"",[rfReplaceAll]);
StringReplace(DM.odsNewTovarN_TOV.Value,#13,"",[rfReplaceAll]);

← →
Johnmen © (2006-05-12 11:13) [3]

Где этот код пишется?

← →
sniknik © (2006-05-12 11:24) [4]

StringReplace - функция. зачем 2 раза?

← →
Val © (2006-05-12 11:33) [5]

DM.odsNewTovarN_TOV.Value := StringReplace(DM.odsNewTovarN_TOV.Value,#10#13,"",[rfReplaceAll]);

← →
Desdechado © (2006-05-12 11:35) [6]

Val © (12.05.06 11:33) [5]
не факт, что везде будет #13#10

а вот то, что результат функции нужно присваивать полю, это точно

← →
Val © (2006-05-12 11:36) [7]

согласен

← →
ruslan_as (2006-05-12 12:27) [8]

Я начал код именно через
DM.odsNewTovarN_TOV.Value := StringReplace (DM.odsNewTovarN_TOV.Value,#10#13,"",[rfReplaceAll]);
Без толку...
И присваивал значение DBMemo в string переменную - не работает,
при просмотре в режиме отладки вижу значение #$D#$A.

Полный код такой
После вставки значений в нужные поля срабатывает следующий код:

StringReplace(DM.odsNewTovarN_TOV.Value,#10#13,"",[rfReplaceAll]);

if DM.odsNewTovarN_TOV.Value=""
then begin
HSShowMessage("Не введено название товара!", DBMemo1,10,-10);
DBMemo1.SetFocus;
EXIT;
end;
DM.odsNewTovar.Post;

← →
ЮЮ © (2006-05-12 12:41) [9]

>вижу значение #$D#$A
а пытаешься избавится от #10#13, т.е. #$A#$D

> Полный код такой
> После вставки значений в нужные поля срабатывает следующий код:
>
> StringReplace(DM.odsNewTovarN_TOV.Value,#10#13,"",[rfReplaceAll]);
> ...
тяжело быть ..., тебе же сказали StringReplace функция, и даже показали...

← →
ruslan_as (2006-05-12 15:12) [11]

Спасибо ЮЮ!... #13#10
sniknik - не прав... Если отвечаешь то спокойнее, ну а если Ваш уровень настолько ВЕЛИК..., лучше не отвечать.
Спасибо Всем!

> ruslan_as (12.05.06 15:12) [11]

Спокойнее. Ваш уровень настолько НИЧТОЖЕН, что лучше не огрызаться.

и в чем же я не прав? хочеш сказать вызов функции как процедуры без использования возврашаемого результата дает желаемое?

=========================================
Я не упрям!!! Просто я ВСЕГДА прав!

Как убрать Enter-ы в DBMemo Найти похожие ветки