Array definition

[bundy]

hi @ all DP´ler

Wie kann ich einen array vordefinieren ?

Ich hab mal folgendes erstellt.

Delphi-Quellcode:

  type
  Workingtable  = class(Tobject)
    TechnikerAnz : integer;
    MaxMorning   : integer;
    MaxAfternoon : integer;
    MaxNight     : integer;
    EventStore : array of array of string;

   private



  end;

Wie kann ich jetzt den Array EventStore so definieren, das er die Länge von der TechnikerAnz hat.
Weiters möchte ich das die Integerfelder einen Startwert haben ca so.

Delphi-Quellcode:

 TechnikerAnz : integer = 4;

lg
Bundy

[Cöster]

Startwerte können im Konstruktor zugewiesen werden.

Ich würde die Eigenschaften als private-Attribute anlegen und über properties darauf zugreifen lassen. Der Schreib-Zugriff sollte dann bei TechnikerAnz nicht direkt erfolgen, sondern durch eine Set-Prozedur. In der kannst du dann nämlich gleichzeitig die Länge des Arrays ändern.

[Corpsman]

dir ist Klar das du ein 2 Dim Array definiert hast ?

Delphi-Quellcode:

Constructor Workingtable.create;
begin
TechnikerAnz := 4;
//setlength(EventStore ,TechnikerAnz ); // Für ein 1 dim array
setlength(EventStore ,TechnikerAnz,TechnikerAnz  ); // Für ein 2 dim array
end;

[bundy]

danke für eure Tips !

Soll auch ein 2Dim Array werden

Delphi-Quellcode:

constructor TWorkingtable.Create;
begin
    TechnikerAnz := 4;
    MaxMorning := 4;
    MaxAfternoon := 4;
    MaxNight := 4;
    SetLength(MorningStore,TechnikerAnz,MaxMorning+MaxAfternoon+MaxNight);

end;

aber jetzt hab ich noch ne frage, der Wert TechnikerAnz, wird zur laufzeit geändert, sowie die andern Integer Werte, wo kann ich dann die neue Array definition zuweisen.

lg
Bundy

[mkinzler]

Man kann die Größe eines dyn. Arrays jederzeit mit setLength verändern (sowohl vergrößern wie auch verkleinern.)

[bundy]

ah danke :thumb:

[bundy]

HI back again.


ich hab nun folgendens

Delphi-Quellcode:

  type
  TWorkingtable  = class(Tobject)
    TechnikerAnz : integer;
    MaxMorning   : integer;
    MaxAfternoon : integer;
    MaxNight     : integer;

    TechnikerStore: array of DayStore;  //<<<------------ 

    public
     constructor Create;
   private



  end;

wo muss ich nun den Array DayStore definieren der solle ein DayStore: Array of String sein.

lg
Bundy

[mkinzler]

Bevor du ihn verwendest.

[bundy]

Delphi-Quellcode:

 type 
  TWorkingtable  = class(Tobject) 
    TechnikerAnz : integer; 
    MaxMorning   : integer; 
    MaxAfternoon : integer; 
    MaxNight     : integer; 
    DayStore     : Array of String   //<<--------------- Wenn ich ihn hier def. kann ich eine Zeile darunter nicht darauf zugreifen
    TechnikerStore: array of DayStore;  //<<<------------ 

    public 
     constructor Create; 
   private 



  end;

[SirThornberry]

ein Array of kann auch nur von einem Typ sein. Du versuchst ein Array von einem Variablennamen zu bauen.
Es gibt also:

Delphi-Quellcode:

Array of String;
Array of Integer;
Array of Byte;
Array of BeliebigerTyp;

aber es gibt nicht:

Delphi-Quellcode:

meineVariable: Integer;
Array of meineVariable;

[bundy]

das würde bedeuten ich müsste das so machen

Delphi-Quellcode:

type 
Daystore = array of string
end;

type
  TWorkingtable = class
  Test:Array of DayStore;

  public
  constructor Create ;

  end;

[mkinzler]

Eher so:

Delphi-Quellcode:

type
  Daystore = array of string;

  TWorkingtable = class
       Test:Array of DayStore;

    public
       constructor Create ;

  end;

[bundy]

wieso kann ich dann im

Delphi-Quellcode:

constructor TWorkingtable.Create;
begin
 SetLength(DayStore,2);  //<-----   
end;

nicht auf DayStore zugreifen, es steht mir bei setlength nich zu Verfügung.


lg
Bundy

[mkinzler]

Weil der Member Test heißt ;-)

[Cöster]

Mit SetLength nimmt man keine Änderung an einem Typen vor (Typen sind nach der Definition nicht mehr umdefinierbar), sondern an einer Variablen.

[bundy]

ahhhh jetzt hab ich es geschnallt :thumb:

das Sieht dann so aus

Delphi-Quellcode:

type
  MyStore = Array of String;

  TWorkingtable = class
  DayStore : MyStore;
  Test:Array of DayStore;

  public
  constructor Create ;

  end;

implementation





constructor TWorkingtable.Create;
begin
 SetLength(DayStore,2);
end;

[Cöster]

Nenene. Nicht array of <Variablenname> sondern array of <Typbezeichner>

[bundy]

könntest du mir mit einen Code Sample aushelfen :wall:

[Cöster]

Delphi-Quellcode:

type
  TIntArray = array of Integer;

  TMyClass = class
  private
    procedure SetSpaltenAnzahl(Anz: Integer);
    FTestArray: array of TIntArray; // 2D-Array. Entspricht array of array of Integer
    FSpaltenAnzahl: Integer;
    FZeilenAnzahl: Integer;
  public
    constructor Create;
    property SpaltenAnzahl: Integer read FSpaltenAnzahl write SetSpaltenAnzahl;
  end;

implementation

constructor TMyClass.Create;
begin
  inherited Create;
  FSpaltenAnzahl := 5;
  FZeilenAnzahl := 2;
  SetLength(FTestArray, 5, 2);
end;

procedure TMyClass.SetSpaltenAnzahl(Anz: Integer);
begin
  FSpaltenAnzahl := Anz;
  SetLength(FTestArray, Anz, FZeilenAnzahl);
end;

[bundy]

danke dir :thumb: