Улучшение кода

[Rusl92]

Доброй ночи еще раз

procedure TForm1.View(c: Char);
var t:string;
begin
  if (c='-')
   then
    begin
     t:=label1.Caption;
     delete(t,length(t),1);
     label1.Caption:=t;
    end
   else
    Label1.Caption:=Label1.Caption+c;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    View('*');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    View('v');
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   View('(');
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
   View(')');
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
   View('X');
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  View('Y');
end;

Как сделать код красивее
Можно конечно создать массив из BitBtn'ов
создавать их в oncreate формы....

А есть ли другой вариант ?

[Roof]

вот такой вариант:
1) Кидаешь на форму BitBtn сколько-то штук, но немного.
2) BitBtn1.Tag = 0, BitBtn2.Tag выставляешь 1 (можно в инспекторе объектов), BitBtn3.Tag выставляешь 2 и т.д. Привязка по Tag будет.
3) Выбираешь на форме или в окошке структуры - все BitBtn и в событии OnClick в инспекторе объектов на вкладке событий вешаешь им BitBtnsClick.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    //обработка кликов по кнопкам
    procedure BitBtnsClick(Sender: TObject);

  private
    //обработка символов
    procedure CharReplace(Key: Char);
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.BitBtnsClick(Sender: TObject);
begin
  if Sender is TBitBtn then
    case (Sender as TBitBtn).Tag of
      0: CharReplace('*');
      1: CharReplace('v');
      2: CharReplace('(');
      3: CharReplace('-');
    end;

end;

procedure TForm1.CharReplace(Key: Char);
var
  str: string;
begin

  if Key = '-' then
  begin

    if length(Label1.Caption) > 0 then
    begin
      str := Label1.Caption;
      delete(str, length(str), 1);
      Label1.Caption := str;
    end;

  end
  else
    Label1.Caption := Label1.Caption + key

end;

end.

[Stilet]

Tag может и понадобится, да и хранит он только целое, что не всегда удобно.
Я уже давно делаю так:
Переопределяю класс кнопки:

  TBitBtn=class(Buttons.TBitBtn)
   c:char;
  end;

Заполняю поля кнопок:

procedure TForm1.FormCreate(Sender: TObject);
begin
 BitBtn1.c:='*'; BitBtn2.c:='v';
end;

И банально указав один обработчик всем кнопкам работаю с полем вызвавшей его кнопки:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 View(TBitBtn(Sender).c);
end;

Это надежнее и удобнее.

[Roof]

2 Stilet - нну да, это лучше, согласен

[Rusl92]

Спасибо большое!