Items in TComboBox überschreiben

[emailantbgmxde]

Hallo!

Ich habe eine Klasse geschrieben, die von TStringList abgelitten ist und ein paar extra Prozeduren wie z.B. deleteDublicates enthält:

Delphi-Quellcode:

type
    TStringListX = class(TStringList)
    public
        procedure DeleteText(text:string);
        procedure DeleteDublicates;
    end;

Die möchte ich jetzt gerne für den Inhalt einer TComboBox nutzen.
Also habe ich eine neue Klasse erstellt

Delphi-Quellcode:

type
  TComboExt = class(TComboBox)
  end;

Wie kann ich nun die items der TComboBox mit neuen items vom Typ TStringListX überschreiben? Geht das überhaupt so einfach? Override geht ja nur für Prozeduren und Funktionen?

Besten Dank schon mal,
Thomas

[Bummi]

Über Classhelper oder Casts...

Delphi-Quellcode:

type
   TStrings=Class(Classes.TStrings)
    public
        procedure DeleteText(text:string);
        procedure DeleteDublicates;
    end;
  TForm1 = class(TForm)

...
 TStrings(Combobox1.Items).deletetext('Nase21');

[emailantbgmxde]

Etwas umständlicher als gedacht (mit dem extra TStrings() ) aber es funktioniert, besten Dank!

Thomas

[jaenicke]

Ein class helper wäre auch sinnvoller, weil man den einfach in einer externen Unit deklarieren und überall einbinden kann. Dann braucht man auch keine Casts:

Delphi-Quellcode:

type
  TMyStringsClassHelper = class helper for TStrings
    procedure DeleteText(const AText: String);
    procedure DeleteDuplicates;
  end;

Dann kannst du einfach ComboBox1.Items.DeleteText aufrufen. Den Parameter solltest du auch nicht ausgerechnet text nennen, da die Eigenschaft auch in TStrings schon existiert...
Und nebenbei schreibt man Duplikate auch im englischen mit p. ;-)

[Furtbichler]

Class Helper gibt es in Delphi 6 doch gar nicht.

Bezüglich der 'Duplicates'-Geschichte könnte es ausreichen, die Eigenschaft 'Duplicates' auf 'dupIgnore' zu setzen.

[DeddyH]

Duplicates gibt es erst ab TStringlist, aber nicht in TStrings.

[jaenicke]

Zitat:

Zitat von Furtbichler (Beitrag 1156088)

Class Helper gibt es in Delphi 6 doch gar nicht.

Ich übersehe die Versionsangabe da oben jedesmal. :oops: