TFindOption 与 Text

Question

TFindOption不是有好多的值，但我不知如何把它们转化为字符串

Answer 1

将枚举型转成字符串，用case一个个地转换：function FindOptionToStr(AFindOption: TFindOption):String;
begin
  case AFindOption of
    frDown : Result:= 'frDown';
    frFindNext : Result := 'frFindNext';
    frHideMatchCase : Result := 'frHideMatchCase';
    frHideWholeWord :Result := 'frHideWholeWord';
    frHideUpDown :Result := 'frHideUpDown';
    frMatchCase  :Result := 'frMatchCase';
    frDisableMatchCase :Result :='frDisableMatchCase';
    frDisableUpDown    :Result := 'frDisableUpDown';
    frDisableWholeWord :Result := 'frDisableWholeWord';
    frReplace  :Result := 'frReplace';
    frReplaceAll  :Result := 'frReplaceAll';
    frWholeWord :Result := 'frWholeWord';
    frShowHelp  :Result := 'frShowHelp';
  end;
end;

Answer 2

uses typinfoprocedure TForm1.Button3Click(Sender: TObject);
var
  findOp : TFindOption;
begin
   findop := frDown;
   Caption := GetEnumName(typeinfo(tFindOption),ord(findop));
end;