VPF::Word: несоответствие некоторых данных

Keeper89

Дата 8.9.2011, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Доброго времени суток smile

Проблема в следующем.
В документе Word стоит отступ первой строки - 1.25 см. В приложении получаю Range.FirstLineIndent=35,4500007629395, хотя по расчетам 1.25*28.35=35,4375, и получается, что проверка не пройдет.
Также расходятся размеры картинки (ширина 235,5 против 8.31*28.35=235,5885, высота 291,75 против 10.29*28.35=291,7215).

Пробовал округлять всеми способами:
1) получаю значение в пт из Word (не округленное) - это A - это программно
2) далее опять же не округляя перевожу см->пт сл. функцией - это B. См взяты из Ворда вручную.

Код


    const
      EPS = 0.01;
      PT_IN_CM = 72/2.54;
     
    function CmToPt(Cm: Single): Single;
    begin
      Result := Cm * PT_IN_CM; // Результат №1
      Result := Math.RoundTo(Value, -2); // Результат №2
      Result := Round(Cm * PT_IN_CM * 20) / 20; Результат №3
    end;

3) сравниваю

Код


    Math.SameValue(A, B, EPS);

И все равно не получается.

И, результаты для рисунка (ширина и высота):
№1
A=235,5 B=235,559066772461 False
A=291,75 B=291,685038288747 False

№2
A=235,5 B=235,559997558594 False
A=291,75 B=291,690002441406 False

№3
A=235,5 B=235,55 False
A=291,75 B=291,7 False

В чем здесь может быть дело?

Delphi XE, WordXP.pas

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 9.9.2011, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Вопрос решен:

Код


function SamePt(const A, B: Single): Boolean;
begin
  Result := Math.SameValue(A, B, 0.051); // 1/20
end;

function SameCm(const A, B: Single): Boolean;
begin
  Result := Math.SameValue(A, B, 0.011); // 1/567?
end;

function CmToPt(Cm: Single): Single;
begin
  // Результат округляем до 1/20
  Result := Round(Cm * PT_IN_CM * 20) / 20;
end;

function PtToCm(Pt: Single): Single;
begin
  // Результат округляем до 1/567
  Result := Round(Pt / PT_IN_CM * 587) / 587;
end;

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »