.Lines in einer geerbten TRichEdit ändern

[mkinzler]

Zitat:

könnte es sein das meinem TColoredStrings schlicht der constructor fehlt??

Nein da du keine neue Member-Objekte eingefügt hast, ist der geerbte Konstruktor ausreichend. Also beim mir funktioniert die Kompoenente in dem Testprogramm problemlos.
Was geht und was nicht?

[mkinzler]

Mir ist noch aufgefallen, daß ich den Destructor vergessen habe. Denn alle Objekte, die man manuell erzeugt, sollte man auch manuell freigeben.

Delphi-Quellcode:

destructor TPRichEdit.Destroy;
begin
  FMyLines.Destroy;
  inherited Destroy;
end;

[Green]

also ich hab jetzt mal deine Kompo installiert, aber obwohl ich sie installiert hab will er immer die unit in uses implentieren, ausserdem kann er sie in den Uses nit finden...

[Green]

ääähm das problem hab ich jetzt soweit geköst, also es funktioniert alles, aber wenn ich jetzt die function Add überschreiben will geht des irgendwie nit:

Delphi-Quellcode:

type {...}
  public
    //function AddLines(const S:string): integer;
    function Add(const S:string): integer; override;
     {...}

implementation

     {...}

function TColoredStrings.Add(const S:string): integer;
begin
  showmessage(S);
end;

warum geht des nit? ich krieg beim ausführen immer ne EAccesViolation...

[mkinzler]

Bei mir nicht, habe aber auch das

Delphi-Quellcode:

override;

weggelassen.

[Green]

warum weglassen? dann wirds doch gar nit überschrieben... bei mir gehts aber auch ohne override nit... genau der ngleiche fehler

[mkinzler]

Weil man es IMO nicht benötigt.

[Green]

was meinst du mit nicht benötigt?? warum gibts das Schlüsselwort dann??
aber auch ohne

Delphi-Quellcode:

override

gehts nit

[mkinzler]

Stell noch mal den Code der Unit ein.

[Green]

Delphi-Quellcode:

unit PRichEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs;

type
  TColoredStrings = class(TStringList)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    function AddLines(const S:string): integer;
    function Add(const S:string): integer;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;


  TPRichEdit = class(TRichEdit)
  private
    { Private-Deklarationen }
    FMyLines: TColoredStrings;
  protected
    { Protected-Deklarationen }
  public
    constructor Create( AOWner: TComponent);
    destructor Destroy;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Lines: TColoredStrings read FMyLines write FMyLines;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TPRichEdit]);
end;

function TColoredStrings.AddLines(const S:string): integer;
begin
  showmessage(S);
end;

function TColoredStrings.Add(const S:string): integer;
begin
  showmessage(S);
end;


constructor TPRichEdit.Create(AOWner: TComponent);
begin
  inherited Create( AOwner);
  FMyLines := TColoredStrings.Create;
end;

destructor TPRichEdit.Destroy;
begin
  FMyLines.Destroy;
  inherited Destroy;
end;

end.