Wie konnte ich by SaveDialog die richtige Component verwende

[sx2008]

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;