Delphi-Quellcode:
saveDialog1.Filter := '
GIF Image (*.gif)|*.gif|TIF Image (*.tif)|*.tif';
if savedialog1.Execute
then
begin
case StrIndex(ExtractFileExt(savedialog1.Filename), ['
.GIF', '
.TIF'])
of
0 :
// Gif
1 :
// Tif
else
raise Exception.Create('
Bildformat wird nicht unterstützt');
end;
end;
Mit ExtractFileExt holst du die Erweiterung (inklusive dem Punkt) aus einem Dateinamen.
StrIndex() ist wohl nicht in deiner
VCL enthalten.
Diese Funktion gibt es auch unter dem Namen CaseStr() oder CaseString().
Kopiert aus der JCL:
Delphi-Quellcode:
function StrIndex(const S: string; const List: array of string): Integer;
var
I: Integer;
begin
Result := -1;
for I := Low(List) to High(List) do
begin
{$IFDEF CLR}
if SameText(S, List[I]) then
{$ELSE}
if AnsiSameText(S, List[I]) then
{$ENDIF CLR}
begin
Result := I;
Break;
end;
end;
end;