怎么按规定的地址格式存放数据（从数据库读两个字段数据）到buf中 ( 积分: 300 )

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #1

我要做个函数，要求 从数据库一个表中读两个字段分别是代码（一个字节），密码（占3个字节），放到一个BUF中，按代码从小到大排序。 做这个函数的作用是要下传到POS终端机中。最后下传到POSI中的地址格式是这样的：
地址 用途
00H至03H 个人信息：代码（1个字节）+密码（3个字节，有低到高，低在前，高在后）
04H至07H 个人信息
..
..
0FEH
OFFH
------------------
要按上面的格式，我现在写的函数应该怎么写呢，实在不懂BUF 汗自己一下 最好能帮我把完整的函数写出来呵呵！ 大家应该能理解我的意思吧！一碰与地址有关的东东就不明白，偶是MM，大家砖头轻点！

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #2

不懂你的意思。
这跟Buf有何关系？定义一个Record或者指向此Record的指针可能能解决问题。

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #3

其实就是放一个缓冲区中到时候下传方便读取数据，就是一个数组吧！

 

H

holmes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #4

藍mm還是在大富翁上發貼了啊?﹗
可惜我是菜鳥﹐只能等別人回答了我再學習一下。

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #5

这你也看出是我啊 高！

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #6

array[0..$ff] of Byte;
把数据一个一个写进去就可以了。

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #7

楼上 怎么写，写清楚些，就当我是入门的

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #8

type
TBuf = array[0..255] of byte;
function getPerson(var Buf:TBuf):boolean;
begin
.
.
.
end;

接分[][][]

 

Y

yueing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-07

• #9

节拆分，低字节在前，高字节在后。
q.fieldByName('userPass').Asinteger and $FF
(q.fieldByName('userPass').Asinteger shr 8 )and $FF
(q.fieldByName('userPass').Asinteger shr 16 )and $FF
type
Arrayofbytes = array[0..255] of byte;
function getPerson(var Buf:Arrayofbytes):boolean;

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-08

• #10

那怎么下传到终端机呢 用通讯线rs232连接

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-08

• #11

一次做多可以传63个人

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-08

• #12

好了给分

 

H

happypx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-08

• #13

yueing说得很清楚
iamy在群里帮了大忙
谢谢其他人帮顶