Die Klasse sol eine anzahl von Usern menagern...
dazu wird ein dyn Array verwendet...
Delphi-Quellcode:
Tusers = class(Tobject)
protected
users : array of Tuser;
public
constructor Create(Chuwak : Tuser);
function Getbighash():Tuser; // Findet die Groste Hash
function Getindex(chuwak : Tuser): integer; // Bekommt als Argument einen Sockethandle und liefer seinen Index im Usersarray zuruck
jedoch beim erzeugen eines neuen eintrags im array kommt ein Speicherzugrifsfehler...
Delphi-Quellcode:
constructor Tusers.Create(Chuwak : Tuser);
var
i, n : integer;
begin
inherited Create;
setlength(users, high(users) + 1);
users[high(users)] := Chuwak;
end; // Create
was ist falsh......!?