这种结构怎么定义成类

Question

property Users[Index: Integer]: TUser read GetUser write SetUser; default; //???

Answer 1

那我的getuser 和 setuser怎么写呢?
我每次有一个用户登入啦,怎么在这添加一个类呢?

Answer 2

写好property后，按Ctrl+Shift+C（先关掉金山词霸）,Delphi会替你定义的。

Answer 3

这个我会定义,但是那个
那我的getuser 和 setuser函数我该怎么写才能使它成为一个好多个人的
属性呢?那我坑定要有一个Add方法,Delete方法,这两个方法要怎样鞋
,原来写的程序都是那个什么结构化的,更本没有变相对象的概念
浪费了delphi的资源
嗨

Answer 4

用ObjectList或者Collection来完成。

Answer 5

while not adoquery1.Recordset.EOF do
begin
  with users do
    begin 
      Name:=trim(adoquery1.fieldbyname('name').value);
    end;
    hall.Users.Add(users);
    adoquery1.Next;
end;我这样添加后名字怎么都是最后一个人的名字for i:=0 to hall.Users.Count do
begin
  showmessage(Tusers(hall.Users[i]).Name);
end;

Answer 6

你的Users里面代码没有写好。

Answer 7

把GetUsers和SetUsers这两个函数的相关代码贴出来看看。

Answer 8

把GetUsers和SetUsers这两个函数的相关代码贴出来看看。

Answer 9

Property Users:Tobjectlist read Fusers write Fusers;
只有一个着个其他没写

Answer 10

I think you should try this:while not adoquery1.Recordset.EOF do
begin
  Users := Tuser.Create;
  with users do
    begin 
      Name:=trim(adoquery1.fieldbyname('name').value);
    end;
    hall.Users.Add(users);
    adoquery1.Next;
end; 

Answer 11

哦,我懂啦
Tobjectlist原来使用一个指针指向那个对象,那个对象没有从新创建过
所以就所有的都指向拉第一个那个创建个,我每次开一个新的实例,才可以
谢谢啦'