翻译vb到delphi,哪位精通这两门最好懂MO的来翻译下

Question

Dim Str1 As String
Dim P1 As MapObjects2.Point
Dim Fx As Single,Fy As SingleFx=Me.scaleX(X,vbTwips,Me.scaleMode)
Fy=Me.scaleY(Y,vbTwips,Me.scaleMode)Set P1 = Map1.ToMapPoint(Fx,FY)
Str1 = "x="&Format(P1.X,"0.000")&",y="&Format(P1.Y,"0.000")
Label1.Caption = Str1-----------------------------------------------------------------
小弟能力有限只能靠字面意思翻，运行不了到Format这里就下不去了

Answer 1

Str1 = "x="&Format(P1.X,"0.000")&",y="&Format(P1.Y,"0.000")Delphi:
Str1 = Format('x=%.3f,y=%.3f',[P1.X,P1.Y]) ;

Answer 2

Fx=Me.scaleX(X,vbTwips,Me.scaleMode)
Fy=Me.scaleY(Y,vbTwips,Me.scaleMode)
那这两句呢

Answer 3

ScaleX、ScaleY 方法
      用以将 Form，PictureBox 或 Printer 的宽度或高度值从一种 ScaleMode 属性的度量单位转换到另一种。不支持命名参数。
语法object.ScaleX (width, fromscale, toscale)object.ScaleY (height, fromscale, toscale)ScaleX 和 ScaleY 方法的语法包含如下部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。 
width 必需的。为 object 指定被转换的度量单位的数量。 
height 必需的。为 object 指定被转换的度量单位的数量。  
fromscale 可选的。一个常数或数值，按照下列设置中的描述，指定 object 的 width 或 height 从哪一种坐标系统转换。fromscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。 
toscale 可选的。一个常数或数值，按照下列“设置值”中的描述，指定 object 的 width 或 height 转换到哪一种坐标系统。toscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。 
设置值用于 fromscale 和 toscale 设置值有：常数 值 描述 
vbUser 0 用户定义：指示 object 的宽度和高度设置为自定义值。 
vbTwips 1 缇（每逻辑英寸 1440 缇；每逻辑厘米 567 缇）。 
vbPoints 2 磅（每逻辑英寸 72 点）。 
vbPixels 3 像素 （显示器或打印机分辨率的最小单位）。 
vbCharacters 4 字符（水平 = 每单位 120 缇，垂直 = 每单位 240 缇）。 
vbInches 5 英寸 
vbMillimeters 6 毫米 
vbCentimeters 7 厘米 
vbHimetric 8 HiMetric。如果省略 fromscale，则 HiMetric 为缺省值。 
vbContainerPosition 9 决定控件位置。 
vbContainerSize 10 决定控件大小。 
说明ScaleX 和 ScaleY 方法按 fromscale 指定的度量单位取值（width 或 height），并将它转换为 toscale 指定的度量单位下相应的值。也可以结合 PaintPicture 方法使用 ScaleX 和 ScaleY。

Answer 4

你要先把 MapObjects2 这个导入到delphi中吧

Answer 5

MapObjects2 当然导了 newyj(吴刚ｖｓ西西弗) 能不能帮我翻译下
Fx=Me.scaleX(X,vbTwips,Me.scaleMode)
Fy=Me.scaleY(Y,vbTwips,Me.scaleMode)