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