机会难得啊，菜鸟问题，如可相帮，介绍一美妹，决不食言（因为没分了）。(0分)

阿

阿波

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠：
我有个小小问题，请指点一二。
如有下述一组数据：21 23 13 26 24 14 11。如何实现从后往前取出，
且每次只取两位。如：11 14，还有，一串数据，应有12字节长，但如不
不够12个字节时，应用零来补够，如何实现，多谢了。
 
不知道你的数据是否是放在String中的,如果是,可以使用Copy函数将其搞定.
可用Length获得,一串数据的长度.
 
楼上的方法是可以的
每次length－2往前两个
然后copy(String,length-2,length)，取出字符！
 
谢谢两位大侠的指点，不过可以实现从后往前取吗？那第二个问题呢，在此说明一点，为了表示
本人的谢意，无论二位是否再次回答，本人都将介绍美妹给两位大侠的。请最好将程序写点出来，
谢谢了。
 
1.用数组，简单点的话用下标访问，自定义公式控制，这其实是一个简单的线性表的公式
化描述
2.我不知你是否用数组，是的话往数组中写入数据前先判断数据长度，不够补0，溢出截断，
 
呵呵，好象来迟了
这是数据结构版，大家能否往数据结构方向讨论，少用高级函数
呵呵，小弟学习数据结构中，请多指教
E-mail:quanta01234@sina.com
 
你不会是介绍哪个明星吧,嘿嘿
 
唉呀，太多了，不过请大家保持风度，下面先给徐凤华、和LINGLINGX两位介绍两位美妹；
QQ号分别是：18337256，65988111。还有一位也是美妹QQ号是：63073057。大家可以竟争。
 
DFW是技术论坛，没分也可以提问的，不必带其他的东西进来
 
你又没有分。
 
我接受ISJ的批评，也是没办法，害怕大家过于现实，不过你所说的方法我以前都没用过，
可不可以给我举个例子说明一下呢，如EDIT中输入12345，如何在前面补够7个零，使其
长度达到12位呢，请将程序写出来，谢谢！
 
FormatFloat('000000000000',StrToInt(Edit1.Text))
 
没分没所谓。
不过，我不会为女人而编程。
看在美眉的份上，我决定了不答这问题。
 
to 阿波:
一次从后面取两个字符的源程序.
var
S, Temp: String;
DataLen: Integer;
begin
S := '0123456789';
DataLen := Length(S);
while DataLen > 0do
begin
Temp := Copy(S, DataLen - 1, 2);
ShowMessage(Temp);//将此句改为需要的操作.
Dec(DataLen, 2);
end;
一串数据如果没有12字节长,用零补齐12字节,可用函数StringOfChar来完成.
比如:
S := '0123456789';
DataLen := Length(S);
S := StringOfChar('0', 12 - DataLen) + S;
//在前面补零,如果在后面补零,则
//改为 S := S + StringOfChar('0', 12 - DataLen);
showmessage(S);
 
感谢徐凤华的帮助，在此说声谢谢！
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

S
[原]详解Variant 的相关函数
回复
0
查看
962
SUNSTONE的Delphi笔记
S
S
[原]详解Variant 的相关函数
回复
0
查看
784
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部