Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.90
_arty_
29 / 28 / 1
Регистрация: 10.07.2009
Сообщений: 316
#1

Конвертация кода Pascal на C++ - C++

25.12.2010, 10:22. Просмотров 3127. Ответов 1
Метки нет (Все метки)

Здравствуйте, нужна помощь, у меня есть такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var chosenDir:string;
  fs: tSearchRec;
dbq : String;
begin
  if SelectDirectory('Выберите каталог','', chosenDir)
  then
 
    begin
 
      if (FindFirst(chosenDir+'\*.dbf', faAnyFile, fs)=0)
      then
      repeat
       dbq :=chosenDir;
       //DefaultDir := chosenDir;
        FindNext(fs);
 
    until FindNext(fs)<>0;
 
    end;
end.
этот код вызывает окно обзора папок и и запоминает выбор в переменную (по заданному формату), хотелось бы знать как этот же код реализуется в C++, или может есть какие то встроенные средства для вызова подобного окна обзора?

P.S. Пишу на RAD STUDIO 2009
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 10:22     Конвертация кода Pascal на C++
Посмотрите здесь:
C++ Конвертация кода Pascal на C++
C++ Конвертация кода Pascal на C++
Конвертация кода из С++ в Java C++
Конвертация кода из с++ в java C++
C++ Перевод кода из Pascal/VB в C++
Перевод кода с Pascal C++
Перевод кода из Pascal в C++ C++
C++ Перевод кода с с Pascal на С++
перевод кода из Pascal в C++ C++
C++ Перевод кода с Pascal
Перевод кода с Pascal C++
C++ Перевод кода с Pascal

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
_arty_
29 / 28 / 1
Регистрация: 10.07.2009
Сообщений: 316
26.12.2010, 15:48  [ТС]     Конвертация кода Pascal на C++ #2
решение нашёл:

C++
1
2
3
4
5
6
7
8
#include <FileCtrl.hpp>
const SELDIRHELP = 1000;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Dir = "C:\\Program Files\\MyApp";
  if (SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,SELDIRHELP))
    Label1->Caption = Dir;
}
Ответ Создать тему
Опции темы

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