INPUTPROPERTY — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Пример) |
||
| (не показано 11 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | + | [[INPUTPROPERTY]] - это функция, описанная в файле [[QrAddFn.pas]] | |
| − | + | Ввод значений различных типов | |
| − | + | [[INPUTPROPERTY]]( TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp] ) | |
| − | + | ||
| − | + | ||
DescFld - массив массивов описаний полей | DescFld - массив массивов описаний полей | ||
| − | + | = Пример = | |
| − | + | local DescFld | |
| − | + | ||
| − | + | public itime | |
| − | + | ||
| − | + | itime := '15:00' | |
| − | + | ||
| − | public | + | DescFld := { ; |
| − | + | { { 'FldName', 'itime' }, { 'FldType', 'C' }, { 'CommonTitle', '1' }, ; | |
| − | + | { 'FldLen', 5 }, { 'Default', itime }, { 'Picture', '99:99' }, { 'FldTitl', 'Время начала' } } ; | |
| − | + | } | |
| − | + | ||
| − | + | if ![[INPUTPROPERTY]]( 'Счетчик', DescFld ) | |
| − | + | result := nil | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | { | + | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | if ! | + | |
| − | result:=nil | + | |
return | return | ||
endif | endif | ||
| + | |||
| + | result := itime | ||
| + | [[Файл:30-05-2017 8-16-19.png]] | ||
| − | + | = Использование = | |
| + | [[INPUTDATEANDTIME]] | ||
| − | + | [[INPUTTIME]] | |
| − | + | = Смотрите также = | |
| − | + | [[Полезные функции]] | |
| − | + | [[Функции Delphi]] | |
Текущая версия на 12:45, 27 апреля 2018
INPUTPROPERTY - это функция, описанная в файле QrAddFn.pas
Ввод значений различных типов
INPUTPROPERTY( TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp] )
DescFld - массив массивов описаний полей
Пример
local DescFld
public itime
itime := '15:00'
DescFld := { ;
{ { 'FldName', 'itime' }, { 'FldType', 'C' }, { 'CommonTitle', '1' }, ;
{ 'FldLen', 5 }, { 'Default', itime }, { 'Picture', '99:99' }, { 'FldTitl', 'Время начала' } } ;
}
if !INPUTPROPERTY( 'Счетчик', DescFld )
result := nil
return
endif
result := itime
