|
|
楼主 |
发表于 2003-7-31 12:02:00
|
显示全部楼层
Re: 32?????4????????
Alpha???API?????
a
a
a
a
a
?????????4000?????????200?
?????????CTRL+A
ProgramaAutoP;
Procedurea????;
vara??,??:Integer;
aaaa????:Boolean;
aaaa??:T??;
Begin
aa??:=T??.Create;
aatry
aaaaFora??:=0aToa??.????-1aDo
aaaaaaFora??:=0aToa??.???[??].??-1aDo
aaaaaaaa??.???[??].??[??].??('?...?');
aaaaIfaMe.Is????=TrueaThen
aaaaBegin
aaaaaa????:=False;
aaaaaaRepeat
aaaaaaaa????('??','??');
aaaaaaaa????:=????;
aaaaaaUntil(????=True);
aaaaEnd;
aafinally
aaaa??.Free;
aaEnd;
End;aaaaaa
Begin
aa????;
End.aa |
|
发表于 2003-7-31 08:55:00
