[anghela]

не работает.

Мой код:

Код:

unit Unit8;

interface

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

type
  TForm8_kalculator = class(TForm)
    Label1: TLabel;
    But_razmer: TButton;
    But_summa: TButton;
    Edit1_razmer: TEdit;
    Label2: TLabel;
    CB_vid_kred: TComboBox;
    Label3: TLabel;
    CB_srok_kr: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    CB_stavka: TComboBox;
    But_raschet: TButton;
    Label6: TLabel;
    Edit1_sum_dox: TEdit;
    Label7: TLabel;
    CB_vid: TComboBox;
    Label8: TLabel;
    CB_srok: TComboBox;
    Label9: TLabel;
    Label10: TLabel;
    CB_stavka_dox: TComboBox;
    But_raschet_dox: TButton;
    Label11: TLabel;
    Label12: TLabel;
    But_oformit_kredit: TButton;
    But_new_raschet: TButton;
    Edit1: TEdit;
    procedure But_oformit_kreditClick(Sender: TObject);
    procedure But_razmerClick(Sender: TObject);
    procedure But_summaClick(Sender: TObject);
    procedure CB_vid_kredChange(Sender: TObject);
    procedure CB_srok_krChange(Sender: TObject);
    procedure But_raschetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8_kalculator: TForm8_kalculator;

implementation

uses Unit9;

{$R *.dfm}

procedure TForm8_kalculator.But_oformit_kreditClick(Sender: TObject);
begin
Form9_oformlenie_kredita.Show;
end;

procedure TForm8_kalculator.But_razmerClick(Sender: TObject);
begin
  Label1.Visible:=true;
  Edit1_razmer.Visible:=true;
  Label2.Visible:=true;
  CB_vid_kred.Visible:=true;
  Label3.Visible:=true;
  CB_srok_kr.Visible:=true;
  Label4.Visible:=true;
  Label5.Visible:=true;
  CB_stavka.Visible:=true;
  But_raschet.Visible:=true;
  But_summa.Visible:=false;
 // Label12.Visible=true;
 // But_oformit_kredit.Visible=true;
 // But_new_raschet.Visible=true;
end;

procedure TForm8_kalculator.But_summaClick(Sender: TObject);
begin
  Label6.Visible:=true;
  Edit1_sum_dox.Visible:=true;
  Label7.Visible:=true;
  CB_vid.Visible:=true;
  Label8.Visible:=true;
  CB_srok.Visible:=true;
  Label9.Visible:=true;
  Label10.Visible:=true;
  CB_stavka_dox.Visible:=true;
  But_raschet_dox.Visible:=true;
  But_razmer.Visible:=false;
 // Label11.Visible=true;
  //But_oformit_kredit.Visible=true;
  //But_new_raschet.Visible=true;
end;

procedure TForm8_kalculator.CB_vid_kredChange(Sender: TObject);
begin
//  if (CB_vid_kred.Items.ValueFromIndex[CB_vid_kred.ItemIndex]='автокредит') and (CB_srok_kr.Items.ValueFromIndex[CB_srok_kr.ItemIndex]='3')then
//  Edit1.Text:='13,5';
end;

procedure TForm8_kalculator.CB_srok_krChange(Sender: TObject);
begin
     //if (CB_vid_kred.Items[CB_vid_kred.ItemIndex]='автокредит')
   //  and (CB_srok_kr.Items[CB_srok_kr.ItemIndex]='3')
   //  then
  //   Edit1.Text:='13,5';
end;

procedure TForm8_kalculator.But_raschetClick(Sender: TObject);
begin
    // if (CB_vid_kred.Items[CB_vid_kred.ItemIndex]='автокредит') and (CB_srok_kr.Items[CB_srok_kr.ItemIndex]='3') then
     //Edit1.Text:='13,5';
     //if (CB_vid_kred.text='автокредит') and (CB_srok_kr.text='3') then
     //Edit1.Text:='13,5';
    // if    (CB_vid_kred.Items[CB_vid_kred.ItemIndex]='автокредит')
  //and (CB_srok_kr.Items[CB_srok_kr]='3')
//then
  //Edit1.Text:='13,5';
  if (CB_vid_kred.Text = 'автокредит') and (CB_srok_kr.Text = '3') then
  Edit1.Text := '13,5';
end;

end.

MAD: пользуемся тегами, или получаем бан.