Ви
Виталий
Отображение word документа в Memo при нажатии на строку combobox
Delphi 7! В combobox 10 строк при нажатии на каждую в memo должен отображаться соответствующий документ word. Есть такой код
procedure TForm4.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
begin
word:=CreateOleObject('word.application');
Word.Documents.Open(GetCurrentDir()+'\files\ admin\2013\1.doc');
sMemo1.Text:=Word.ActiveDocument.Range.Text;
word.Application.Visible:=false;
//верхняя часть работает вместе с нижним кодом не работает
if Combobox1.itemindex=1 then
word:=CreateOleObject('word.application');
Word.Documents.Open(GetCurrentDir()+'\files\ admin\2013\2.doc');
sMemo1.Text:=Word.ActiveDocument.Range.Text;
word.Application.Visible:=false;
end;