VFP的代码如何转成DELPHI的(100分)

X

xjliutao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-21

• #1

VFP的代码如何转成DELPHI的
output=CHR((INT(VAL("0x"+PADL(nMONTH,2,'0')+PADL(nDay,2,'0')))-(0x0E+0xFF*INT(VAL("0x"+PADL(nMONTH,2,'0')))))%256)

请问如何转成DELPHI里的代码

 

J

jacknes111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-21

• #2

没什么工作累了就是想接接分

 

D

dtboyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-22

• #3

说说这是实现什么功能的,有点看不懂

 

X

xibaixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-18

• #4

对，说说具体什么功能。

 

J

jacknes111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-18

• #5

对，说说具体什么功能

 

G

gkrong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-22

• #6

一条语句应该搞不定，padl可用format替换，int和chr转换不变，难点在val函数，需要自己写函数转换。

 

H

hfqxfx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-22

• #7

while length(nDay)<2 do
nDay := '0' + nDay;
output := CHR((StrToInt('$' + nMONTH + nDay)-($0E+$FF*StrToInt('$'+nMONTH)))%256);
//随手写的,没测试

 

G

gw820522

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-22

• #8

早忘了VFP怎么写了,不过还是觉得VFP好用

 

不

不能没有你

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-23

• #9

VFP已经是上个世纪的事情了
那是觉得好玩啊.
可惜这样的好东西 到了微软手里废了.