Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

ruslan_as © (2006-05-12 09:45:00)
Подскажите пожалуста, как перед сохранением очистить поле DBMemo от знаков Enter. Пробовал через StringReplace..., что-то не получилось :(

sniknik (2006-05-12 15:18:00) [1]
и в чем же я не прав? хочеш сказать вызов функции как процедуры без использования возврашаемого результата дает желаемое?

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

Johnmen (2006-05-12 15:14:00) [2]

> ruslan_as (12.05.06 15:12) [11]

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

ruslan_as (2006-05-12 15:12:00) [3]
Спасибо ЮЮ!... #13#10
sniknik - не прав... Если отвечаешь то спокойнее, ну а если Ваш уровень настолько ВЕЛИК..., лучше не отвечать.
Спасибо Всем!

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

ЮЮ (2006-05-12 12:41:00) [5]
>вижу значение #$D#$A
а пытаешься избавится от #10#13, т.е. #$A#$D

ruslan_as (2006-05-12 12:27:00) [6]
Я начал код именно через
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;

Val (2006-05-12 11:36:00) [7]
согласен

Desdechado (2006-05-12 11:35:00) [8]
Val © (12.05.06 11:33) [5]
не факт, что везде будет #13#10

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

Val (2006-05-12 11:33:00) [9]
DM.odsNewTovarN_TOV.Value := StringReplace(DM.odsNewTovarN_TOV.Value,#10#13,'',[rfReplaceAll]);

sniknik (2006-05-12 11:24:00) [10]
StringReplace - функция. зачем 2 раза?

Johnmen (2006-05-12 11:13:00) [11]
Где этот код пишется?

ruslan_as (2006-05-12 11:04:00) [12]
StringReplace(DM.odsNewTovarN_TOV.Value,#10,'',[rfReplaceAll]);
StringReplace(DM.odsNewTovarN_TOV.Value,#13,'',[rfReplaceAll]);

Val (2006-05-12 10:32:00) [13]
покажите код

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »