delphi字符串截取

勞動保險,勞動保險1,勞動保險2,勞動保險3,勞動保險4

經過stringlist字符串數組截取','生成

勞動保險

勞動保險1

勞動保險2

勞動保險3

勞動保險4

代碼以下：

procedure TMainForm.UniComboBox1DropDown(Sender: TObject);
var
  strTemp,strReplace,str:string;
  iLength,I:integer;
begin
  for I := 0 to FileNames.Count-1 do
  begin
    FileNames[I] := 'false';
  end;

  strTemp := UniComboBox1.Text;
  strReplace := StringReplace (strTemp, ',', '', [rfReplaceAll]);

//得出','的個數  

iLength := strTemp.Length - strReplace.Length;    
  strReplace := strTemp;

  for I := 0 to iLength do
  begin
//截取字段爲str,剩餘字段爲strReplace    

str := strReplace.Substring(0,AnsiPos(',',strReplace)-1);
strReplace := strReplace.SubString(AnsiPos(',',strReplace),strReplace.Length-AnsiPos(',',strReplace));

    if not str.Trim.IsEmpty then
    begin
      FileNames.Values[str] := 'true';
    end
    else
    begin
      FileNames.Values[strReplace] := 'true';
    end;

  end;
//保存最後一個字符串 

str := strTemp.SubString(0,strTemp.Length-strReplace.Length-1);

end;

 

C++ builder實現功能以下

  AnsiString strTemp = medt1->Text;
  AnsiString strReplace =  ReplaceStr(strTemp,"-","");
  AnsiString str=strTemp;

  int iLength = strTemp.Length()- strReplace.Length();   for(int i=1;i<=iLength;i++)   {     str = str.SubString(str.Pos("-")+1,str.Length()-str.Pos("-"));   }   ShowMessage("str1:"+str);   str = strTemp.SubString(1,strTemp.Length()-str.Length()-1);