Hallo,

hab ne Kompo gebaut. Sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

unit StringStorage;

interface

uses Classes;

type
  TStringStorage = class(TComponent)
  private
    FStrings: TStrings;
    procedure SetStrings(const Value: TStrings);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property AllStrings: TStrings read FStrings write SetStrings;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('BMS Translation',[TStringStorage]);
end;

{ TStringStorage }

constructor TStringStorage.Create(AOwner: TComponent);
begin
  inherited;

  FStrings := TStringList.Create;
end;

procedure TStringStorage.SetStrings(const Value: TStrings);
begin
  FStrings.Assign(Value);
end;

end.

Eigentlcih nix großartiges. In n Package gepackt und installiert.

aber folgendes passiert:

- kompo auf form ziehen
- im OI auf AllStrings doppelklicken -> Strings-Editopr
- irgendwas eingeben -> schließen
- editor wieder öffnen: Leer!
- wieder eingeben, udn schließen
- editor wieder öffnen: Ungültige zeigeroperation, AV, sonstiges.

warum?!

Habs eben nachgestellt und es klappt problemlos.

Der Destructor fehlt übrigens aber eigentlich solltes daran nicht scheitern...

Ich werds nochmal mit nem ganz neuen Projekt versuche, sprich die bpl entfernen und den Code kopieren. Mal sehen, vielleicht klappts dann.

EDIT: Jop, tuts.

du solltest noch darauf eingehen das auf AllString nil zugewiesen wird. Und wie bereits erwähnt unbedingt den destructor überschreiben und den reservierten speicher darin auch wieder frei geben.

Jop.

Ein Problem hab ich jetzt noch.

In der DFM wird die strings-property (umbenannt in Strings) als "Strings.Strings" gespeichert:

markieren

Delphi-Quellcode:

object StringStorage1: TStringStorage
    Strings.Strings = (
      'abcdef'
      'def')
    Left = 296
    Top = 112
  end

Und die Frage ist wie üblich: Warum?

EDIT: Ich sehe gerade. beim memo ist das auch so(da heißts Lines.Strings). okay, dann muss ich da selbst was machen.

Weil Strings eine Eigenschaft von TStrings ist.