Array definition

[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

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

[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