procedure TForm1.Button1Click(Sender: TObject);
var
MyArray:array[0..4,0..2] of string;
i,j,counter:integer;
begin
for i:=low(MyArray) to high(MyArray) do
begin
counter:=0;
for j:=low(MyArray[i]) to high(MyArray[i]) do
begin
if MyArray[i,j]<>'' then inc(counter);
end;
if counter=0 then
showmessage('第'+inttostr(i)+'维是空!');
end;
end;
var
MyArray:array[0..4,0..2] of string;
i,j,counter:integer;
begin
for i:=low(MyArray) to high(MyArray) do
begin
counter:=0;
for j:=low(MyArray[i]) to high(MyArray[i]) do
begin
if MyArray[i,j]<>'' then inc(counter);
end;
if counter=0 then
showmessage('第'+inttostr(i)+'维是空!');
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货