Relative Zuordnung

[d3g]

Hallo Guenni_d,

beim Stöbern in der Delphi-Hilfe ist mir dieser Eintrag aufgefallen:

Zitat von Delphi 6-Hilfe:

This example shows how to load and save an unpublished property whose value is a component that was created at runtime. It defines two methods, LoadCompProperty and StoreCompProperty that load or save the property value. The also defines an override for the DefineProperties method where these methods are passed to the streaming system. The DefineProperties method checks the filer's Ancestor property to avoid saving a property value in inherited forms.

Code:

procedure TSampleComponent.LoadCompProperty(Reader: TReader);
begin
  if Reader.ReadBoolean then
    MyCompProperty := Reader.ReadComponent(nil);
end;

procedure TSampleComponent.StoreCompProperty(Writer: TWriter);

begin
  Writer.WriteBoolean(MyCompProperty <> nil);
  if MyCompProperty <> nil then
    Writer.WriteComponent(MyCompProperty);
end;

procedure TSampleComponent.DefineProperties(Filer: TFiler);

  function DoWrite: Boolean;
  begin
    if Filer.Ancestor <> nil then { check Ancestor for an inherited value }
    begin
      if TSampleComponent(Filer.Ancestor).MyCompProperty = nil then
        Result := MyCompProperty <> nil
      else if MyCompProperty = nil or 
         TSampleComponent(Filer.Ancestor).MyCompProperty.Name <> MyCompProperty.Name then
        Result := True

      else Result := False;
    end
    else { no inherited value -- check for default (nil) value }
      Result := MyCompProperty <> nil;
  end;
begin
  inherited; { allow base classes to define properties }
  Filer.DefineProperty('MyCompProperty', LoadCompProperty, StoreCompProperty, DoWrite);
end;

Wenn du deine Anwendungen auf diese Weise übersetzen wilst (etwas anderes kann ich mir bei deiner Frage schlecht vorstellen), könnte das das richtige für dich sein. Übrigens gibt es für diese Aufgabenstellung Komponenten, wenn du welche benutzen willst, kannst du dich ja mal bei den Links umschauen.

MfG,
d3g