Question

我在文件打开对话框上有一个过滤器

  Docs :=  Indscannet fil (*.jpg)|*.jpg|Indscannet fil (*.tif)|*.tif|  +
           Word 2007 dokument (*.docx)|*.docx|Word 2003 dokument (*.doc)|*.doc|  +
           PDF fil (*.pdf)|*.pdf|Alle filer (*.*)|*.* ;

当我选择一个文件时, 可以说它叫堆叠.pdf, 我想知道它是5型(jpg=1, tif=2, docx=3, doc=3, doc=4, pdf=5)

如何以最简单的方式做到这一点?

之所以如此,是因为用户几乎总是会添加相同类型的若干文档,如果这是一个PDF,我知道这在我的过滤器中是5号,下次用户会添加一个文件,我就可以从一开始就设置 dlg Open.FilterIndex 到 5e, 这样他们就不必每次选择它。如果是20个文档, 它可能省下几个小字节。

Answer 1

更新: 正如@ David Heffernan 在下面的评论中所提到的, FilterIndex 并不总是匹配实际的文件扩展名; 所以您应该不使用 < code> FilterIndex 来确定文件类型。因此, 您必须提取文件扩展名并使用它。

您可以定义已知的文件类型计数, 如 :

TKnowFiles = (kfUnknown, kfJpg, kfTif, ...)

您也可以定义他们的名字,比如

const FilterNames = array[TKnownFiles] of string = ( Any file , ...);

then you can use RTTI functions getEnumName/getEnumValue to convert kfJpg to string representation and build Filter string at runtime. also using enumeration allows you to easily maintain and extend your code (what if you have to insert BMP files between tif and docx next week? docx, doc,pdf becoome 4,5,6 instead of 3,4,5 and you sould edit your code. )
one of possible solutions is:

type
    TKnownFileTypes = (kftUnknown, kftJpg, kftTif, kftDocx, kftDoc, kftPdf);
const
    FileFilterNames : array[TKnownFileTypes] of string = (
                             Alle filer ,
                             Indscannet fil ,
                             Indscannet fil ,
                             Word 2007 dokument ,
                             Word 2003 dokument ,
                             PDF fil );

procedure TForm4.Button1Click(Sender: TObject);
const KnownFiles = [low(TKnownFileTypes) .. high(TKnownFileTypes)];
var filterString : string;
    fext : string;
    kf : TKnownFileTypes;
    kfs : string;

    resultFileType : TKnownFileTypes;
begin
    for kf in KnownFiles - [kftUnknown] do begin
        kfs := getEnumName(typeinfo(TKnownFileTypes), ord(kf));
        Delete(kfs, 1, 3);
        LowerCase(kfs);

        FilterString := FilterString +
                        Format( %s (*.%s)|*.%s| , [FileFilterNames[kf], kfs, kfs]);

    end;
    FilterString := FilterString + Format( %s (*.*)|*.* , [FileFilterNames[kftUnknown]]);
    OpenDialog1.Filter := FilterString;

    if not OpenDialog1.Execute() then exit;

    fext := ExtractFileExt(OpenDialog1.FileName);
    Delete(fext, 1,1); //delete .dot
    fext :=  kft  + fExt;

    resultFileType := kftUnknown;
    for kf in KnownFiles - [kftUnknown] do begin
        kfs := getEnumName(typeinfo(TKnownFileTypes), ord(kf));
        kfs := LowerCase(kfs);
        if kfs <> fext then continue;

        resultFileType := kf;
    end;

    ShowMessage(Format( File Type: %s , [FileFilterNames[resultFileType]]));
end;

Answer 2

您可以使用"http://docwiki.embarcadero.com/Libraries/en/System.SysUtils.ExtractFileExt" rel="nofollow"\\code>ExtractFileExt 从整个路径提取文件扩展名。

或者使用 openDialog.FilterIndex 属性来获取选中过滤器的索引( 在您的情况下, pdf 5 个) 。

Answer 3

我的解决方案是

function ExtensionIndex(const aFilter, aFile: string): integer;
var
  List: TStringList;
  Buffer: TStringList;
  i: Integer;
  Key: string;
  fExt: string;
begin
  Result := - 1;
  i := 0;
  List := TStringList.Create;
  List.LineBreak :=  | ;
  List.Text := aFilter;
  Buffer := TStringList.Create;
  Buffer.Sorted := False;
  try
    while i < List.Count do
      begin
        inc(i);
        Key := AnsiLowerCase(List[i]);
        inc(i);
        Buffer.Add(Key);
      end;
    fExt := AnsiLowerCase(ExtractFileExt(aFile));
    for i := 0 to Buffer.Count - 1 do
      if Buffer[i] =  *  + fExt  then
        begin
          Result := i + 1;
          exit;
      end;
  finally
    FreeAndNil(Buffer);
    FreeAndNil(List);
  end;
end;

这招对我有好处

友情链接