以下是一个判断数组各元素是否全为正数的函数实例。
type //定义类型
TArrName = array[0..3, 0..10] of Integer;
function MyfuncName(ArrName: TArrName): Boolean;
var
I, J: Integer;
begin
Result := False;
for I := 0 to 3do
for J := 0 to 10do
if ArrName[I, J] < 0 then
Exit;
Result := True;
end;
