Форум программистов [Powered by Invision Power Board]

Код


  protected
    FContent: TStringList;
    procedure set_FContent(Value: TStringList);
    ...
  published
    property Content: TStringList read FContent write FContent;
    ...

procedure TXP_Bar.set_FContent(Value: TStringList);
begin
  FContent:=Value;
end; 
...
constructor TXP_Bar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FContent:= TStringList.Create;
end;

Код


---------------------------
Error
---------------------------
Access violation at address 40005A0C in module 'rtl70.bpl'. Read of address 0D8425DB.
---------------------------
OK   
---------------------------

Цитата(alexeis1 @ 10.9.2006, 02:04)

Ak47black, код нормальный здесть ошибок нет. Надо дебагить пошагово и искать строку с ошибкой, иначе счастья не видать.

Цитата

попробуй объявить TStrings, а создавай StringList

Код


property Content: TStringList read FContent write set_FContent;

Код


unit TestComponent;

interface

uses
  SysUtils, Classes, Dialogs;

type
  TCustomTestComponent = class(TComponent)
  private
    { Private declarations }
    FContent: TStrings;
  protected
    procedure SetLines(Value: TStrings);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Content: TStrings read FContent write SetLines;
    procedure Show;
  end;

  TTestComponent = class(TCustomTestComponent)
  published
    property Content;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TTestComponent]);
end;

{ TTestComponent }

constructor TCustomTestComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FContent := TStringList.Create;
end;

destructor TCustomTestComponent.Destroy;
begin
  FContent.Free;
  inherited;
end;

procedure TCustomTestComponent.SetLines(Value: TStrings);
begin
  FContent.Assign(Value);
end;

procedure TCustomTestComponent.Show;
begin
  ShowMessage(FContent.Text);
end;

end.