Instanz einer Klasse identifizieren?!

[maddin4u]

Hallo

Erstmal Vielen Dank. Ich habe jetzt noch ein bisschen rumprobiert und mir folgedes überlegt.

Delphi-Quellcode:

unit Unit2;

interface

type
  TArray = array [1..10] of string;
  TTest = class
    private
    public
      class procedure Add(ID: integer; text: string);
      class function Read(ID: integer): string;
    end;

var
  MeinArray: TArray;

implementation

class procedure TTest.Add(ID: integer; text: string);
begin
  MeinArray[ID]:= text;
  // An dieser Stelle könnte dann ja auch sowas stehen wie
  // MeinArray[ID].Create('Test') ... Wenn das Array von einem von mir wiederrum
  // selbst erstellten Typ z. B. TTest ist mit constructor
end;

class function TTest.Read(ID: integer): string;
begin
  result:= MeinArray[ID];

end;

end.

Ich habe mir dadurch ale eine Klasse geschaffen, ähnlich wie die TObjectList, die meine Elemente aufnimmt. Ich habe dort jetzt auch eine globale Variable, aber damit könnte ich erstmal leben. Allerdings stellt sich dann die Frage ob ich dort folgendes:

Delphi-Quellcode:

{$WRITEABLECONST ON}
var
  MeinArray: TArray;
{$WRITEABLECONST OFF}

von NicoDE benutzen kann?

Oder hat mein obiger Code überhaut irgendeinen Nachteil?

Vielen Dank?