WRITE MV IF EMPTY — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «WRITE_MV_IF_EMPTY - это программа из справочника R266 = Смотрите также = Полезные функции Фу…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[WRITE_MV_IF_EMPTY]] - это программа из справочника [[R266]] | [[WRITE_MV_IF_EMPTY]] - это программа из справочника [[R266]] | ||
| + | Заполнить мемо поле, если оно еще не заполнено | ||
| + | [[WRITE_MV_IF_EMPTY]]( memofield_name, memofield_new_value ) | ||
| + | = Текст = | ||
| + | parameters memofield_name, memofield_new_value | ||
| + | if [[EMPTY]]( memofield_new_value ) | ||
| + | return | ||
| + | endif | ||
| + | local aa | ||
| + | aa := READMV( memofield_name ) | ||
| + | |||
| + | if EMPTY( aa ) | ||
| + | WRITEMV( memofield_name, memofield_new_value ) | ||
| + | endif | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 07:45, 2 августа 2018
WRITE_MV_IF_EMPTY - это программа из справочника R266
Заполнить мемо поле, если оно еще не заполнено
WRITE_MV_IF_EMPTY( memofield_name, memofield_new_value )
Текст
parameters memofield_name, memofield_new_value if EMPTY( memofield_new_value ) return endif local aa aa := READMV( memofield_name ) if EMPTY( aa ) WRITEMV( memofield_name, memofield_new_value ) endif
