function TPrintObject.InchesToPixelsVertical( Inches: Single ): Integer; { Convert the vertical inches represented in 'Inches' to pixels } var Value: Single; Buffer: String; I: Integer; Begin Value := Inches * PixelsPerInchVertical; Buffer := FloatToStr( Value ); { If there is a decimal point in 'Buffer', remove it. } I := 1; While( (Buffer[I] <> '.') And (I <= Length(Buffer)) ) Do Inc( I ); Buffer[0] := Chr( I-1 ); //错误在此 Result := StrToInt( Buffer ); End;