измерение длины строки

[Agafon]

Доброго времени суток. Помогите пожалуйста. Мне надо преобразовать макрос ворда в код делфи.

Вот макросы: один
Sub Макрос1()
Dim ДлинаСтроки As Double
ДлинаСтроки = Selection.Information(wdHorizontalP ositionRelativeToTextBoundary)
MsgBox ДлинаСтроки
End Sub


и второй
Sub Макрос1()
MsgBox ActiveDocument.ActiveWindow.Panes(1 ).Pages(1).Rectangles(1).Lines(1).W idth
End Sub

Я не понимаю как это реализовать.



И ещё вопрос: я из базы данных формирую строку, которую потом вставляю в ворд. Я могу вычеслить сколько в этой строке будет символов. А можно вычеслить сколько она будет занимать места в длину (там в миллиметрах или пикселях)?

[Noor]

Более подробнее опишите задачу.
Судя по внешнему виду это не наброски макроса с ошибками в синтаксисе

[Agafon]

Задача состоит вот в чем. У меня есть вордовский шаблон, который заполняется через дельфи. Данные я беру из базы данных. Некоторые строки, при значениях шрифта по умолчанию, не влизают в отведенное для них место в шаблоне. Я хочу сделать функцию по определению длины строки, если длина больше порогового значения, то чтобы она(функция) уменьшала шрифт.

я это реализовал, если подсчитывать количество символов в строке:

function TWordOut.Print(word: string): integer;
var
j:array [0..5] of integer;
i:integer;
begin
 j[0]:=28; j[1]:=24; j[2]:=22; j[3]:=20; j[4]:=18; j[5]:=16;

  i:=0;
  if Length(word)<=105 then
     begin
       i:=j[0];
     end
     else if (Length(word)<=150) and (Length(word)>105) then
     begin
       i:=j[2];
     end
     else if (Length(word)<=250) and (Length(word)> 150)  then
     begin
       i:=j[4];
     end
     else if (Length(word)>250) then
     begin
       i:=j[5];
     end;
  result:=i;
end;

Но это не универсальный метод, который не решат проблему полностью

13:48

По поводу макросов. Они вордовские, лично проверял их работоспособность.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[_SERGEYX_]

Логичнее использовать не Length(), а TextWidth(), т.е. считать не количество
символов, а количество пикселей.

[Agafon]

Сообщение от _SERGEYX_

Логичнее использовать не Length(), а TextWidth(), т.е. считать не количество
символов, а количество пикселей.

Это хорошо, а как потом определить сколько пикселей в одной строке?

У меня не получается использование метода TextWidth(), так как он относится к конве, мне пришлось его прописать:
Canvas:=TCanvas.Create;
TextWD:=inttostr(Canvas.textwidth(D ocs));
Canvas.Free;

но выдается ошибка: "Canvas does not allow drawing"

В общем не могу понять, но не получается работать с конвой. Может есть какая-нибудь альтернатива?

[_SERGEYX_]

procedure TfrmMain.RzBitBtn5Click(Sender: TObject);
begin
  Canvas.Font.Name := 'Arial';
  Canvas.Font.Size := 14;
  ShowMessage(IntToStr(Canvas.TextWidth('Проба')));
end;

[Пепел Феникса]

используй канву формы например.
только шрифт настроить не забывай.
а если у тя одна строка состоит из многих, то лучше юзай TStringList.