compile filer i exe resource i designtime

det gør du ved at lave din egen property type ( binær f.eks. ) og streame den ned i dfm filen, så du har den runtime, du kan tage online-hjælp på denne :

procedure DefineProperties( Filer : TFiler ); override;

har du et eks til det...? :)

procedure TSQLLinkCollection.ReadLinks( Reader : TReader );
begin
  with Reader do
  begin
      ReadListBegin;
      while not EndOfList do
      begin
        with AddLink do
        begin
            DisplayName := ReadString;
            DisplayLabel := ReadString;
            FieldName := ReadString;
            FDataType := TFieldType(GetEnumValue(TypeInfo(TFieldType),ReadString));
            CtrlName := ReadString;
            CtrlProp := ReadString;
            FieldLen := ReadInteger;
        end;
      end;
      ReadListEnd;
  end;
end;

procedure TSQLLinkCollection.WriteLinks( Writer : TWriter );
VAR
  Cnt : Integer;
begin
  with Writer do
  begin
      WriteListBegin;
      for Cnt := 0 to FLinks.Count-1 do
      begin
        WriteString(Link[Cnt].DisplayName);
        WriteString(Link[Cnt].DisplayLabel);
        WriteString(Link[Cnt].FieldName);
        WriteString(Link[Cnt].GetDataTypeAsString);
        WriteString(Link[Cnt].CtrlName);
        WriteString(Link[Cnt].CtrlProp);
        WriteInteger(Link[Cnt].FieldLen);
      end;
      WriteListEnd;
  end;
end;

procedure TSQLLinkCollection.DefineProperties(Filer: TFiler);
begin
  inherited;
  Filer.DefineProperty('Link',ReadLinks,WriteLinks,FLinks.Count > 0);
end;

Og ta' så lige og læs online hjælpen ikk'

Hvordan tror du jeg har fundet ud af det !

>>martinlind: mybad - havde overset at du refererede til online-help; det er vist mig der skylder en øl i lufthavnen ;)

men tak for hjælpen :)

Selv tak :)