如何把自定义结构实现数组??急救.

俺自定义了一个记录:  
    UserMutex=record  
            Userid:string;  
            Userstring:String;  
            UMutex:HWND;  
   
  现在能把它定义成数组吗?能像这样使用:   usermutex[i].userid     急救......... 问题点数：20、回复次数：6Top

1 楼boatzm（晓舟怕麻烦)【IUnKnown】(#_#!）回复于 2004-09-02 14:50:11 得分 10

可以定义数组呀！  
   
  userArr   :   Array[0..10]   of   UserMutex;  
   
   
  OK啦。Top

2 楼luke5678（）回复于 2004-09-02 14:56:11 得分 8

改改就可以了  
   
  type  
      pU   =   ^UserMutex;  
      UserMutex   =   record  
            Userid:string;  
            Userstring:String;  
            UMutex:HWND;  
  end;  
   
  var  
      p:   pU;  
   
  ...  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      new(p);  
      ShowMessage(p.Userid);  
      ShowMessage(p.Userstring);  
      ShowMessage(IntToStr(p.UMutex));  
  end;Top

3 楼lh9823（只抽烟不喝酒）回复于 2004-09-02 17:32:11 得分 2

boatzm(晓舟)【塑料的玫瑰花】的是对的Top

4 楼luke5678（）回复于 2004-09-02 17:33:57 得分 0

说明:  
   
  二楼正解!  
   
  var  
      userArr   :   Array[0..10]   of   UserMutex;  
  begin  
      ShowMessage(userArr[0].Userid);  
      ShowMessage(userArr[1].Userstring);  
      ShowMessage(IntToStr(userArr[2].UMutex));  
  end;  
   
  试一下就知道了!  
  Top

5 楼luke5678（）回复于 2004-09-02 17:34:36 得分 0

不好意识   ！错了，一楼正解!Top

6 楼phoenixsharp（小星星）回复于 2004-09-03 08:56:46 得分 0

感谢各位大虾,小弟真是激动的泣不成声..多谢~~~~~~~~~~Top

相关问题

• usermutex
• 数组
• userarr
• umutex
• userstring
• showmessage
• userid

• 帖主：phoenixsharp
• boatzm
• luke5678
• lh9823

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载