TYPE
TUserSayType = (us_All, us_Hear, us_Whisper, us_Cry, us_Group, us_Guild, us_Sys, us_Custom, us_None);
TUserSaySet = set of TUserSayType;
procedure TDrawScreen.ChangeTransferMsg(UserSaySet: TUserSaySet);
var
i,i1: Integer;
UserSayType: TUserSayType;
begin
for UserSayType in UserSaySet do
g_SayEffectIndex[UserSayType] := False;
end;
在DELPHI2007工程下的代碼是這樣 但因為DELPHI7不支持FOR IN DO 所以幫忙把 for UserSayType in UserSaySet do轉成D7下的FOR I:=0 TO X DO 這樣的形式
uj5u.com熱心網友回復：
e:TUserSayType;
for e:=us_All to us_None do
if e in UserSaySet then
g_SayEffectIndex[e] := False;
uj5u.com熱心網友回復：
procedure TForm1.FormCreate(Sender: TObject);
TYPE
TUserSayType = (us_All, us_Hear, us_Whisper, us_Cry, us_Group, us_Guild, us_Sys, us_Custom, us_None);
TUserSaySet = set of TUserSayType;
var
vSet : TUserSaySet;
vType : TUserSayType;
nCounter : integer;
begin
vSet := [us_Whisper, us_Group, us_Guild];
nCounter := 0;
for vType := Low(TUserSayType) to High(TUserSayType) do
begin
if vType in vSet then
Inc(nCounter);
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/124554.html
標籤：語言基礎/算法/系統設計