Array initialisieren, wenn Typ unbekannt

[Chrissi91]

Hallo,

wir machen gerade im Leistungskurs Informatik eine Array-Klasse. Sprich eine Klasse mit allen möglichen Funktionen, die ein Array gebrauchen kann.

Ich habe das in meinen Augen etwas eleganter gelöst.

Delphi-Quellcode:

unit uMyArray;

interface

type
  MyType = Integer;
  TMyArray = class(TObject)
    private
      MyArr: Array of MyType;
      MyPointer: Integer;
    public
      procedure Initialize;

      function  GetPointer: Integer;
      function  GetRow(Row: Integer): MyType;
      procedure SetRow(Value: MyType);
      procedure DelRow(Row: Integer);

      function  GetFile(Path: String): Boolean;
      function  SetFile(Path: String): Boolean;

      procedure Swap(Pos1, Pos2: Integer);
      procedure SortSlow(Column: Integer; Asc: Boolean);
      procedure SortQuick(Column: Integer; Asc: Boolean);

      function  Search(Keyword: String): Integer;
    end;

Da wir noch nicht wissen von welchem Typ das DYNAMISCHE Array sein soll, habe ich den Typen "MyType" erstellt, habe ihn von Vorne herein auf Integer gesetzt. Vorteil: Wenn ich die mal auf String änder, brauche ich bei einigen Funktionen die Typen der Rückgabewerte (aus dem Array) nicht auch ändern, da sie ebenfalls vom Typen MyType sind.

Jetzt möchte ich das Array initialisieren, sprich löschen. Aber woher soll das Programm vorher wissen, welcher Typ es ist?

Ich könnte es so machen:

Delphi-Quellcode:

If MyType = Integer then
  For I := 1 to ... do
    Arr[I] := 0;
If MyType = String then
  For I := 1 to ... do
    Arr[I] := '';

Aber ich möchte das gerne ohne If-Konstrukt machen, sondern mit einer eleganteren Lösung. Ich hoffe ihr wisst was ich meine. Könnte ich vielleicht machen:

Delphi-Quellcode:

For I := 1 to ... do
  Arr[I] := Nil;

Das sieht aber ein bisschen komisch aus.

Hat jemand eine Idee?

[mkinzler]

Mit D7 wohl nicht. Ab D2008 mit Generics wäre es wohl möglich.

[mquadrat]

Wenn deine Arrayklasse native Datentypen unterstützen soll, wird's da keine elegante Lösung geben. Einfacher wird die Geschichte für Objekte. Dann hast du ja immer eine "Wurzeklasse".

Du könntest mit Wrapper-Klassen arbeiten und entsprechende Funktionen anbieten wie addInteger(), addString(), getInteger(), getString(), zum Beispiel. Das sollteste aber vielleicht vorher mit deinem Lehrer abklären

[RavenIV]

Zitat von mkinzler:

Mit D7 wohl nicht. Ab D2008 mit Generics wäre es wohl möglich.

Könnte man da nicht etwas mit Variant machen?
Einem Variant kann ich doch auch beliebige Typen zuweisen, oder?

[mkinzler]

Zitat:

Könnte man da nicht etwas mit Variant machen?

Wäre auch ne Möglichkeit. Man verliert halt dann die Typenabhängigkeit

[RavenIV]

Zitat von mkinzler:

Zitat:

Könnte man da nicht etwas mit Variant machen?

Wäre auch ne Möglichkeit. Man verliert halt dann die Typenabhängigkeit

Das sollte doch erreicht werden, dass man vom Typ nicht abhängig ist, oder?

[mquadrat]

So wie ich es verstanden habe, will er Generics programmieren. Und die zeichnen sich ja gerade durch ihre Typsicherheit aus.

[Chrissi91]

Ich habe mal eben nachgeschaut was Generics ist.

Ich versuche es nochmal mit anderen Wörtern zu erklären. Der Typ wird vor dem Kompilieren angegeben. Ich habe den Umweg mit dem eigenen Typen gewählt, um mir Arbeit zu sparen. Ein Beispiel:

MyType ist Integer. Das Array ist demzufolge Integer, der Rückgabewert der Funktion GetRowInArray ist auch Integer. Sagt jetzt mein Informatiklehrer, schreibt sie für Strings um, muss ich nur noch MyType auf String setzen, den Rest nicht mehr.

Nur tritt dadurch ein Problem beim Leeren (hatte vorher aus Versehen Löschen gesagt ^^) des Arrays auf, da ich keine Allround-Zweisung für Arrays kenne, die sowohl für Integer, als auch String gleich ist. Bei String brauch ich Hochkommas und bei Zahlen keine. Ich würde das gerne "verallgemeinern".

[mkinzler]

Vortrag bei der CodeRage II zum Thema Generics in Delphi

[Chrissi91]

Danke mkmizler.

Das Video ist relativ lang. Das guck ich mir dann im Informatikunterricht heute an.

Damit stell ich die Frage für vorübergehend auf beantwortet.