AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Problem beim schreiben einer Listenklasse
Thema durchsuchen
Ansicht
Themen-Optionen

Problem beim schreiben einer Listenklasse

Ein Thema von hugo1990 · begonnen am 25. Feb 2008 · letzter Beitrag vom 26. Feb 2008
 
jottkaerr

Registriert seit: 2. Jul 2007
Ort: Tuttlingen
81 Beiträge
 
Delphi 10.1 Berlin Professional
 
#7

Re: Problem beim schreiben einer Listenklasse

  Alt 26. Feb 2008, 08:59
Wieso Typsicherheit erst zur Laufzeit und nicht schon zur Compilierzeit?

Delphi-Quellcode:
type
  TFile = class(TObject)
    // ...
  end;

  TFileList = class(TObject)
  private
    FItems: TObjectList;

    function GetItem(const Index: Integer): TFile;

  public
    constructor Create(const OwnsObjects: Boolean = True);
    destructor Destroy; override;

    function Add(const F: TFile): Integer;

    property Items[const Index: Integer]: TFile read GetItem; default;
  end;

constructor TFileList.Create(const OwnsObjects: Boolean = True);
begin
  inherited Create;

  FItems := TObjectList.Create(OwnsObjects);
end;

destructor TFileList.Destroy;
begin
  FItems.Free;

  inherited Destroy;
end;

function TFileList.Add(const F: TFile): Integer;
begin
  FItems.Add(F);
end;

function TFileList.GetItem(const Index: Integer): TFile;
begin
  Result := TFile(FItems[Index]);
end;
Dadurch dass TFileList.Add() nur Objekte vom Typ TFile akzeptiert, kann man sich den geprüften Cast in TFileList.GetItem() sparen.

jkr
Jürgen Krämer
Sometimes I think the surest sign that intelligent life exists elsewhere
in the universe is that none of it has tried to contact us. (Calvin)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz