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

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

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.90
_arty_
29 / 28 / 1
Регистрация: 10.07.2009
Сообщений: 316
25.12.2010, 10:22     Конвертация кода Pascal на C++ #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++
Посмотрите здесь:

Конвертация кода из с++ в java C++
C++ Перевод кода из Pascal в C++
Перевод кода с Pascal в C++ C++
C++ Из кода Pascal в код C++
C++ Перевод кода из Pascal в С++
C++ Перевод кода с Pascal на С++
Перевод кода с Pascal C++
Перевод кода с Pascal C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
_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;
}
Yandex
Объявления
26.12.2010, 15:48     Конвертация кода Pascal на C++
Ответ Создать тему
Опции темы

Текущее время: 05:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru