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

Переписать код Delphi в С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Выбрать три разные точки заданного на плоскости множества точек, составляющие треугольник наибольшего периметра http://www.cyberforum.ru/cpp-beginners/thread212478.html
Задание, как множество точек вывести на экран понял. #include <iostream> #include <time.h> #define _CRT_SECURE_NO_DEPRECATE 0 using namespace std; int _tmain() { setlocale(LC_ALL,"Russian"); int* A;
C++ Иконка для консоли Здравствуйте, господа. Можно ли каким-то образом прикрепить иконку к консольному приложению, которое было написано на борланде? Заранее благодарю за возможные ответы. Добавлено через 6 часов 49 минут Неужели нету никакого способа? http://www.cyberforum.ru/cpp-beginners/thread212469.html
генерация случайных чисел в linux C++
randomize(); int a; a=random(100); пишет, что нет декларации randomize() в этой области видимости, хотя stdlib.h я подключил подскажите, что с этим делать?
C++ связанные списки
плиз помогите написать задачку: Запросить у пользователя число n. Построить связный список из n элементов, заполненный случайными числами из диапазона . Выполнить над связным списком действие определенное в вашем варианте. Вывести на экран связный список до и после выполнения указанного действия. вариант:Построить еще один список, аналогичный условию задачи. Запросить у пользователя число...
C++ Есть ли слово, содержащее одну согласную, возможно несколько раз http://www.cyberforum.ru/cpp-beginners/thread212430.html
Срочно нужно написать программу на C или C++ ! (сижу на экзамене): "Есть ли слово, содержащее одну согласную, возможно несколько раз" Заранее спасибо !!!!
C++ С Visual в Borland Помогите, плиз, перевести прогу из Visual в Borland, я просто не знаю синтаксиса Борланда. Вот условие задания, если вдруг нужно: Составить описание класса для определения одномерных массивов строк фиксированной длины. Методы: 1) Контроль выхода за пределы массива 2) Слияние двух массивов с исключением повторения элементов 3) Вывод всего массива Выручите, очень нужно) подробнее

Показать сообщение отдельно
AndyHell
 Аватар для AndyHell
5 / 5 / 0
Регистрация: 18.04.2010
Сообщений: 20
16.12.2010, 17:16     Переписать код Delphi в С++
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure Add2History(const aURL:string); 
var idx:integer;
begin 
  with Form5.RibbonComboBox1 do 
    begin 
      idx:=Items.IndexOf(aURL); 
      case idx of 
        -1:Items.Insert(0,aURL); 
         0:exit; 
      else 
        Items.Move(idx,0); 
      end; 
    end; 
end; 
procedure TForm5.act_openurlExecute(Sender: TObject); 
begin 
  ShellExecute(Application.Handle, 
   PChar('open'), 
   PChar(RibbonComboBox1.Text), 
   PChar(0), 
   nil, 
  SW_NORMAL); 
  Add2History(RibbonComboBox1.Text); 
end; 
procedure TForm5.act_openurl_defExecute(Sender: TObject); 
begin 
  WebBrowser1.Navigate(RibbonComboBox1.Text); 
  Add2History(RibbonComboBox1.Text); 
end;
у меня в с++ Builder получился следующий код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
void __fastcall TForm1::cmd_openurlExecute(TObject *Sender)
{
ShellExecute(NULL,"open",RibbonComboBox1->Text,NULL,NULL,SW_SHOWNORMAL);
Add2History(RibbonComboBox1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cmd_openurl_defExecute(TObject *Sender)
{
WebBrowser1->Navigate(RibbonComboBox1->Text);
Add2History(RibbonComboBox1->Text);
}
//---------------------------------------------------------------------------
void __fastcall Add2History(AnsiString aURL)
{
int idx;
        idx=Form1->RibbonComboBox1->Items->IndexOf(aURL);
        switch (idx) 
        {
            case '-1': Form1->RibbonComboBox1->Items->Insert(0,aURL);
            break;
            case '0': exit;
            break;    
            default: Form1->RibbonComboBox1->Items->Move(idx,0);
        }
}
я не совсем уверен, что функцию Add2History правильно написал, и ещё компилятор ругается на

C++
1
ShellExecute(NULL,"open",RibbonComboBox1->Text,NULL,NULL,SW_SHOWNORMAL);
Пишет
C++
1
2
3
4
5
[BCC32 Error] Unit1.cpp(21): E2034 Cannot convert 'wchar_t *' to 'const char *'
  Full parser context
    Unit1.cpp(18): parsing: void _fastcall TForm1::cmd_openurlExecute(TObject *)
[BCC32 Error] Unit1.cpp(21): E2342 Type mismatch in parameter 'lpFile' (wanted 'const char *', got 'wchar_t *')
  Full parser context
Помогите подправить пожалуйста.

Добавлено через 1 час 2 минуты
Разобрался со всем, кроме
C++
1
ShellExecute(NULL,"open",RibbonComboBox1->Text,NULL,NULL,SW_SHOWNORMAL);
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 11:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru