열거형에서 문자열을 취득하는 함수.

열거형에서 문자열을 취득하는 함수.

{

열거형의 값을 문자열로 변환 하고 prefix를 제거한 값을 되돌린다.

예를들어 비트레이트의 열거형이 존재 한다고 할때, 값이 br1200인데 1200만 취득하고 싶을때 사용한다.

인자:

AEnumType: TypeInfo; // 열거형

AValue: Integer; // 열거형 값

APrefix:string; // 열거형의 제거 할 부분

리턴값:

문자열.

사용법:

sBitrate := EnumNameToStr(TypeInfo(TBitrate), Ord(br1200), 'br');

}

function TEncodeOption.EnumNameToStr(AEnumType: TypeInfo; AValue: Integer; APrefix:string): string;

begin

  Result := GetEnumName(TypeInfo(AEnumType), AValue) ;

  Result := Copy(Result, Copy(Result, 1, Length(APrefix))+1, Length(Result));

end;