求数组中未被初始化的索引号(下标),看代码. ( 积分: 50 )

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-24

• #1

//Type TedtList=array of Tedit;
//var edt:TedtList
function TfmeEvtReg.GetUsedHigh_Edt(edt:TedtList):integer;
var
i:integer;
begin
for i:=0 to high(edt) do
begin
[red]if edt=nil then[/red]
exit;
end;
result:=i;
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-24

• #2

同一问题发两帖?

我点"发出"回帖,居然提示"请不要灌水",真晕

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-22

• #3

me 2

 

Q

qqjm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-22

• #4

function TfmeEvtReg.GetUsedHigh_Edt(edt:TedtList):integer;
var
i:integer;
begin
for i:=0 to high(edt) do
begin
if edt=nil then
begin
result:=i;
exit;
end;
end;
result:=-1;
end;