function GetButtonEditValue(bedt: TccButtonEdit): string;
来源:互联网 发布:如何彻底卸载java mac 编辑:程序博客网 时间:2024/05/01 19:53
function GetButtonEditValue(bedt: TccButtonEdit): string;
var
i: integer;
j: Integer;
strList: TStringList;
begin
if not bedt.MultiSelect then
raise Exception.Create('本方法只支持MultiSelect为True的ButtonEdit');
strList := TStringList.Create;
try
strList.Delimiter := ',';
strList.DelimitedText := bedt.Text;
Result := '';
for i:=0 to strList.Count-1 do
begin
j := bedt.Items.IndexOf(strList[i]);
if j>-1 then
begin
if Result='' then
Result := bedt.Values[j]
else
Result := Result+','+bedt.Values[j];
end;
end;
finally
strList.Free;
end;
end;
- function GetButtonEditValue(bedt: TccButtonEdit): string;
- String Function
- String function
- string function
- function <string> std::getline (string)
- [函数]function GetLocalSQLDataPath: string;
- Python-String-Function
- c++ trim function string
- Python-String-Function
- MySQL Split String Function
- javascript 之 RegExp Function String
- Optimizing string function in UE4
- jQuery String Template Format Function
- function GetVersion(sFile: string; bIncludeBuild: boolean): string;
- sth about the string function strdup
- Java Function转换Unicode到String
- ExternalInterface.addCallback(functionName:String, closure:Function):void
- Extjs-扩展 Date String Function Number Array
- netlink API changes
- 什么是JOSN
- 工行再现诡异成交单 “二百五”代替“气死你”
- 见证一个菜鸟在大牛的头顶上飞过的传奇
- eclipse搭建SSH框架详解
- function GetButtonEditValue(bedt: TccButtonEdit): string;
- 理解kcm文件的意义
- ViewGroup中bringToFront深入解析
- eclipse搭建SSH框架详解
- 并查集基础题 POJ1611 POJ1703 POJ1988
- 区分Activity的四种加载模式
- C语言空指针---(转)
- eclipse搭建SSH框架详解
- JVM优化配置(转)