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 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

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

[Dax]

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

[Glocke89]

Zitat von Dax:

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

xD stimmt

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?

[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 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?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?