powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / C++ [игнор отключен] [закрыт для гостей] / код Delphi переписать на Builder
3 сообщений из 3, страница 1 из 1
код Delphi переписать на Builder
    #34767851
Gwa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть пример в Help

procedure TForm1.AddAnyItemClick(Sender: TObject);
var
ABarManager : TdxBarManager;
ABar : TdxBar;
begin
ABarManager := GetBarManagerByForm(Form1);

with ABarManager do
begin
ABar := BarByCaption('Custom 1');
if ABar <> nil then
begin
BeginUpdate;
try
with ABar.ItemLinks.AddItem(TdxBarEdit) do //-----------??
begin
Item.Caption := 'TextEdit';
TdxBarEdit(Item).ShowCaption := True;
end;
finally
EndUpdate;
end;

end;
end;
end;

Непонятно как это будет на Builder C,
особенно интересует помеченная вопросом строка
Если впрямую назвать имя типа, то транслятор С пишет
Improper use of typedef 'TdxBarEdit'

Описание метода выглядит так:
Creates an instance of the AItemClass item and a link to it and appends this link to the current collection.
type
TdxBarItemClass = class of TdxBarItem;
function AddItem(AItemClass: TdxBarItemClass): TdxBarItemLink;
...
Рейтинг: 0 / 0
код Delphi переписать на Builder
    #34769326
Кифирчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gwa
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
    if ABar <> nil then
    begin
      BeginUpdate;
      try
        with ABar.ItemLinks.AddItem(TdxBarEdit) do  //-----------??
        begin
          Item.Caption = 'TextEdit';
          TdxBarEdit(Item).ShowCaption = True;
        end;
      finally
        EndUpdate;
      end;
    end;

я е компилил, но по идее так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
   if (ABar != nil)// может иммелось в виду NULL
   {
      BeginUpdate();
      try
      {
        ABar->ItemLinks->AddItem(TdxBarEdit)->Item.Caption = "TextEdit";
        ABar->ItemLinks->AddItem(TdxBarEdit)->TdxBarEdit(Item)->ShowCaption = True;
      }
      __finally
      {
        EndUpdate();
      };
   };
...
Рейтинг: 0 / 0
код Delphi переписать на Builder
    #34769331
Кифирчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gwa
procedure TForm1.AddAnyItemClick(Sender: TObject);
var
ABarManager : TdxBarManager;
ABar : TdxBar;
begin
ABarManager := GetBarManagerByForm(Form1);
...
end;

а это по идее так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
void TForm1::AddAnyItemClick(TObject * Sender)
{
   TdxBarManager * ABarManager;
   TdxBar * ABar;
   ABarManager = GetBarManagerByForm(Form1);
...
};
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / код Delphi переписать на Builder
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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