INPUTPROPERTY — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (→‎Пример)
 
(не показано 11 промежуточных версий этого же участника)
Строка 1: Строка 1:
−
InputProperty - это функция, написанная на Delphi ( QrAddFn.pas )
+
[[INPUTPROPERTY]] - это функция, описанная в файле [[QrAddFn.pas]]
−
 
+
Ввод значений различных типов
−
InputProperty(TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp])
+
[[INPUTPROPERTY]]( TitleForm, DescFld [,TitlePage]... [,IsVisiblePanelBtn=True] [,IsModal=True] [,IsCenter:=True] [,IdHelp] )
−
 
+
−
Ввод значений различных типов
+
  
 
DescFld - массив массивов описаний полей
 
DescFld - массив массивов описаний полей
−
 
+
= Пример =
−
== Примеры использования ==
+
local DescFld
−
 
+
   
−
=== Функция InputDateAndTime ===
+
  public itime
−
 
+
   
−
  parameters _title:='Введите дату и время', _time := 0
+
  itime := '15:00'
−
 
+
   
−
  public d,t
+
  DescFld := { ;
−
 
+
   { { 'FldName', 'itime' }, { 'FldType', 'C' }, { 'CommonTitle', '1' }, ;
−
  if Type('_InputDateAndTime')='U'
+
     { 'FldLen', 5 }, { 'Default', itime }, { 'Picture', '99:99' }, { 'FldTitl', 'Время начала' } } ;
−
  d := Date()
+
}
−
  else
+
−
  d := _InputDateAndTime[1]
+
  if ![[INPUTPROPERTY]]( 'Счетчик', DescFld )
−
  t := _InputDateAndTime[2]
+
   result := nil
−
  endif
+
−
 
+
−
  t := _time
+
−
 
+
−
local fld
+
−
 
+
−
fld:=;
+
−
   {;
+
−
    {;
+
−
      {'FldName','d'},{'FldType','D'},{'CommonTitle','1'},{'FldTitl','Дата'},{'FldLen',8},{'Default',d},;
+
−
      {'PostBlk',"ValType(Assign)='D' and Year(Assign)>=2010 and Year(Assign)<=2025"};
+
−
    },;
+
−
     {;
+
−
      {'FldName','t'},{'FldType','N'},{'CommonTitle','1'},{'FldTitl','Время'},{'FldLen',5},{'Default',t},{'FldDec',2}, ;
+
−
      {'PostBlk','NewValue>=0 and NewValue<=23.59 and Frac(NewValue)<=0.59'};
+
−
    };
+
−
  }
+
−
 
+
−
  if !InputProperty(_title,fld)
+
−
   result:=nil
+
 
   return
 
   return
 
  endif
 
  endif
 +
 +
result := itime
 +
[[Файл:30-05-2017 8-16-19.png]]
  
−
result := {d,t}
+
= Использование =
 +
[[INPUTDATEANDTIME]]
  
−
if Type('_InputDateAndTime')='U'
+
[[INPUTTIME]]
−
  Global _InputDateAndTime
+
= Смотрите также =
−
endif
+
[[Полезные функции]]
  
−
_InputDateAndTime := result
+
[[Функции 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

30-05-2017 8-16-19.png

Использование

INPUTDATEANDTIME

INPUTTIME

Смотрите также

Полезные функции

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=INPUTPROPERTY&oldid=29272»