5 b_sign
:array [0..31] of boolean;
7 t_sign
:array [0..31] of string;
10 function createsign(ii
,ij
:integer):integer;
11 procedure destsign(id
:integer);
16 function createsign(ii
,ij
:integer):integer;
19 tx
:array [0..3] of integer;
23 if b_sign
[ix
]=false then
31 exitCmd
:=createCommand('Ok',CM_OK
,1);
34 ymp
:=formAddString('Text:');
35 tx
[0]:=formAddTextField('','',15,TF_ANY
);
36 tx
[1]:=formAddTextField('','',15,TF_ANY
);
37 tx
[2]:=formAddTextField('','',15,TF_ANY
);
38 tx
[3]:=formAddTextField('','',15,TF_ANY
);
42 cli
:=getClickedCommand
;
44 t_sign
[ix
]:=formGetText(tx
[0])+#13+formGetText(tx
[1])+#13+formGetText(tx
[2])+#13+formGetText(tx
[3])+#13;
53 procedure destsign(id
:integer);