Dynamic arrays of record/object

Hi Al,

I ready to pull out my hair on the creation of dynamic arrays of a
record or object. For some reason I'm having problems setting the
lenght of the array and assigning values to the elements of the array
(which is a record). I have included source code. Please help!


type

TSectionData = record
DataHeader: string;
Data: string;
end;


TXMLSectionData = class(TObject)

private
FCount: Integer;
FSectionData: array of TSectionData;
function GetCount: integer;
public

constructor Create;
destructor Destroy; override;

property Count: integer read GetCount write FCount;

procedure AddSection(DataHeader: string; Data: string);

end;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TXMLSectionData }

procedure TXMLSectionData.AddSection(DataHeader, Data: string);
begin
SetLength(FSectionData,FCount+1);
FSectionData[FCount].DataHeader:= DataHeader;
FSectionData[FCount].Data:= Data;
Inc(FCount);
end;

constructor TXMLSectionData.Create;
begin
inherited;
FCount:= 0;
SetLength(FSectionData,FCount);
end;

destructor TXMLSectionData.Destroy;
begin

inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Data: TXMLSectionData;
begin
Data.Create;
Data.AddSection('Header1','test data');

end;

function TXMLSectionData.GetCount: integer;
begin
Result := FCount;
end;

end.
.

Quantcast