本文整理自网络，侵删。
{$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 按字符串长度对tstringlist的元素进行排序
Delphi读取radiogroup选中按钮的string文本
Delphi中write,read,writeln和readln的用法
Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己
更多相关阅读请进入《Delphi》频道 >>
