[Mojahed]

Когда компилирую проект выбивает ошибку, показывает что ошибка здесь procedure TForm1.ButtonlClick'(Sender: TObject); Что тут не так???? Вроде все правильно...

[Страдалецъ]

Откуда кавычка взялась?
TForm1.ButtonlClick'(Sender: TObject);

[Mojahed]

после Click? И с ней и без все равно ошибка..

[angvelem]

Тоже эту строчку ручками написал, как и предшественники до тебя?

[Mojahed]

вот код, где здесь ошибка??

Код:

unit Beg;

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;
    Button1: TButton;
    Button2: TButton;
    procedure Button1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure Button2DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// нажатие кнопки Вычислить

procedure TForm1.ButtonlClick'(Sender: TObject);

var
dist:integer;// дистанция, метров
t:real;// время как дробное число
min:integer;// время, минуты
sek:integer;// время, секунды
v:real;
//скорость
begin
// получить исходные данные из полей ввода
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; // закрыть главное окно программы

Админ: Пользуемся тегами для оформления кода!

[Mojahed]

Ну что скажите?

[M.A.D.M.A.N.]

Сообщение от Mojahed

Ну что скажите?

Скажу, что надо лицом в монитор вдавить, да посильнее.

[Mojahed]

А по вежлевей "дающий советы лишь хорошо воспитанным индивидуумам"?! Как это правельней написать?

[angvelem]

Сообщение от M.A.D.M.A.N.

Скажу, что надо лицом в монитор вдавить, да посильнее.

Очень хороший совет.
А еще можно и нужно порекомендовать очки, диоптрий так на 30. Ответ уже давали, но он был проигнорирован. Попытаемся ещё раз:

Код:

procedure TForm1.ButtonlClick'(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);

сравниваем эти 2 строчки и не говорим, что нет разницы в написании. И это не название кнопок.

[Amgsys HQ]

Mojahed, одинарные ковычки ставятся только тогда, когда нейкой переменной присваивается строковое значение:

Код:

procedure TMyForm.MyButtonClick(Sender: TObject);
var
  S: String;
begin
  S := 'Это строка...';
end;

[Mojahed]

Сообщение от angvelem

Очень хороший совет.
А еще можно и нужно порекомендовать очки, диоптрий так на 30. Ответ уже давали, но он был проигнорирован. Попытаемся ещё раз:

Код:

procedure TForm1.ButtonlClick'(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);

сравниваем эти 2 строчки и не говорим, что нет разницы в написании. И это не название кнопок.

Это вы игнорируете мои ответы, я ж сказал: Не по-мо-га-ет..

[angvelem]

Ignore, Ignore, Ignore, Ignore...

[Konrad]

Мда... эта тема своего рода эталон её величества глупости
Gj[j;t NCe e;t ybxnj yt gjvj;tn ^)
vj;tn nfrb 'nj jlby b njn ;t xtk&e; ,jkmyj gj[j;b ntvs d gjcktlytt dhtvz))

[lmikle]

Сообщение от angvelem

сравниваем эти 2 строчки и не говорим, что нет разницы в написании. И это не название кнопок.

и в названии кнопки тоже: 1 и l - немного разные вещи

[M.A.D.M.A.N.]

Сообщение от Mojahed

А по вежлевей "дающий советы лишь хорошо воспитанным индивидуумам"?! Как это правельней написать?