AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

unbestimmter Datentyp deklarieren

Ein Thema von vsilverlord · begonnen am 16. Feb 2010 · letzter Beitrag vom 17. Feb 2010
Antwort Antwort
Benutzerbild von vsilverlord
vsilverlord

Registriert seit: 7. Jan 2008
Ort: Baden Württemberg- Hohenlohekreis
174 Beiträge
 
RAD-Studio 2009 Arc
 
#1

Re: unbestimmter Datentyp deklarieren

  Alt 16. Feb 2010, 16:14
hm.
hier mal der Quelltext wie es bisher aussieht, so gefällt es mir halt überhaupt nicht:

Delphi-Quellcode:
unit uBuffer;

interface

uses
uvektor;

Type

// Pointer auf array mit extended
tarrayextended = record
  items:array of extended;
end;
  parrayextended=^tarrayextended;

// Pointer auf array mit tvektor3
tarraytvektor3 = record
  items:array of tvektor3;
end;
  parraytvektor3=^tarraytvektor3;

...

////////// TBuffer ///////////////
TBuffer = class
    public

        constructor create;virtual;
        destructor destroy;virtual;

        procedure SetSlotlength(Slotlength:integer);virtual;abstract;
end;
  pBuffer=^TBuffer;

/////////TBufferextended//////////
TBufferextended = class(TBuffer)
     protected
        fparts:tarrayextended;
        //getter setter methoden
        function getparts:parrayextended;
        procedure setparts(nitems:parrayextended);

     public
        // create / destroy
        constructor create;virtual;
        destructor destroy;virtual;
        //propertys
        property parts:parrayextended read getparts write setparts;
        procedure SetSlotlength(Slotlength:integer);override;
end;
pBufferextended=^TBufferextended;

//////////TBuffertvektor3/////////
TBuffertvektor3 = class(TBuffer)
      protected
        fparts:tarraytvektor3;
        //getter setter methoden
        function getparts:parraytvektor3;
        procedure setparts(nitems:parraytvektor3);

      public
      // create / destroy
        constructor create;virtual;
        destructor destroy;virtual;
        //propertys
        property parts:parraytvektor3 read getparts write setparts;
        procedure SetSlotlength(Slotlength:integer);override;
end;

implementation

...
end.
Ich denke ihr wisst am besten wir man das hier verbessern kann, wenigstens funktioniert es so, auch wenn es hässlich ist.
Das Ziel hier ist, dass ich TBuffer benutzen kann, ohne gleich den Typ angeben zu müssen. Den kann ich nun später angeben.
//edit: gekürzt, um Übersichtlichkeit zu schaffen
Volker
~beware
Wizards First Rule:
People are stupid; given proper motivation, almost anyone will believe almost anything. Because people are stupid, they will believe a lie because they want to believe it’s true, or because they are afraid it might be true
  Mit Zitat antworten Zitat
Antwort Antwort


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 10:19 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