Помогите начинающему!

[Виталий Злобин]

Помогите понять почёму результат не выводится(((
Вот исходник "правильной программы":

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    Label4: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
function FloatCh(ch : char; st: string) : char;
begin
if ((ch >= '0') and (ch <= '9'))
or (ch = #8) or (ch = #13)
then result := ch
else
case ch of
',','.':
begin
ch := DecimalSeparator;
if (Pos(ch,st) = 0)
and (st[Length(st)] >= '0')
and (st[Length(st)] <= '9')
then
result := ch
else result := #0;
end;
else
result := #0;
end;
end;
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then Edit2.SetFocus
else Key := FloatCh(Key,Edit1.Text);
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then Button1.SetFocus
else Key := FloatCh(Key,Edit3.Text);
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN)
then Button1.SetFocus
else Key := FloatCh(Key,Edit3.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
rast : real;
cena : real;
potr : real;
sum  : real;
mes: string;
begin
rast := StrToFloat(Edit1.Text);
cena := StrToFloat(Edit2.Text);
potr := StrToFloat(Edit3.Text);
sum := rast / 100 * potr * cena;
if CheckBox1.Checked then
sum := sum * 2;
mes := 'Поездка обойдётся в ' +
FloatToStrF(sum, ffCurrency,4,2);
Label4.Caption := mes;
end;
end.

[puporev]

Все нормально выводится, вот программа. Может ChekBox не включаете?

[Виталий Злобин]

Может, это только вторая прога. А чекбокс только для умножения результата. Так то код правильный. Но я не знаю тогда где я что-то не поставил(((

[Виталий Злобин]

В Object Inspector можно что-то пропуслить, например настройку для Label и в ней не будет появляться результат?

[puporev]

Никаких дополнительных настроек я не делал, все обычным способом работает. Сравните свою и мою программы.

[Виталий Злобин]

Сравнил и поизменял, но ничего не изменилось. Если не сложно глянь, хочется разобраться и понять

[puporev]

У Вас не активирована кнопка Button1. Видимо Вы просто скопировали код, а надо все процедуры создавать, активировать. Кликните на кнопке 2 раза левой клавишей мыши, или в инспекторе объектов для этой кнопки на вкладке Events выберите OnClick.

[Виталий Злобин]

)))Ясно, спасибо огромное!

Эта подсказка три проблемы решила, спс ещё раз!)