procedure TForm1.btn1Click(Sender: TObject);
var
MultiDB:array[0..20] of string;
multiname:string;
i,j,z:Integer;
begin
multiname:='a,bc,def,ghth,';
j:=1;
z:=0;
for I := 1 to Length(multiname) do
begin
if Copy(MulTiName,i,1)=','then
begin
MultiDB[z]:=Copy(MulTiName,j,i-j);
j:=i;
z:=z+1;
end;
var
MultiDB:array[0..20] of string;
multiname:string;
i,j,z:Integer;
begin
multiname:='a,bc,def,ghth,';
j:=1;
z:=0;
for I := 1 to Length(multiname) do
begin
if Copy(MulTiName,i,1)=','then
begin
MultiDB[z]:=Copy(MulTiName,j,i-j);
j:=i;
z:=z+1;
end;
end;
ShowMessage('d');
end;
转载于:https://blog.51cto.com/zsqztg/121133