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