誰能幫我從VFP變為delphi,這是一段mscomm和電子稱通信的數據處理(100分)

IF thisform.Send1led1.errvalue
xvalue=thisform.Send1led1.myCom.input
ENTER=0
IF !EMPTY(xvalue)
zvalue=OCCURS(CHR(13),xvalue)
IF zvalue>1 ccc=AT(CHR(13),xvalue,zvalue-1) &&**..­Ë¼Æ²Ä¤G­Ó¦^¨®ªº¦ì¸m
ddd=RIGHT(xvalue,LEN(xvalue)-ccc) &&**..¨ú­Ë¼Æ²Ä¤G­Ó¦^¨®¥H¦Zªº¦r²Å
ELSE
ddd=xvalue
ENDIF
FOR i=0 TO 9 &&**..Àˬdddd¬O§_¤º§t0-9¼Æ¦r
IF AT(ALLT(STR(i)),ddd)!=0
ENTER=1
ENDIF
ENDFOR
IF ENTER=1.AND.AT('S',ddd)!=0
THISFORMSET.form5.label1.CAPTION=CHRTRAN(ddd,CHR(13),'') ENDIF
ENDIF
ENDIF

要找到合适的控件才行吧

先在Delphi中安装MSComm控件的，然后将上面的代码转为Delphi语法的写法即可。

關鍵不知怎么然后将上面的代码转为Delphi语法的写法即可。我是VFP程序員,上面的東西是我寫的,現在就差怎么這一點

多人接受答案了。