Скачать: CL | DM;

Как убрать 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

---

← →
sniknik ©   (2006-05-12 13:14) [10]

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

---

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

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

---

← →
Johnmen ©   (2006-05-12 15:14) [12]

> ruslan_as   (12.05.06 15:12) [11]


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

---

← →
sniknik ©   (2006-05-12 15:18) [13]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c