Array einer Klasse

[Glocke89]

Hallo,

ich bin in Sachen Klassen Neuling und habe mir (mit etwas Mühe) eine eigene Klasse zusammengebaut:

Delphi-Quellcode:

  // ---------------------------- Klasse TDatei ----------------------------
  TDatei = class(TObject)
  private
    FPfad: string;
    FName: string;
    FBeschreibung: string;
  public
    constructor Create;
    destructor Destroy;
    procedure Ausfuehren;
    property Pfad: string read FPfad write FPfad;
    property Name: string read FName write FName;
    property Beschreibung: string read FBeschreibung write FBeschreibung;
  end;
  // ---------------------------- Ende Klasse TDatei ---------------------------- 

  TDateiArray = Array of TDatei;
  
var
  Form1: TForm1; 
  DateiArray: TDateiArray;

implementation 

// ---------------------------- Klasse TDatei ----------------------------
constructor TDatei.Create;
begin
  inherited;
  Pfad := '';
  Name := '';
  Beschreibung := '';
end;

destructor TDatei.Destroy;
begin
  //
  inherited;
end;

procedure TDatei.Au :dp: sfuehren;
var
  Proc: TProcess;
begin
  Proc:=TProcess.Create(nil);
  Proc.CommandLine:=Pfad;
  Proc.Execute;
  Proc.Free;
end;
// ---------------------------- Ende Klasse TDatei ----------------------------

Nun wollte ich mit

Delphi-Quellcode:

DateiArray[i+1].Create;

(i vom Typ Integer als Zähler für das Array)
eine Instanz erstellen. Jedoch kommt eine Fehlermeldung:

Code:

Project  raised exception class 'External: SIGSEGV'.

Muss ich für jedes Elementes des Arrays eine Instanz erstellen, oder nur einmal für das Array an sich? Wenn eine Instanz reicht: wie muss ich das bewerkstelligen?

Danke im Vorraus :dp:

/EDIT: beim Thema-Namen ein "r" vergessen ^^

[Dax]

Nicht "instanz.Create", sondern "instanz := Klasse.Create".

[Glocke89]

Zitat:

Zitat von Dax

Nicht "instanz.Create", sondern "instanz := Klasse.Create".

xD stimmt

Delphi-Quellcode:

DateiArray[i+1] := TDateiArray.Create;

So? da kommt nämlich

Code:

Unit1.pas(125,36) Error: Illegal qualifier

[Dax]

Seit wann ist TDateiArray der Typ eines Arrayelements? :gruebel:

[Glocke89]

Delphi-Quellcode:

TDateiArray = Array of TDatei;

// [...]

DateiArray: TDateiArray;

Naja ... hab das so definiert. Würdest du das anders lösen?

[sx2008]

Delphi-Quellcode:

SetLength(DateiArray, 5); // dynamisches Array anlegen

for i := Low(DateiArray) to High(DateiArray) do
begin
  // wichtig: in Delphi werden Objekt immer so erzeugt
  // object := TKlasse.Create
  // das ist ein wesentlicher Unterschied zu C++
  // Der klassische Anfängerfehler ist, dass man das := vergisst
  DateiArray[i] := TDatei.Create;  // Objekt erzeugen
  DateiArray[i].Beschreibung := Format('Datei %d', [i]);
end

[Glocke89]

Zitat:

Zitat von sx2008

Delphi-Quellcode:

SetLength(DateiArray, 5); // dynamisches Array anlegen

for i := Low(DateiArray) to High(DateiArray) do
begin
  // wichtig: in Delphi werden Objekt immer so erzeugt
  // object := TKlasse.Create
  // das ist ein wesentlicher Unterschied zu C++
  // Der klassische Anfängerfehler ist, dass man das := vergisst
  DateiArray[i] := TDatei.Create;  // Objekt erzeugen
  DateiArray[i].Beschreibung := Format('Datei %d', [i]);
end

Genial, das klappt!
Das einzige Problem ist, dass ich nie weiß wie viele Elemente das Feld beinhalten soll...hat jemand dafür auch einen Vorschlag?

/EDIT: Kann mir jemand die Zeile hier erklären?

Delphi-Quellcode:

DateiArray[i].Beschreibung := Format('Datei %d', [i]);

[jfheins]

@edit (^^)

Das ist eine andere Schreibweise für 'Datei ' + inttostr(i) ;)

Du gibst der Format-Funktion nen String, der Platzhalter beinhaltet, und dann setzt sie die variablen ein, die ihr im 2. Argument übergeben werden.

[Glocke89]

okay. danke für die Info :)
Wegen dem Array ... ich könnte zwar die Anzahl einfach sehr hoch machen aber das wäre (1) kein guter Stil und (2) bei größeren Programmen u.U. sehr speicherlastig.

PS: in der Berufsschule hatten wir heute Zeiger (wir machen das zwar mit C++ aber egal). Kann man hier mit Zeigern was optimieren?