再问一个关于Delphi中处理字符串的问题 用Copy不是很容易实现么,为什么还要循环呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 加两个空格。取的时候再把空格截掉。sStr := '123456';sStr := '123456'+' '; var 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; 征求开发ERP建议 高手指点!高手指点!一直没有解决的问题高手!高手!高高手!!!!!!!! 求解? 求ICO和BMP之间图象格式转换函数,我的为什么不行? 怎样连接ACCESS数据库 请问adostoredproc和storedproc的区别! 工資系統的一個問題.請大家幫忙.謝謝. 查询出错的问题? 请问谁能给我CTTS 这个中文语音控件,并且最好有DELPHI中的用法,多谢! 70分送上 如何定义一个函数为数组类型? 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;