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

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #1

各位大侠：
我有个小小问题，请指点一二。
如有下述一组数据：21 23 13 26 24 14 11。如何实现从后往前取出，
且每次只取两位。如：11 14，还有，一串数据，应有12字节长，但如不
不够12个字节时，应用零来补够，如何实现，多谢了。

 

徐

徐凤华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #2

不知道你的数据是否是放在String中的,如果是,可以使用Copy函数将其搞定.
可用Length获得,一串数据的长度.

 

L

linglingx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #3

楼上的方法是可以的
每次length－2往前两个
然后copy(String,length-2,length)，取出字符！

 

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #4

谢谢两位大侠的指点，不过可以实现从后往前取吗？那第二个问题呢，在此说明一点，为了表示
本人的谢意，无论二位是否再次回答，本人都将介绍美妹给两位大侠的。请最好将程序写点出来，
谢谢了。

 

L

lsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #5

1.用数组，简单点的话用下标访问，自定义公式控制，这其实是一个简单的线性表的公式
化描述
2.我不知你是否用数组，是的话往数组中写入数据前先判断数据长度，不够补0，溢出截断，

 

L

lsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #6

呵呵，好象来迟了
这是数据结构版，大家能否往数据结构方向讨论，少用高级函数
呵呵，小弟学习数据结构中，请多指教
E-mail:quanta01234@sina.com

 

N

NetBird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #7

你不会是介绍哪个明星吧,嘿嘿

 

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #8

唉呀，太多了，不过请大家保持风度，下面先给徐凤华、和LINGLINGX两位介绍两位美妹；
QQ号分别是：18337256，65988111。还有一位也是美妹QQ号是：63073057。大家可以竟争。

 

L

lsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #9

DFW是技术论坛，没分也可以提问的，不必带其他的东西进来

 

C

caching

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #10

你又没有分。

 

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #11

我接受ISJ的批评，也是没办法，害怕大家过于现实，不过你所说的方法我以前都没用过，
可不可以给我举个例子说明一下呢，如EDIT中输入12345，如何在前面补够7个零，使其
长度达到12位呢，请将程序写出来，谢谢！

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #12

FormatFloat('000000000000',StrToInt(Edit1.Text))

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #13

没分没所谓。
不过，我不会为女人而编程。
看在美眉的份上，我决定了不答这问题。

 

徐

徐凤华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #14

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);

 

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #15

感谢徐凤华的帮助，在此说声谢谢！

 

G

gzpbx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #16

接受答案了.