Tlist indeholdene object

har du prøver at lave Tclient som en klasse ?

næ er det bedre ?

Ja så tror jeg alle dine problemer er løst

Du kan ikke proppe en type (TClient) i en TList. Som borrisholt siger bør du bruge en class og ikke et object. object-typen er et levn fra Object Pascal og bruges ikke til noget i Delphi...

HOVSA! Jeg sov lige da jeg skrev det første det er når jeg lavet:

type
  TClient = record
    noget : string;
    andet : string;
  end;

her er lidt at starte på :

unit Unit2;

interface
uses
  Classes;

type
  pClient = ^TClient;
  TClient = record
    noget: string;
    andet: string;
  end;

  TClientList = class(TList)
  private
    function GetClient(Index: Integer): TClient;
    procedure SetClient(Index: Integer; const Value: TClient);
  protected
    property List;
    property Capacity;
  public
    function Remove(const Item: TClient): Integer;
    Function Add(const Item: TClient): Integer;
    Function ClientToIndex(const Item : TClient) : Integer;
    property Client[Index: Integer]: TClient read GetClient write SetClient; default;
    property Count;
  end;
implementation

{ TClientList }

function TClientList.Add(const Item: TClient): Integer;
var
  aClient : pClient;
begin
  new(aClient);
  aClient^:= Item;
  Result := inherited Add(aClient);
end;

function TClientList.ClientToIndex(const Item: TClient): Integer;
begin
  Result := IndexOf(@Item);
end;

function TClientList.GetClient(Index: Integer): TClient;
begin
  Result := pClient(List[index])^;
end;

function TClientList.Remove(const Item: TClient): Integer;
var
  aClient : pClient;
begin
  aClient := Get(ClientToIndex(Item));
  Result := inherited Remove(@Item);
  dispose(aClient);
end;

procedure TClientList.SetClient(Index: Integer; const Value: TClient);
begin
  pClient(List[index])^ := Value;
end;

end.



Jens B

Det var lige præcis hvad jeg skulle bruge, fandt desuden noget ligneden senere så nu kører det bare tak!