|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.04.2017, 18:18 | #1 |
Пользователь
Регистрация: 11.02.2011
Сообщений: 69
|
Перевод функции
Добрый день, прошу сразу не забрасывать камнями, если можете, то помогите пожалуйста. Я очень давно не работала в С++ Builder, но сейчас нужно сделать БД именно на нем.
Мне нужно вывести отчет в Ворд. Как в Делфи делать, я знаю и много раз такие отчеты делала, а вот в С++ не получает перевести. Мне нужно переделать под С++ такую функцию: W:Variant; function TForm4.WordFindAndInsert(FindText, ReplacementText: String): boolean; const wdReplaceAll=2; begin W.Selection.Find.Text:=FindText; W.Selection.Find.Replacement.Text:= ReplacementText; WordFindAndInsert:=W.Selection.Find .Execute(Replace:=wdReplaceAll); end; И затем процедуру: procedure TForm4.Button3Click(Sender: TObject); begin W:=CreateOleObject('Word.Applicatio n'); W.Visible:=True; // Создаем новый документ по шаблону W.Documents.Add(ExtractFileDir(Appl ication.ExeName) + '\Документы\Реквизиты.docx'); WordFindAndInsert('&dir', dbEdit10.Text); WordFindAndInsert('&Naim_p', dbEdit1.Text); WordFindAndInsert('&Naim_s', dbEdit2.Text); WordFindAndInsert('&adress', dbEdit3.Text); WordFindAndInsert('&tel', dbEdit4.Text); WordFindAndInsert('&mail', dbEdit11.Text); WordFindAndInsert('&rch', dbEdit5.Text); WordFindAndInsert('&bank', dbEdit6.Text); WordFindAndInsert('&mfo', dbEdit7.Text); WordFindAndInsert('&unn', dbEdit8.Text); WordFindAndInsert('&okpo', dbEdit9.Text); //Если необходимо автоматическое сохранение // W.ActiveDocument.SaveAs(ExtractFile Dir(Application.ExeName) + '\' + DateToStr(Date) + '.docx'); // W.Application.Documents.Close; // W.Quit; W:=UnAssigned; end; Буду очень благодарна, если сможете помочь. Заранее большое спасибо. |
06.04.2017, 02:16 | #2 |
Пользователь
Регистрация: 11.02.2011
Сообщений: 69
|
В общем разобралась сама, с помощью данной (http://www.cyberforum.ru/cpp-builder/thread1249583.html) темы на форуме, только переделала под себя.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод функции хеша | azaznio | C# (си шарп) | 1 | 31.07.2014 10:44 |
Перевод названия функции с Delphi на C++Builder | spectrum988 | Помощь студентам | 3 | 14.04.2014 09:31 |
Перевод функции с AS3 на Delphi | Isaev | Общие вопросы Web | 1 | 13.05.2013 11:09 |
Перевод функции с JavaScript на .NET | sawer5 | C# (си шарп) | 1 | 07.10.2012 11:18 |
Перевод функции на С++ | [CODER] | Помощь студентам | 5 | 20.03.2010 14:01 |