[Antidelphik]

Код:

WordApplication1.selection.InsertAfter(mResults.Lines);

вот, одна единственная строчка с ошибкой, пишет вот эту ошибку

Код:

[Error] UnEx4.pas(179): Incompatible types: 'WideString' and 'TStrings'

помогите пожалуйста разобраться! они ведь оба стринговые, что с ними сделать чтоб заработало?

[bulldog]

TStrings и 'WideString' - это два типа данных, но...
'WideString' - одна строка, а TStrings - несколько строк.

[Antidelphik]

а если я напишу не lines, а line?

[Antidelphik]

и что кстати сделать если мне надо не 1 линию выводить а несколько?

[Antidelphik]

Ну помогитееее(!)пожалуйста =(

[Bargest]

Код:

mResults.Lines.Strings[i];

получишь i-ю строку

[Antidelphik]

смотрите, сделала так

Код:

var par:OLEVariant;

begin
 WordApplication1.Connect;
 WordDocument1.ConnectTo(WordApplication1.Documents.Add
(EmptyParam,EmptyParam,EmptyParam,EmptyParam));
 WordApplication1.selection.InsertAfter(mResults.Lines[1]);
 par:=ExtractFilePath(Application.ExeName)+'out.doc';
 WordDocument1.SaveAs(par);
 WordDocument1.Close;
 WordDocument1.Disconnect;
 WordApplication1.Quit;
 WordApplication1.Disconnect;
 MessageDlg('вывод отчета завершен',mtInformation,[mbOK],0)
end;

ошибок не выдает, запускается но в документ out ничего не сохраняется, или может я неправильно делаю? я документ out создала заранее, он сидит ждет когда же в него запишут что надо

[Bargest]

мб дело в том, что в TStrings индексы строк не с 1, а с 0 начинаются, как и везде...

[Antidelphik]

Bargest спасибо!!! =**** я дурак ) я забыла что с 0 начинается =)