常规参数
文章标题：
权重：
文章摘要：
begin SetLength(sRet, CountChar(s, ',') + 1); iPos := Pos(',', s); i := 0; while iPos 0 do begin sRet[i] := Copy(s, 1, iPos - 1); Delete(s, 1, iPos); iPos := Pos(',', s); Inc(i); end; sRet[i] := s;end;procedure TForm1.Button1Click(Sender: TObject);v
关键字：
函数 返回 一个 sA iPos begin sRet end do Pos integer
管理密码: