谁能把这个java程序翻译成delphi程序！我给100个大饼！(100分)

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #1

 

康

康夫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #2

么程序?

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #3

程序在哪？？？？

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #4

对不起，我忘了贴程序！
java 程序如下！

var x,y
var step=20
var flag=0
var message="“有间鬼屋”惊心动魄的地方…… "
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos=-50
}
function handlerMM(e){
x = (document.layers) ? e.pageX :do
cument.body.scrollLeft+event.clientX
y = (document.layers) ? e.pageY :do
cument.body.scrollTop+event.clientY
flag=1
}
function makesnake() {
if (flag==1 &amp;&amp;
document.all) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos
thisspan.posTop=ypos
}
}

else
if (flag==1 &amp;&amp;
document.layers) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #5

对不起，我没贴全！再贴一次！

var x,y
var step=20
var flag=0
var message="“有间鬼屋”惊心动魄的地方…… "
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos=-50
}
function handlerMM(e){
x = (document.layers) ? e.pageX :do
cument.body.scrollLeft+event.clientX
y = (document.layers) ? e.pageY :do
cument.body.scrollTop+event.clientY
flag=1
}
function makesnake() {
if (flag==1 &amp;&amp;
document.all) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos
thisspan.posTop=ypos
}
}

else
if (flag==1 &amp;&amp;
document.layers) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #6

怎摸老贴不全！气死我了！
接着！
for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos
thisspan.posTop=ypos
}
}

else
if (flag==1 &amp;&amp;
document.layers) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}
----end-----

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #7

又贴错了！再贴！上一贴无效！
接着
for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos
thisspan.posTop=ypos
}
}

else
if (flag==1 &amp;&amp;
document.layers) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #8

我快疯了，算了，我还是发邮件给你们吧！好吗？

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #9

最后努力一次！
第一贴和这贴是我的完整程序！
接第一贴！
for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #10

for (i=0;
i<message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #11

不能写小于号，给大家说明一下就可以了，别急。
html 会屏蔽的。

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #12

var x,y
var step=20
var flag=0
var message="“有间鬼屋”惊心动魄的地方…… "
message=message.split("")
var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
xpos=-50
}
var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
ypos=-50
}
function handlerMM(e){
x = (document.layers) ? e.pageX :do
cument.body.scrollLeft+event.clientX
y = (document.layers) ? e.pageY :do
cument.body.scrollTop+event.clientY
flag=1
}
function makesnake() {
if (flag==1 &amp;&amp;
document.all) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i〈message.length-1;
i++) {
var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos
thisspan.posTop=ypos
}
}

else
if (flag==1 &amp;&amp;
document.layers) {
for (i=message.length-1;
i>=1;
i--) {
xpos=xpos[i-1]+step
ypos=ypos[i-1]
}
xpos[0]=x+step
ypos[0]=y

for (i=0;
i〈message.length-1;
i++) {
var thisspan = eval("document.span"+i)
thisspan.left=xpos
thisspan.top=ypos
}
}
var timer=setTimeout("makesnake()",30)
}

 

S

sh7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #13

终于ok了！·

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #14

这是 java script 吧， java 还凑合，java script
就不会了。

 

Y

yaojian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-30

• #15

JavaScript --> Delphi????
Are you kidding??
Why???

 

S

swan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-28

• #16

请问能不能把delphi的代码转换成java的代码

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-28

• #17

不要怪别人不理你，看看你自己能记住自己的帐号么？？
说说,shuoshuo,shshsh,sh1,sh2……,sh8,sh9……
该结束的题自己结束吧！！！！！！