|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
2 типа стринг друг с другом не компилируются, в чем дело?
Код:
WordApplication1.selection.InsertAfter(mResults.Lines); Код:
[Error] UnEx4.pas(179): Incompatible types: 'WideString' and 'TStrings' |
#2
|
|||
|
|||
TStrings и 'WideString' - это два типа данных, но...
'WideString' - одна строка, а TStrings - несколько строк. |
#3
|
||||
|
||||
а если я напишу не lines, а line?
|
#4
|
||||
|
||||
и что кстати сделать если мне надо не 1 линию выводить а несколько?
|
#5
|
||||
|
||||
Ну помогитееее(!)пожалуйста =(
переборщила я с успокоительным... |
#6
|
||||
|
||||
Код:
mResults.Lines.Strings[i]; jmp $ ; Happy End! The Cake Is A Lie. |
#7
|
||||
|
||||
смотрите, сделала так
Код:
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; переборщила я с успокоительным... |
#8
|
||||
|
||||
мб дело в том, что в TStrings индексы строк не с 1, а с 0 начинаются, как и везде...
jmp $ ; Happy End! The Cake Is A Lie. |
#9
|
||||
|
||||
Bargest спасибо!!! =**** я дурак ) я забыла что с 0 начинается =)
переборщила я с успокоительным... |