В общем есть такая конструкция, при выполнении программы она ругается и вылетает(EAccessViolatation) на процедуре добавления, в чем проблема ?
TsomeClass=class
public
a:array of string;
procedure Add(s:string);
end;
procedure TsomeClass.Add(s:string);
begin
Setlength(a,length(a)+1);
a[high(a)]:=s;
end;
.....
var
somearray:array of TsomeClass;
begin
Setlength(somearray,1);
somearray[0].Add('str');
end;
TsomeClass=class
public
a:array of string;
procedure Add(s:string);
end;
procedure TsomeClass.Add(s:string);
begin
Setlength(a,length(a)+1);
a[high(a)]:=s;
end;
.....
var
somearray:array of TsomeClass;
begin
Setlength(somearray,1);
somearray[0].Add('str');
end;