ReSQL.ru
     
powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Конвертация форм CBuilder
9 сообщений из 9, страница 1 из 1
Конвертация форм CBuilder
    #40086562
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Есть исходник программы на CBuilder. Можно как-нибудь получить оттуда форму со всеми обработчиками событий (тело обработчика пусть будет пустым)?

С уважением, Vasilisk
...
Рейтинг: 0 / 0
27.07.2021, 21:25
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086563
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Отбой. Регекспами все сделал
...
Рейтинг: 0 / 0
27.07.2021, 21:37
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086730
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
_Vasilisk_> Отбой. Регекспами все сделал

Выложи сюда, людям на будущее.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
28.07.2021, 14:04
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086774
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Гаджимурадов Рустам
Выложи сюда, людям на будущее.
1. dfm помещаем как есть
2. Из h файла копируем все, что в секции __published в pas файл формы
3. В любом редакторе, который адекватно поддерживает поиск и замену по регекспам последовательно выполняем
FindReplacevoid __fastcallprocedure([a-z0-9]+) \*([a-z0-9]+)$2: $1([a-z0-9]+) \&([a-z0-9]+)var $2: $1,;
После этого пробуем откомпилировать, при необходимости дорабатываем напильником.

При появлении ошибки E2065 Unsatisfied forward or external declarationжмем Ctrl+Shift+C
...
Рейтинг: 0 / 0
28.07.2021, 15:12
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086783
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
_Vasilisk_> 3. ... последовательно выполняем


Этого достаточно что ли?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
28.07.2021, 15:29
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086835
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Гаджимурадов Рустам
Этого достаточно что ли?
А что еще? У меня такой h-файл
 
Код: plaintext
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TMemo *Memo1;
        TStatusBar *StatusBar1;
        TPanel *Panel1;
        TGroupBox *GroupBox3;
        TGroupBox *GroupBox2;
        TLabel *Label3;
        TLabel *Label5;
        TLabel *Label7;
        TMaskEdit *MyIPAdrEdit;
        TMaskEdit *MyIPPortEdit;
        TMaskEdit *MyAdrEdit;
        TGroupBox *GroupBox1;
        TLabel *Label8;
        TLabel *Label9;
        TLabel *Label10;
        TMaskEdit *IPAdrEdit;
        TMaskEdit *IPPortEdit;
        TMaskEdit *AdrEdit;
        TGroupBox *GroupBox5;
        TBitBtn *BitBtn1;
        TBitBtn *NKommutator;
        TBitBtn *BitBtn3;
        TBitBtn *BitBtnInit;
        TBitBtn *ButtonStart;
        TBitBtn *ButtonStop;
        TSpeedButton *SpeedButtonPusk;
        TClientSocket *ClientSocket1;
        TTimer *Timer1;
        TTimer *Timer2;
        TBitBtn *BitBtn4;
        TCheckBox *CheckBox1;
        TPanel *Panel2;
        TPanel *Panel3;
        TPanel *Panel4;
        TSpeedButton *SpeedButton3;
        TCheckBox *CheckBoxMemo;
        TGroupBox *GroupBox4;
        TLabel *Label6;
        TLabel *Label4;
        TLabel *Label2;
        TLabel *Label1;
        TLabel *Label12;
        TEdit *Freq;
        TComboBox *PolosaBox;
        TComboBox *ComboBoxAtt;
        TComboBox *ComboBoxRapQ;
        TComboBox *ComboBoxQ;
        TGroupBox *GroupBox6;
        TLabel *Label13;
        TLabel *Label14;
        TLabel *Label15;
        TLabel *Label16;
        TLabel *Label17;
        TEdit *Freq2;
        TComboBox *PolosaBox2;
        TComboBox *ComboBoxAtt2;
        TComboBox *ComboBoxRapQ2;
        TComboBox *ComboBoxQ2;
        TPageControl *PageControl2;
        TTabSheet *TabSheetGist;
        TChart *ChartGist;
        TBarSeries *SeriesGist;
        TBarSeries *Series1;
        TGroupBox *GroupBox7;
        TLabel *Label19;
        TLabel *Label20;
        TLabel *Label21;
        TLabel *Label22;
        TLabel *Label23;
        TEdit *FbegEdit;
        TComboBox *PolosaBox3;
        TComboBox *ComboBoxAtt3;
        TComboBox *ComboBoxRapQ3;
        TComboBox *ComboBoxQ3;
        TLabel *Label24;
        TEdit *FEndEdit;
        TLabel *Label25;
        TLabel *Label26;
        TEdit *StepEdit;
        TLineSeries *Series2;
        TRadioGroup *RadioGroupKindQ;
        TPanel *Panel5;
        TLabel *Label11;
        TLabel *LabelPel;
        TLabel *Label18;
        TLabel *LabelPel2;
        TPanel *Panel6;
        TTimer *Timer3;
        TCheckBox *CheckBoxChart;
        TCheckBox *CheckBoxNotKvit;
        TLabel *Label27;
        TComboBox *ComboBoxRegim;
        TCheckBox *CheckBoxTestState;
        TTimer *Timer4;
        TComboBox *ComboBoxKindKontrol;
        TGroupBox *GroupBox8;
        TEdit *TimeOutFreqEdit;
        TLabel *Label28;
        TTimer *Timer5;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall ButtonInitClick(TObject *Sender);
        void __fastcall ButtonStartClick(TObject *Sender);
        void __fastcall ButtonStopClick(TObject *Sender);
        void __fastcall ButtonStatusClick(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall ClearMemo1Click(TObject *Sender);
        void __fastcall N_TestKCCClick(TObject *Sender);
        void __fastcall NKommutatorClick(TObject *Sender);
        void __fastcall SpeedButtonPuskClick(TObject *Sender);
        void __fastcall ClientSocket1Error(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
        void __fastcall ClientSocket1Read(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocket1Connect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ClientSocket1Disconnect(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Timer2Timer(TObject *Sender);
        void __fastcall BitBtn4Click(TObject *Sender);
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall FreqKeyPress(TObject *Sender, char &Key);
        void __fastcall CheckBoxManyFreqClick(TObject *Sender);
        void __fastcall RadioGroupKindQClick(TObject *Sender);
        void __fastcall Timer3Timer(TObject *Sender);
        void __fastcall CheckBoxTestStateClick(TObject *Sender);
        void __fastcall Timer4Timer(TObject *Sender);
        void __fastcall Timer5Timer(TObject *Sender);
        void __fastcall ComboBoxRegimChange(TObject *Sender);
private:	// User declarations

Зажевало на раз. Единственное что я ссылки правил руками
...
Рейтинг: 0 / 0
28.07.2021, 16:42
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086856
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
_Vasilisk_> А что еще?

Навскидку - я ожидал, что с типами могут быть проблемы.
Не в простейшем случае, конечно же...
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
28.07.2021, 17:05
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086892
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Гаджимурадов Рустам
я ожидал, что с типами могут быть проблемы.
Так мы же говорим только о дизайн-тайме. Конечно все пользовательские декларации нужно переписывать вручную.
...
Рейтинг: 0 / 0
28.07.2021, 18:28
| Ответить | Цитировать | Написать  
Конвертация форм CBuilder
    #40086900
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
_Vasilisk_> Так мы же говорим только о дизайн-тайме.

+ обработчики. А событий со стандартными типами хватает.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
28.07.2021, 19:14
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Конвертация форм CBuilder
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40086892&tid=2037149]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 248ms
total:  532ms
созд. / загр.: 532ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]