本文整理自网络，侵删。
{$IFDEF IOS}uses iOSapi.UIKit, iOSapi.Foundation, Macapi.Helpers;{$ENDIF}{$IFDEF ANDROID}uses androidapi.JNI.JavaTypes, Androidapi.Helpers, androidapi.JNI.Os;{$ENDIF}
{$IFDEF ANDROID}
function GetCodename(VerString: string): string;begin if VerString = '1.0' then Result := 'BASE' else if VerString = '1.1' then Result := 'BASE_1_1' else if VerString = '1.5' then Result := 'CUPCAKE' else if VerString = '1.6' then Result := 'DONUT' else if VerString = '2.0' then Result := 'ECLAIR' else if VerString = '2.0.1' then Result := 'ECLAIR_0_1' else if VerString = '2.1' then Result := 'ECLAIR_MR1' else if VerString = '2.2' then Result := 'FROYO' else if VerString = '2.3' then Result := 'GINGERBREAD' else if VerString = '2.3.3' then Result := 'GINGERBREAD_MR1' else if VerString = '3.0' then Result := 'HONEYCOMB' else if VerString = '3.1' then Result := 'HONEYCOMB_MR1' else if VerString = '3.2' then Result := 'HONEYCOMB_MR2' else if VerString = '4.0' then Result := 'ICE_CREAM_SANDWICH' else if VerString = '4.0.3' then Result := 'ICE_CREAM_SANDWICH_MR1' else if VerString = '4.1' then Result := 'JELLY_BEAN' else if VerString = '4.2' then Result := 'JELLY_BEAN_MR1' else if VerString = '4.3' then Result := 'JELLY_BEAN_MR2' else if Pos('4.4',VerString) = 1 then Result := 'KITKAT' else Result := 'UNKNOWN';end; 相关阅读 >>
Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）
Delphi tms web core webmemo 横竖滚动条
Delphi dateof、timeof、yearof、monthof、weekof、dayof、hourof、minuteof、secondof、millisecondof �c 提取时间成分
更多相关阅读请进入《Delphi》频道 >>
