Die seltsame Combobox

[Delbor]

Hi zusammen

Die Lösung bahnte sich an, als ich versuchte, die Prozedur von der Mainform aus aufzurufen:

Delphi-Quellcode:

procedure TPDFOfficerMain.FormCreate(Sender: TObject);
  var LFTextSelection : String;
begin
 // DoTextSelectionEvent := PathFinderFrame1.OnTextSelectionEvent; 
  FAppDataPath := 'C:\PDFOfficerAppdata';
  PathFinderFrame1.OnTextSelectionEvent := DoTextSelectionEvent;
//  PathFinderFrame1.FileMaskInit;                                                           //<== Aufruf von hier
  if Fileexists(FAppDataPath+'\TVNameitems.txt') then 
  begin
    FSettingDefault := False;
    TVName.LoadFromFile(FAppDataPath+'\TVNameitems.txt');
  end    
  else
  begin
    FSettingDefault := true;
    FillTVName;
  end; 
end;

Das war erstmal nicht möglich, da ich die Prozedur im Basisframe gewohnheitsmässig private deklariert hatte. Also änderte ich das und verschob die Deklaration in den Puplic-Abschnitt.
Dabei vergass ich, den Aufruf von FileMaskInit aus dem Constructor des Basisframes zu entfernen.
Resultat: Die Items der Combobox waren jetzt doppelt vorhanden.
Fazit: der Basisframe vererbt an seine Instanzen nur das, was public deklariert ist - was ich eigentlich wissen müsste.

Zitat von Redeemer:

AddItem ist hier wirklich komplett falsch. Du musst schon Items.Add nehmen. Dann sollte es auch gehen.

Leider hast du meinen Eingangsthread etwas flüchtig gelesen - ich hatte beides versucht, und beides ging schief. Ich bin übrzeugt: public deklariert würde auch beides funktionieren.
Die Hilfe führt AddItem als Methode von TCustomCombo auf.

Gruss
Delbor

[Delbor]

Hi Delphi.Narium

Das mit dem leeren der Combobox muss ich noch einbauen, da deren Itemstext ansonsten bei jeder Änderung um die Länge des Arrays zunimmt - auf der andern Seite zeigte mir genau das doppelte Vorhandensein der Items meinen Fehler auf.

Das Feld FDefaultType hatte ich eingeführt, weil es möglich sein soll, einen Defaulttype anzuzeigen. Allerdings hatte ich da einen Denkfehler begangen: der Feldname FDefaultType kann nicht Teil meines Stringarrays sein, sondern allenfalls eines Aufzählungstyps wie zB.

TFileType = (ftDefaultType , ftBMP, ftNEF, ftJPG, ftPNG,ftPDF);

Hier könnte eine Funktion in einem Case-of-Block einen ExtenssionString ermitteln:

Delphi-Quellcode:

  case FFileType of of
  ftDefaultType : Result :=  '.'
  ftBMP : Result :=   '.bmp';
  ftNEF : Result :=  '.nef';
  ftJPG : Result :=  '.jpg';
  ftPNG : Result :=  '.png';
  ftPDF : Result :=  '.pdf';
  end;

Beim Array wärs grundsätzlich dasselbe, mit dem Unterschied, dass die gesuchten Strings (Result der Funktion) an den Ordinalpositionen schon vorhanden sind.

Ich schreibe dies hier übrigens so ausführlich, weil mir die Unterschiede von Aufzählungs-, Mengen- und Arraytypen keineswegs wirklich geläufig sind und ich hoffe, dies auf diese Weise etwas verbessern zu können.

Gruss
Delbor

[Sailor]

Setz mal den ItemIndex