.Lines in einer geerbten TRichEdit ändern

[mkinzler]

Unter Komponenten->Packages-Installieren Package markieren und "Entfernen" auswählen.

Hast du die Unit umbenannt?

[Green]

Unit hab ich nit umgenannt... soll ich?

package is deinstalliert...

[mkinzler]

Zitat:

Unit hab ich nit umgenannt... soll ich?

den es gibt im Delphiverzeichnis schon eine datei dieses Namens.

[Green]

ja genau das is mir eben aufgefallen...

umgenannt: geht, ^^

aber das geht jetzt wieder nit:

Delphi-Quellcode:

//deklaration (geht)
  public
    function Add(const S:string): integer; override;
//geht nit : unbekannte direktive 'override'
function TColoredStrings.Add(const S:string): integer; override;
begin
  showmessage(S);
end;

[mkinzler]

Da TStrings eine abstrakte Klasse ist, mußt du das override weglassen oder besser als Basisklasse TStringList nehmen.

[Green]

wie meinste das jetzt?? also statt TStrings TStringList als Lines nehmen oder was??

[mkinzler]

Ja, dann mußt du nicht alle abstrkten Methoden selber implementieren.

[Green]

was meinst du jetzt für abstrakte methoden, und wieso kann ich des mit TStrings nit machen??

[mkinzler]

TStrings ist eine abstrakte Klasse, d.h. die Methoden sind nicht implementiert. Siehe auch bei Wikipedia. TStringList ist die entsprechende Klasse mit implementierten Methoden.

[Green]

also ich hab folgenden code in einem Package installiert und es kam auch die meldung das die Kompo installiert wurde, aber immer wenn ich sie dann auf ein formular ziehe, kommt wenn ich die strg+leer taste drück 'programmierhilfe kann nicht aufgerufen werden das der quelltext fehler enthält, aber da is absolut kein fehler.. kannst du mir helfen?

hier die codes:
das meine Kompo (kennste die :D )

Delphi-Quellcode:

unit Unit2;

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;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;


  TQRichEdit = class(TRichEdit)
  private
    { Private-Deklarationen }
    FMyLines: TColoredStrings;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Lines: TColoredStrings read FMyLines write FMyLines;
  end;

procedure Register;

implementation

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

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

end.

und hier der aufruf:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Unit2;

type
  TForm1 = class(TForm)
    Button1: TButton;
    QRichEdit1: TQRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('asd');
end;

end.

aber wo zur hölle is der Fehler???????