Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!Ниже приведен код, который выводит список учащихся в шаблон Word, цикл работае и все данные передаются(выводятся), но есть один минус они выводятся друг за другом, а необходимо что бы они выводились каждый с новой строки, подскажите что добавить в цикл??

 
procedure TForm11.sButton3Click(Sender: TObject);
var
Word,Workbook:variant;
 i:integer;
begin
if form11.sComboBox1.Text='Отчисления' then
begin
Word:=CreateOleObject('Word.Application');
Workbook:=Word.Documents.Open(ExtractFilePath(ParamStr(0)) + 'Приказы.doc');
 
if datamodule3.ADOQuery3.recordcount > 0 then
begin
 
datamodule3.ADOQuery3.First;
i:=datamodule3.ADOQuery3.recordcount;
 
while not datamodule3.ADOQuery3.Eof do
begin
i:=i-1;
Word.ActiveDocument.Bookmarks.Item('A').range:=(inttostr (i) +'. Уч-ся ' + form11.DBGrid1.Fields[3].AsString + ' ' +
form11.DBGrid1.Fields[0].AsString + ' ' + form11.DBGrid1.Fields[1].AsString +  ' '  + form11.DBGrid1.Fields[2].AsString
+    ' отчислить из числа учащихся с '+ form11.DBGrid1.Fields[4].AsString + ' г. в связи ' +
form11.DBGrid1.Fields[6].AsString +'.');
datamodule3.ADOQuery3.Next;
end;
end;
Word.Visible:=True;
end;

Вопрос задал: Анучин (статус: Посетитель) Вопрос отправлен: 19 июня 2011, 15:20 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Попробуй:

...Fields[6].AsString +'.'#13#10);

...Fields[6].AsString +'.'#13);

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 19 июня 2011, 15:29 Оценка за ответ: 5 Комментарий к оценке: Спасибо за оперативность, все работает!!!!!

Ответ #2. Отвечает эксперт: ArtGal

Здравствуйте, Анучин!
Word.ActiveDocument.Bookmarks.Item('A').range :=
(inttostr (i) +'. Уч-ся ' +
form11.DBGrid1.Fields[3].AsString + ' ' +
form11.DBGrid1.Fields[0].AsString + ' ' +
form11.DBGrid1.Fields[1].AsString + ' ' +
form11.DBGrid1.Fields[2].AsString +
' отчислить из числа учащихся с ' +
form11.DBGrid1.Fields[4].AsString +
' г. в связи ' +
form11.DBGrid1.Fields[6].AsString +'.' +
#10#13);

Или #13#10.
Хотя, достаточно #13.

Ответ отправил: ArtGal (статус: 1-ый класс) Время отправки: 21 июня 2011, 17:26

Мини-форум вопроса

ArtGal (статус: 1-ый класс), 21 июня 2011, 17:28 [#1]: Извините. Не увидел, что уважаемый min@y™ уже ответил на вопрос.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.