С Delphi на C++ Builder

[aerosm]

Помогите, нужен перевод куска кода с Делфи на Си Билдер. Помогите кто умеет)
Код:

procedure TMainForm.CheckButtonClick(Sender: TObject);
begin
  ShowError(  CheckBracket( BracketEdit.Text )  );
end;

procedure TMainForm.ShowError( ErrList: TStringList );
var
  i: integer;
begin
  ErrorList.Items.Clear;

  if ErrList.Count > 0 then
    for i := 0 to ErrList.Count - 1 do
      ErrorList.Items.Add( ErrList[i] )
  else
    ErrorList.Items.Add( 'Ошибок не обнаружено' );
end;

[aerosm]

Что никто не может помочь?

[Felian]

Что-то такое, наверное. По-любому остальные функции надо смотреть - как в них параметры передаются.

Код:

void TMainForm::CheckButtonClick(TObject *Sender) {
  ShowError(CheckBracket(BracketEdit->Text));
}


void TMainForm::ShowError(TStringList *ErrList) {
  int i;
  ErrorList->Items->Clear();

  if (ErrList->Count > 0) {
    for (i = 0; i < ErrList->Count; i++) {
      ErrorList->Items->Add(ErrList[i]);
    }
  } else {
    ErrorList->Items->Add("Ошибок не обнаружено");
  }
}

[aerosm]

Вот могу даже весь код скинуть

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StStack, Generics.Collections;

type
  TBracket = class
  private
    FOpen: char;
    FClose: char;
  public
    constructor Create( setOpen: char );

    property Open: char read FOpen;   // Открывающаяся скобка
    property Close: char read FClose; // Закрывающаяся скобка
  end;


  TMainForm = class(TForm)
    BracketEdit: TEdit;
    CheckButton: TButton;
    ErrorList: TListBox;
    procedure CheckButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ErrorListClick(Sender: TObject);
    procedure BracketEditChange(Sender: TObject);
  private
    Stack: TStack<TBracket>;
  public
    function CheckBracket( CheckStr: string ): TStringList;
    procedure ShowError( ErrList: TStringList );
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

constructor TBracket.Create( setOpen: char );
begin
  FOpen := setOpen;
  // Если setOpen не является открывающейся скобкой, получаем ошибку 
  if not (setOpen in ['{','[','(']) then
    raise Exception.Create('Неизвестный вид скобок');
  
  // Находим парную скобку
  case setOpen of
    '(': FClose := ')';
    '[': FClose := ']';
    '{': FClose := '}';
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Stack := TStack<TBracket>.Create;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Stack.Free;
end;

function TMainForm.CheckBracket( CheckStr: string ): TStringList;
var
  i: integer;
  ResultList: TStringList;
begin
  // Очищаем стек
  Stack.Clear;
  // Создаем список для ошибок
  ResultList := TStringList.Create;

  // Посимвольно пробегаем выражение
  for i := 1 to Length( CheckStr ) do
    begin
       // Если символ не является скобкой, то дальнейший код не выполняется
       if not ( CheckStr[i] in ['{','[','(','}',']',')'] ) then
         Continue;

       // Если скобка открывающаяся
       if CheckStr[i] in ['{','[','('] then
         Stack.Push( TBracket.Create( CheckStr[i] ) ) // Кладем ее в стек
       else
         if Stack.Count > 0 then // Если стек не пуст выполняем проверку
           if TBracket(Stack.Peek).Close <> CheckStr[i] then
             ResultList.Add( 'Неcовместимый тип открывающей и закрывающей скобки ' +
                             TBracket(Stack.Peek).Open + ' и ' + CheckStr[i]  )
           else Stack.Pop.Free; // Если проверка прошла, тогда выталкиваем скобку
         else // Если стек пуст, получаем ошибку
           ResultList.Add( 'Лишная закрывающая скобка: ' + CheckStr[i] ); 

    end;

  // Если после проверки остались открытые скобки,получаем ошибку
  if Stack.Count > 0 then
    ResultList.Add( 'Не все скобки закрыты!' );

  Result := ResultList;
end;

[Felian]

В общем то что ты попросил я перевёл на сколько это понятно, а если какие-то проблемы, ты пиши, а там посмотрим - я или ещё кто-нибудь.