Отладка программы "Скорость бега"

[VVM]

может лучше StrToFloat ?

Конечно лучше =)

unit vrun1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

// щелчок на кнопке Вычислить
procedure TForm1.Button1Click(Sender: TObject);
var
    dist : integer; // дистанция, метров
    t:     real;    // время, как дробное число

    min : integer;  // время, минуты
    sek : integer;   // время, секунды

    v: real;        // скорость
begin
    //если пользователь не ввел данные
    if (Edit1.Text = '') or
      (Edit2.Text = '') or
      (StrToInt(Edit1.Text) <= 0) or
      (StrToFloat(Edit2.Text) <= 0) then
    begin
      ShowMessage('Некорректные данные!');
      exit;
    end;
    // получить исходные данные из полей ввода
    dist := StrToInt(Edit1.Text);
    t := StrToFloat(Edit2.Text);

    // предварительные преобразования
    min := Trunc(t);  // кол-во минут - это целая часть числа t
    sek := Trunc(t*100) mod 100; // кол-во секунд - это дробная часть числа t

    // вычисление
    v := (dist/1000) / ((min*60 + sek)/3600);

    // вывод результата
    label4.Caption := 'Дистанция: '+ Edit1.Text + ' м' + #13 +
                      'Время: ' + IntToStr(min) + ' мин ' +
                                 IntToStr(sek) + ' сек ' + #13 +
                      'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';

end;

// щелчок на кнопке Завершить
procedure TForm1.Button2Click(Sender: TObject);
begin
        Form1.Close;
end;

// нажатие клавиши в поле Дистанция
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    // Key - символ, соответствующий нажатой клавише.
    // Если символ недопустимый, то процедура заменяет его
    // на символ с кодом 0. В результате этого символ в поле
    // редактирования не появляется и у пользователя создается
    // впечатление, что программа не реагирует на нажатие некоторых
    // клавиш.
    case Key of
      '0'..'9':                  ; // цифра
      #8      :                  ; // <Backspace>
      #13     : Edit2.SetFocus   ; // <Enter>

      // остальные символы - запрещены
      else Key :=Chr(0);  // символ не отображать
    end;
end;



procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    case Key of
      '0'..'9':   ; // цифра

      ',','.' :
          // точка или запятая
          begin
             if Key = '.' then Key := ','; // подменим точку запятой
             // проверим, есть ли в поле Edit2 запятая
             if Pos(',',Edit2.Text) <> 0 // запятая уже есть
                 then Key:=Char(0);      // вторую запятую не отображать
          end;

      #8      :                  ; // <Backspace>

      // остальные символы - запрещены
      else Key :=Chr(0);  // символ не отображать
    end;
end;

end.

[Наталья111]

почему когда я вожу в поле время мин.сек (мин,сек) он выдает ошибку?
например: 5.6 (5,6).

[VVM]

почему когда я вожу в поле время мин.сек (мин,сек) он выдает ошибку?

Используйте последний код, двумя сообщениями выше, чем это.

[Наталья111]

вот еще один вопрос возник. почему когда я ввожу время, например 3,03
он выводит как 3 мин 2 сек?
он же должен выводить как 3 мин 3 сек.

[s.Creator]

Сообщение от Наталья111

вот еще один вопрос возник. почему когда я ввожу время, например 3,03
он выводит как 3 мин 2 сек?
он же должен выводить как 3 мин 3 сек.

Думаю ошибка округления чисел типа Real

[Наталья111]

можно пару строк, а эконку создавали через код. или свойства? :-()

[s.Creator]

В Delphi 7
в меню "Project->Options...->(вкладка Application)"

[R_uslan]

Здравстуйте, калькулятор от VVM идеально подходит для моего Д/З.
Но мне нужно другое название, убрать значек и возможно передвинуть "плитки" в приложении.
Можете подсказать как я могу это сделать, все перетыкал но найти не смог...

[R_uslan]

R_uslan, Все спасибо сам сделал.)

[BLACK_RAIN]

Я не понял, это что, групповое допиливание чужого проекта бесплатно и без СМС?