一个怪问题?关于#0与''

bitter 2000-07-10 02:04:00
我有一程序,要把诸如'000009134756ad787852'转为
'00','00','09','13','47','56','ad','78','78','52'
首先设定一个temp:string
temp:='' {有问题?}
然后用字符变量ch依次读指定字符串,遇到length(temp)=2时保留当前的temp.
然后重置temp:='';

现在问题是:
其余的都正确,只有第一个,把'00'解释成了#0'0'
为什麽?
...全文
163 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
IAmKylix 2000-07-13
  • 打赏
  • 举报
回复
你太平均主义,明眼人都知道我是真正的回答者!
我很失望!
IAmKylix 2000-07-12
  • 打赏
  • 举报
回复
var somestr:string;
strs:array of string;


for i:=1 to (length(somestr) div 2) do
begin
setlength(high(strs)+2);
strs[high(strs)]:=somestr[i*2-1]+somestr[i*2];
end;
if (i-1)*2<length(somestr) then
begin
setlength(high(strs)+2);
strs[high(strs)]:=somestr[i*2-1];
end;
linkie 2000-07-10
  • 打赏
  • 举报
回复
Var iK,jK:integer;
Str,Ch:string;
begin
Str:='000009132756ad787852';
iK:=2;{设定每次读取的字符长度}
for jK:=0 to Round(length(Str)/iK) do
if Copy(Str,1+jK*iK,iK)<>'' then Ch:=Copy(Str,1+jK*iK,iK);
end;
我想这样处理一定能解决你的问题的.OK!
LaoZheng 2000-07-10
  • 打赏
  • 举报
回复
没看到你的程序。把你的一段程序贴出来

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧