benutze anstelle von
filer.defineproperty('Backupval',Readpropsyncarr,writepropSyncarr,true);
einfach
AFiler.DefineBinaryProperty('Backupval', Readpropsyncarr,writepropSyncarr, true);
deine read und write procedure musst du dann wie folgt abändern
Delphi-Quellcode:
procedure tkomponente.Readpropsyncarr(AStream : TStream);
[...]
procedure tkomponente.writepropSyncarr(AStream : TStream);
und in den Übergabestream kannst du dann beliebige Daten schreiben bzw. lesen
zum schreiben deines stirngs
Delphi-Quellcode:
var LInt: Integer;
begin
LInt := length(fbackstr);
AStream.Write(LInt, SizeOf(Integer));
AStream.Write(fbackstr[1], LInt);
zum lesen deines strings
Delphi-Quellcode:
var LInt: Integer;
begin
AStream.Read(LInt, SizeOf(Integer));
SetLength(fBackStr, LInt);
AStream.Read(fbackstr[1], LInt);