翻译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这里就下不去了
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 1

差不多是这样:
var
  str1: stringl
  p1 : MapObjects2.Point;
  Fx : single;
  Fy : single;
begin
  P1 := Map1.ToMapPoint(Fx,FY);
  Str1 := 'x='  + Format('%8.3f', P1.X) + ',y=' + Format('%8.3f', P1.Y);
  Label1.Caption := Str1;
end;

Answer 2

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

Answer 3

这两句是VB独有的，做度量转换的，从Twips转换为Me.scaleMode指定的度量，要看你的代码中的Me.scaleMode取值是什么。