TList und record: Auf Variablen zugreifen

**Sascha L**

Hallo,

habe folgenden Code:

Delphi-Quellcode:

			TFeedItem = record

    Title,

    Description,

    Author,

    URL           : String;

    DateTime      : TDateTime;

  end;

  TFeedItemClass = class(TPersistent)

    private

      fItems: TList;

      function GetItem(Index: Integer): TFeedItem;

      procedure SetItem(Index: Integer; const FeedItem: TFeedItem);

      function GetCount: Integer;

    public

      constructor Create;

      destructor Destroy; override;

      procedure AddItem(const FeedItem: TFeedItem);

      procedure RemoveItem(Index: Integer);

      procedure Clear;

      property Items[Index: Integer]: TFeedItem read GetItem write SetItem;

      property Count: Integer read GetCount;

  end;

function TFeedItemClass.GetItem(Index: Integer): TFeedItem;

begin

  Result := TFeedItem(fItems[Index]^);

end;

procedure TFeedItemClass.SetItem(Index: Integer; const FeedItem: TFeedItem);

begin

  fItems[Index] := @FeedItem;

end;

Nun ist es möglich, dass ich z.B. folgendes machen kann:

markieren

Delphi-Quellcode:

			var

  Item: TFeedItem;

begin

  Item.Title := 'sdfsdf';

  FeedItemClass.Items[5] := Item;

end;

Damit würde das 5. Item mit den neuen Daten überschrieben werden. (In diesem Beispiel existiert das 5. Item natürlich!)

Es ist aber nicht möglich folgendes zu machen:

FeedItemClass.Items[5].Title := 'sdfsdfs'; Da meckert der Compiler, dass auf Title nur lesend zugegriffen werden kann.

Wo muss ich nun was anpassen, damit ich normal auf die Variablen zugreifen kann?

Gruß
Sascha

TList und record: Auf Variablen zugreifen

TList und record: Auf Variablen zugreifen

Forumregeln