Statistics: Posted by antwan — 28 Oct 2008, 12:19
Statistics: Posted by bsork — 28 Oct 2008, 11:40
Statistics: Posted by antwan — 28 Oct 2008, 10:33
Statistics: Posted by senso — 25 Oct 2008, 10:15
Statistics: Posted by bsork — 24 Oct 2008, 22:14
CODE:
VAR pArray : TParameter;VAR pExecute : TParameter;VAR len : integer;// initialisation : create parametersPROCEDURE init;BEGIN pArray := CreateParam('Array in', ptArray); SetIsOutput(pArray, FALSE); pExecute := CreateParam('Execute', ptButton); SetIsOutput(pExecute, FALSE);END;BEGIN IF (GetValue (pExecute) = 1) THEN BEGIN len := GetLength(pArray); writeln(intToStr(len)); END;Statistics: Posted by antwan — 24 Oct 2008, 13:03
Statistics: Posted by antwan — 28 Oct 2008, 12:19
Statistics: Posted by bsork — 28 Oct 2008, 11:40
Statistics: Posted by antwan — 28 Oct 2008, 10:33
Statistics: Posted by senso — 25 Oct 2008, 10:15
Statistics: Posted by bsork — 24 Oct 2008, 22:14
CODE:
VAR pArray : TParameter;VAR pExecute : TParameter;VAR len : integer;// initialisation : create parametersPROCEDURE init;BEGIN pArray := CreateParam('Array in', ptArray); SetIsOutput(pArray, FALSE); pExecute := CreateParam('Execute', ptButton); SetIsOutput(pExecute, FALSE);END;BEGIN IF (GetValue (pExecute) = 1) THEN BEGIN len := GetLength(pArray); writeln(intToStr(len)); END;Statistics: Posted by antwan — 24 Oct 2008, 13:03