盒子论坛 v2.1

我现在想实现这样一个功能！有一个memo，里面放着象这样的数据 45 60 33 00 等等！每两个数字之间有一个空格！我想将它转化成16进制并存在数组里面，而且把中间的空格去掉！！我该怎么做呀！！
----------------------------------------------
生命中，不断地有人离开或进入。于是，看见的，看不见的；记住的，遗忘了。生命中，不断地有得到和失落。于是，看不见的，看见了；遗忘的，记住了。然而，看不见的，是不是就等于不存在？记住的，是不是永远不会消失？

作者：

gigi_hcl (蓝海雨)	★☆☆☆☆	-
	普通会员

2004/2/18 10:11:01

1楼：

怎么没有人告诉我呀！！
----------------------------------------------
生命中，不断地有人离开或进入。于是，看见的，看不见的；记住的，遗忘了。生命中，不断地有得到和失落。于是，看不见的，看见了；遗忘的，记住了。然而，看不见的，是不是就等于不存在？记住的，是不是永远不会消失？

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2004/2/18 10:16:01

1楼：

var
   sba:array of [ .. ] byte;
   ss,ss1:string;
   swCount,s,sw2:word;

   swCount:=0;
   for sw2:=0 to Memo1.Lines.Count-1 do begin
      ss1:=Memo1.Lines[sw2];
      repeat
         while (ss1[1]=#32)and(ss1>') do delete(ss1,1,1);
         s:=pos(#32,ss1);
         if s>0 then begin
            ss2:=copy(ss1,1,s-1);
            delete(ss1,1,s)
         end else begin
            ss2:=ss1;
            ss1:='
         end;
         if ss2>' then begin
            // insert('$',ss2,1);
            sba[swCount]:=lo(StrToInt(ss2)));
            inc(swCount)
         end
      until ss1='
   end;

----------------------------------------------
-

信息

登陆以后才能回复