Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2017, 18:18   #1
Gul'ka
Пользователь
 
Аватар для Gul'ka
 
Регистрация: 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;

Буду очень благодарна, если сможете помочь. Заранее большое спасибо.
Gul'ka вне форума Ответить с цитированием
Старый 06.04.2017, 02:16   #2
Gul'ka
Пользователь
 
Аватар для Gul'ka
 
Регистрация: 11.02.2011
Сообщений: 69
По умолчанию

В общем разобралась сама, с помощью данной (http://www.cyberforum.ru/cpp-builder/thread1249583.html) темы на форуме, только переделала под себя.
Gul'ka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод функции хеша 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