用Copy不是很容易实现么,为什么还要循环呢?
解决方案 »
- 求教一个也是是数据结构也许是算法的问题
- WebBrowser 关于动网论坛htmledit里的内容如何填!
- 请教不通过网页原代码获取网页内所有URL的方法 注意是不通过网页原代码 最好有现成的函数或者组件
- 有谁用过CPT 8000 欣数据采集器?如何对它编程?谁有这方面的例子?
- 一个关于菜单的问题
- 怎么样才能实现vs.net的效果
- 高手帮忙!回复者有分!dbgrideh问题。
- 请高人指点::如何将WAV数据与程序代码一起编译:. .
- 谁能告诉我MDAC 2.7在那里可以下,我怎么找不到阿
- 如何得到本机IP地址
- SQL SERVER 数据库的刷新问题
- 请问C标准函数里是否有这样的函数,可以删除文件名相同但忽略扩展名的函数,如可以同时删除A1.LIN和A1.SA?谢先!!!
取的时候再把空格截掉。
sStr := '123456';
sStr := '123456'+' ';
Len, i, a, b: integer;
s: string;begin
s := '123456';
len = length(s);
a = len div 4;
b = len mod 4;
if b <> 0 then Inc(a);
for i := 1 to 4 - b do
s := s+ #0;
for i := 1 to a do
YourBuf[i] := Copy(s, (i - 1) * 4 + 1, 4);
end;