Delphi 7
Ich möchte eine Komponente schreiben und eine nicht-published Eigenschaft in der
Formular Datei speichern. Folgender Code funktioniert nur, wenn ich einen
integer Wert abspeichere (dieses Beispiel findet man in allen Büchern).
Ersetzt man writeint durch writestr, bricht das Ganze ab beim Laden des Formulars, welches diese komponente nutzen soll. Wo liegt der Fehler ??
Delphi-Quellcode:
type tkomponente = class(tpersistent)
private
fbackstr : string;
fbackint : integer;
.....
end
//=================================================================
//=================================================================
procedure tkomponente.defineproperties(filer: tfiler);
begin
inherited;
filer.defineproperty('Backupval',Readpropsyncarr,writepropSyncarr,true);
end;
//===================================================================
procedure tkomponente.Readpropsyncarr(reader: treader);
begin
fbackstr := reader.ReadString; // :wall: löst den Fehler aus.. !!!!!!
{ fbackint := reader.ReadInteger; // geht
end;
//===================================================================
procedure tkomponente.writepropSyncarr(writer: twriter);
begin
writer.WriteString('Hallo'); // Fehler behaftet
{ writer.writeinteger(22); // geht }
end;
//===================================================================
Hat einer eine Idee ?
arturx
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]