unit untClientStack;

interface

Type TICQClientData = record
    UIN : Integer;
    Name: String;
end;

type TICQContactList = class
    published
        constructor create();
    private
        myData : array of TICQClientData;
        myCount : integer;
    public
        procedure push(item : TICQClientData);
        procedure pop(indx : integer);

        property count : integer read myCount;
        property data[indx : integer] : TICQClientData read myData;
end;

implementation

constructor TICQContactList.create();
begin
    inherited create();
    myCount := 0;
    setlength(myData, 0);
end;

procedure TICQContactList.push(item : TICQClientData);
begin
    setlength(data, myCount + 1);
    data[myCount] := item;
    inc(myCount);
end;

procedure TICQContactList.pop(indx : integer);
var
    i : integer;
begin
    for i := myCount - 1 downto indx + 1 do
        myData[i - 1] := data[i];
    setlength(data, myCount);
    dec(myCount);
end;


end.