H
hzgood
Unregistered / Unconfirmed
GUEST, unregistred user!
什么函数能清空数组》？
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是动态数组 ： 数组名：＝nil;//释放掉
S
SINGLBOY
Unregistered / Unconfirmed
GUEST, unregistred user!
fillChar(MyArray,sizeOf(MyArray),0);
L
liangdewei
Unregistered / Unconfirmed
GUEST, unregistred user!
设为NIL
Y
YB_unique
Unregistered / Unconfirmed
GUEST, unregistred user!
Fillchar(i,sizeof(i),0);
E
eric.youbin
Unregistered / Unconfirmed
GUEST, unregistred user!
var
thelength : integer;
begin
thelength := high(arr)+1;
setlength(arr, 0); //将数组的长度设为０
setlength(arr,thelength);
//如果是二维的数组就一位一位的来；
end;
thelength : integer;
begin
thelength := high(arr)+1;
setlength(arr, 0); //将数组的长度设为０
setlength(arr,thelength);
//如果是二维的数组就一位一位的来；
end;
H
hzgood
Unregistered / Unconfirmed
GUEST, unregistred user!
数组A ：ARRAY [1。。1200] OF STRING；如何清空；
E
eric.youbin
Unregistered / Unconfirmed
GUEST, unregistred user!
setlength(A, 0); //将数组的长度设为０
setlength(A,1200);
搞定；
setlength(A,1200);
搞定；
H
hzgood
Unregistered / Unconfirmed
GUEST, unregistred user!
A ：ARRAY [1。。20，1。。50] OF STRING；
如何清空；
C
cnwinds
Unregistered / Unconfirmed
GUEST, unregistred user!
用循环不就ok
for i:=1 to 20 do
for j:=1 to 50 do a[j] := '';
for i:=1 to 20 do
for j:=1 to 50 do a[j] := '';
H
hzgood
Unregistered / Unconfirmed
GUEST, unregistred user!
我的天那，我现在的程序很难读，不能再用FOR 了，哥们，帮我一把，难道没有简单的函数吗
ok 我自己写一个吧；
ok 我自己写一个吧；
一
一个过客
Unregistered / Unconfirmed
GUEST, unregistred user!
setlength(xxx,0)就可以了
L
liangtianyi
Unregistered / Unconfirmed
GUEST, unregistred user!
fillchar(xxx,sizeof(xxx),0)
如果是字符的话用#0,再在后面加上xxx:=nil
如果是字符的话用#0,再在后面加上xxx:=nil
D
dlnew
Unregistered / Unconfirmed
GUEST, unregistred user!
口中说一声“变！”
同时按下键盘上的回车键，就可以了！
[
]
同时按下键盘上的回车键，就可以了！
[
]
I
iie
Unregistered / Unconfirmed
GUEST, unregistred user!
siglboy和liangtianyi的最好
Z
zzWind
Unregistered / Unconfirmed
GUEST, unregistred user!
fillchar(s, Len, #0) 即可。