读取combobox中部分数据

Question

例如:combobox.text=XXXXX-XXXXX  其中'-'前后的数据位数都不确定  
如何得到'-'以前或以后的数据

Answer 1

用pos取得-的位置
i:=pos('-',combobox.text);然后用copy取得子字符串
substr1:=copy(combobox.text,1,i-1);
substr2:=copy(combobox.text,i+1,length(combobox.text)-i)

Answer 2

for i:=0 to combobox.Items.Count-1 do
    begin
        strTemp:=combobox.Items[i];
        str1:=Copy(strTemp,1,Pos('-',strTemp)-1); //取'-'前的字符
        str1:=Copy(strTemp,Pos('-',strTemp)+1,lengath(strTemp)-1); //取'-'后的字符
    end;