Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
mordol
1 / 1 / 2
Регистрация: 12.05.2015
Сообщений: 301
1

Перевод кода Delphi на C++Builder

04.11.2017, 16:07. Просмотров 759. Ответов 2
Метки нет (Все метки)

Delphi
1
2
3
4
5
ADOQuery1.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
  if ADOQuery1.Fields[i].FieldName <> 'Код' Then
    ADOQuery1.Fields[i].Value := ADOQuery2.Fields[i].Value;
ADOQuery1.Post;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.11.2017, 16:07
Ответы с готовыми решениями:

Перевод кода из Delphi в C++ Builder / C++ Builder
Кто нибудь сможет помочь перевести проект с делфи на билдер? Выкладываю...

Перевод кода из Delphi в C++ Builder
Кто нибудь сможет помочь перевести проект с делфи на билдер? unit Unit1; ...

Перевод кода из Delphi в C++ Builder
Кто нибудь сможет помочь перевести проект с делфи на билдер? Выкладываю...

Перевод кода с Delphi на C++ Builder
Помогите перевести данный код (экспорт данных из ADOTable в Excel) с Delphi на...

Перевод кода из Delphi 7 в C++ Builder 6
Подскажите, пожалуйста, как можно перевести код: TMemo(FindComponent('Memo' +...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26102 / 17502 / 6943
Регистрация: 22.10.2011
Сообщений: 30,829
Записей в блоге: 6
04.11.2017, 16:22 2
Лучший ответ Сообщение было отмечено mordol как решение

Решение

C++
1
2
3
4
5
6
7
8
9
    ADOQuery1->Append();
    for(int i = 0; i < ADOQuery1->Fields->Count; ++i)
    {
        if(ADOQuery1->Fields->Fields[i]->FieldName != "Код")
        {
            ADOQuery1->Fields->Fields[i]->AsString = ADOQuery2->Fields->Fields[i]->AsString;
        }
    }
    ADOQuery1->Post();
Работоспособность не проверял, но компиляцию проходит...
0
mordol
1 / 1 / 2
Регистрация: 12.05.2015
Сообщений: 301
04.11.2017, 16:25  [ТС] 3
Цитата Сообщение от volvo Посмотреть сообщение
ADOQuery1->Append(); for(int i = 0; i < ADOQuery1->Fields->Count; ++i) { if(ADOQuery1->Fields->Fields[i]->FieldName != "Код") { ADOQuery1->Fields->Fields[i]->AsString = ADOQuery2->Fields->Fields[i]->AsString; } } ADOQuery1->Post();
Спасибо большое)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2017, 16:25

Перевод кода Delphi на C++Builder
procedure TForm1.Button1Click(Sender: TObject); var jpeg: TJPEGImage; bmp:...

Автокнопка. Перевод кода исходника на delphi в С++ Builder
Народ, а никто не пытался написать прогу, чтобы конвертировала код на delphi в...

Перевод кода с Delphi на C++ Builder (работа с файлами)
Вывести на Memo1 информацию с exam1.txt и записать эту информацию в names.txt....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru