Question

DELPHI 字符串分割成数组

字符串格式形如 ： NO1：AA;NO2：BB;NO3：CC;NO4：DD;
我想把其中的AA BB CC DD 取出来，DELPHI中请问有什么好方法？

Answer 1

循环定位冒号以及紧接着的分号，用取字串函数copy取出即可（取出一个后将相应的冒号和分号替换成#）。

追问

请问能否给个例子啊？

追答

const
     s='NO1:AA;NO2:BB;NO3:CC;NO4:DD;';
var
   i,j,k:integer;
   ss:string;
begin
     ss:=s;
     while pos(':',ss)<>0 do begin
           i:=pos(':',ss);
           j:=pos(';',ss);
           writeln(copy(ss,i+1,j-i-1));
           ss[i]:='#';
           ss[j]:='#';
     end;
     readln;
end.