[OO] checklistbox erweitern

[Go2EITS]

Meine Frage an die DP.

Ich stehe mit OO auf Kriegsfuss. Bevor ich nun eine Woche benötige, um mich reinzulesen, traue ich mich mal hier her und frage, wie ich die Checklistbox um eine Boolean Funktion erweitere:
Dies dürfte auch für andere User der DP interessant sein.

Es scheint unter den Methoden der Checklistbox keine zu geben, die alle Einträge, die mit Hacken versehen sind, zu löschen. Daher mein "Rahmen:"

Delphi-Quellcode:

Procedure DeleteChecked:Boolean;
begin
result:=False
if checklistbox1.SelCount=0 then exit;
for i:=checklistbox1.count-1 downto 0 do
  begin
   if checklistbox1.Checked[i]=true then
    checklistbox1.items.Delete(i);
end;
result:=true;
end;

Wie gehe ich vor, um diese Methode zu ergänzen?
Danke für die Hilfe im voraus!

Go2EITS

[mkinzler]

Leite dir ne eigene Klasse von TChecklistbox ab und erweitere diese um diese Methode.

Delphi-Quellcode:

type
   TnChecklistbox = class( TChecklistbox)
      function DeleteChecked:Boolean;
   end;

function TnChecklistbox.DeleteChecked:Boolean;
...

[Go2EITS]

Hallo mkinzler,
danke für die schnelle Antwort.

Der Compiler meckert.
Implementation erwartet. Ich habe den Code nach Type Form1 und dem var Form1: TForm1;
vor die Implementation eingefügt. Ich habe natürlich den Code verschoben, aber da fehlt mir Know how, dass der Copiler es ohne Nörgeln annimmt.

Hast Du noch einen Tipp für mich übrig?

[mkinzler]

Was beanstandet der Compiler? Zeigm al die ganze Unit.

[Go2EITS]

Delphi-Quellcode:

unit mytest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, Buttons;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;

  type
   TnChecklistbox = class( TChecklistbox)
      function DeleteChecked:Boolean;
end;

implementation

{$R *.dfm}

end.

Hab es in eine Testform verfrachtet. In einer Unit allein habe ich es auch nicht zum Compilieren gebracht. Da muss wohl die Unit mit der Checklistbox-Klasse wohl eingebunden sein.
Jetzt die Fehlermeldung:
Ungenügende Forward- oder External-Deklaration...

[mkinzler]

Es fehlt ja uach dei Implementierung der Methode.

[Go2EITS]

:wall:
Ich dachte, die könnte ich später einzufügen. Es geht natürlich. Jetzt hab ich den Einstieg.

Herzlichen Dank und guten Abend noch, mkinzler.
Go2EITS