怎么截取'1;2;3;a;b;c'字符串

Question

怎么截取'1;2;3;a;b;c'字符串
只要分号中的字符.
截取完成后赋值
str1:=第一位;
str2:=第二位;
...

Answer 1

用stringlist 来实现很简单的，前几天就有好多这样的帖子

Answer 2

要循环截取大概思路
先
str1:='1';
strTemp:='2;3;a;b;c'然后
str2:='2'
strTemp:='3;a;b;c'
如此循环...

Answer 3

procedure GetValue(InStr: String);
var
  i ,iPos: Integer;
  tempStr : String;
  str : array[0..100] of String;
begin
  tempStr := InStr;
  for i := 1 to Length(InStr) do
    begin
      str[i] := Copy(tempStr,1,1);
      iPos := Pos(';',tempStr);
      str[i] := Copy(tempStr,1,1);
      if iPos > 0 then
        Delete(tempStr,1,iPos)
      else
        Break;
    endend;