DELPHI AREA Forum

Hello All!

The objects Node and Link is have the field DATA (TPointer). I would like to store additional parameters (Trecord or TObject) in these objects.

1. Will save the settings when you save SimpleGraph?

2. Please give sample code to work with these field.

Thanks in advance,
slavapro

Use OnObjectWrite event to save additional data of objects to the output stream, and use OnObjectRead event to load the additional data from the input stream.

Thanks for the quick response!

However, the description of the process is very scant. Could you give an example code?

It's very simple.

Code: Select all

type
  PExtraObjectData = ^TExtraObjectData;
  TExtraObjectData = record
    CreationDate: TDateTime;
    ModifiedDate: TDateTime;
  end;

procedure TForm1.SimpleGraph1ObjectWrite(Graph: TSimpleGraph;
  GraphObject: TGraphObject; Stream: TStream);
begin
  if Assigned(GraphObject.Data) then
    Stream.Write(GraphObject.Data^, SizeOf(TExtraObjectData));
end;

procedure TForm1.SimpleGraph1ObjectRead(Graph: TSimpleGraph;
  GraphObject: TGraphObject; Stream: TStream);
begin
  if not Assigned(GraphObject.Data) then
    GraphObject.Data := AllocMem(SizeOf(TExtraObjectData));
  Stream.Read(GraphObject.Data^, SizeOf(TExtraObjectData));
end;

Thank you!
Really very simple.