Loading data from dfm

[Stano 143]

Custom component

    FCaptions: TStrings;
//  or FCaptionsAdded: TStringList;

I'm trying 

• property as published. I am not entering this process
• Writer and Reader
• TStream

The entry is OK
I won't even get into the reading method. I have these errors:

•   published - Error reading Nav.CaptionsAdded.Strings: invalid property path (???)
•   other - Error creating form in MainForm.dfm: Error reading jstnav2.CaptionAdded: Access violation at address 4E352E4F in module 'JasotComponents.bpl'. Read of address 00000000

As a layman. I don't understand why this is happening at all.
 

[David Heffernan 2353]

I can't make any sense of what you are asking here. 

[Uwe Raabe 2064]

Me too. Perhaps showing your code can shed some light on it.

[FPiette 385]

Try creating a component with the bare minimum to reproduce your problem and a strict minimal application using it and demonstrating the issue. Then publish your code here.

[Stano 143]

I thought the problem was clear I can't read the data from dfm. That is all.

To be sure, I enclosed the entire passport. Interesting are:

    FCaptionsAdded: TStrings;
    procedure ReadCaptionAdded(Reader: TReader);
    procedure WriteCaptionAdded(Writer: TWriter);
 

procedure TjstVstDBNavigator.WriteCaptionAdded(Writer: TWriter);
begin
   Writer.WriteListBegin;

   try
     for var I := 0 to FCaptionsAdded.Count - 1 do
       Writer.WriteString(FCaptionsAdded[I]);
   finally
     Writer.WriteListEnd;
   end;
end;
procedure TjstVstDBNavigator.ReadCaptionAdded(Reader: TReader);
var
  Len: Integer;
begin
ShowMessage('ReadCaptionAdded');  // I won't get here
end;

 

jstVstDBNavigator.pas

MainForm.dfm

MainForm.pas

[Uwe Raabe 2064]

FCaptionsAdded is created in procedure NewStrings, which itself is calle in CreateWnd. The loading process happens way before the window is created, so there is no instance of FCaptionsAdded during loading.

 

Best is to create all instances of the fields inside the class in its Create routine and free them in Destroy.

[Stano 143]

Well thank you. It makes sense.

[Remy Lebeau 1436]

On 3/26/2022 at 3:00 AM, Stano said:

 

procedure TjstVstDBNavigator.WriteCaptionAdded(Writer: TWriter);
begin
  ...
end;

procedure TjstVstDBNavigator.ReadCaptionAdded(Reader: TReader);
begin
  ...
end;

 

Uwe Raabe already nailed the root cause of your error - FCaptionsAdded is not instantiated early enough, so it is nil when the DFM system is trying to access it.  The real question is, why are you MANUALLY streaming FCaptionsAdded AT ALL?  TStringList is a TPersistent descendant that implements its own native DFM streaming logic.  So, it is enough to just declare a TStrings/TStringList property in your component and back it with a VALID TStringList instance at component creation, no manual streaming is necessary.

Edited March 27, 2022 by Remy Lebeau

[Stano 143]

I do not want to publish these properties. I have a ComponentEditor on them. Of course I can change that.
I tried it. Write OK, loading failed! And that's a big problem.

[Pat Foley 52]

I suspect the root cause is one needs to override the virtual method with override then the inherited can be commented out or moved as needed. 

[Stano 143]

It is possible. I had a hidden error (out of range) that could have caused it. After removing it, I did not try published.

Thanks to Uwe, I solved the problem immediately with Loaded.

[Stano 143]

The error was in the file itself. I set him full access rights. Nothing.
I created a new one. Both writing and reading work. I can debug it.

[Stano 143]

The dfm file is obviously annoyed by the manual intervention in its contents.