還是沒有描述清楚 length(theArray) 知道數組的大小,為0就是空的function IsEmpty : Boolean; var i : Integer; begin Result := True; for i := 0 to length(TheArray)-1 do begin if TheArray[i] <> '' then begin Result := false; Break; end; end; end;
我的意思是如何判断整个Thearray数组是否全部为空!
根据楼上的函数仅能判断有空值 全部为空用Length(theArray) = 0
SetLength(TheArray,checklistbox1.Count); for I := 0 to checklistbox1.Count - 1 do begin if checklistbox1.Checked [i] then begin TheArray[i]:=checklistbox1.Items.Strings[i]; end; end; if Length(theArray) <>0 then各位好像不行啊? 我把代码贴出来了,大家帮我看看 我是想知道整个Thearray[i]是否是空的,谢谢啦~
我的意思是怎么判断整个TheArray数组里面是否有文字信息,谢谢大家!
還是沒有描述清楚 length(theArray) 知道數組的大小,為0就是空的function IsEmpty : Boolean;
var
i : Integer;
begin
Result := True;
for i := 0 to length(TheArray)-1 do
begin
if TheArray[i] <> '' then begin
Result := false;
Break;
end;
end;
end;
根据楼上的函数仅能判断有空值
全部为空用Length(theArray) = 0
SetLength(TheArray,checklistbox1.Count);
for I := 0 to checklistbox1.Count - 1 do
begin
if checklistbox1.Checked [i] then
begin
TheArray[i]:=checklistbox1.Items.Strings[i];
end;
end; if Length(theArray) <>0 then各位好像不行啊?
我把代码贴出来了,大家帮我看看
我是想知道整个Thearray[i]是否是空的,谢谢啦~