помогите начинающему разобраться с delphi

← →
natashap © (2008-11-26 10:28) [0]

Здравствуйте! Я только начинаю изучать delphi. Вот из книги решила разобраться с примером. Программа запускается, но при вводе данных не работает, т.е я после компиляции программы выполняю её появляется окно proect1 и там я ввожу данные, никакой реакции. Вот дальше я перечисляю все действия проекта. Проект называется скорость бега. Может нужно настроить ещё какие-то свойства.Кто знает помогите.
Свойства Form
caption скорость бега
width 483
height 360
Bonderstyle bssingle
Bondericons bimimaze false bimaximize false
font 8
Свойства edit1 и edit2
Edit1
text
top 60
left 128
height 21
width 121
Edit2
Text
Top 92
Left 128
height 21
width 121
Свойства label
label1
autosize false
wordwrap true
caption программа вычислит скорость, с которой спортсмен пробежал дистанцию
Top 8
left 8
Height 38
width 209
Label2
Top 58
Left8
Caption дистанция(метров)
Label3
Top 88
left 8
caption время(минуты,секунды)
Label 4
left8
Height 70
Width 273
Свойства Button
Button1
Caption вычислить
Top176
Left 16
Height 25
Width 75
Button2
Caption завершить
Top 176
Left 112
Height25
Width 75
Также я во вкладке Evens(события) изменила :
Button1: Onclick - Button1click Button2:Onclick- Button2click
Вот сама программа

unit Unit1proect2;
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 ButtonlClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

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); // количество минут— это целая часть

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;

end.
После этой программы я нажала на выполнение программы, появилось окно proect1 там я ввела дистанция, метров- 100,
время - 2,5. Нажимала на вычислить. Никакой реакции. Если знаете помогит

← →
Сергей М. © (2008-11-26 10:40) [1]

> Никакой реакции

Не может такого быть)
Реакция так или иначе должна быть обязательно.
Другое дело, что ты ее можешь не увидеть, например, если размеры Label4 не позволяют визуально наблюдать эту "реакцию". В противном случае ты должна наблюдать иную реакцию, пусть даже и неожиданную для тебя.

← →
Ega23 © (2008-11-26 10:41) [2]

А если #13 убрать?

← →
KilkennyCat © (2008-11-26 11:06) [3]

Все гораздо проще. Нужно связать процедуры-события кликов с объектами, их могущими и должными вызвать, то бишь, кнопками. ;)

← →
KilkennyCat © (2008-11-26 11:08) [4]

черт, невнимательно прочитал. оказывается, это сделано. удивлен.

← →
Сергей М. © (2008-11-26 11:19) [5]

> KilkennyCat © (26.11.08 11:08) [4]

Вовсе, кстати, не обязательно.
После назначения обработчика в дизайн-тайм автор запросто могла и обнилить его - сам обработчик в тексте юнита остался, но отныне стал неприкаянным)

← →
RDen © (2008-11-26 11:53) [6]

Button1click и ButtonlClick - небольшая разница (один символ)...

← →
Плохиш © (2008-11-26 13:46) [7]

И не лень людям глаза ломать?

← →
DVM © (2008-11-26 14:02) [8]

> пол мужской, а имя Мария?

как Эрих Мария Ремарк )

> DVM (26.11.2008 14:02:08) [8]

Зато нереальное Наташа.

Гомосятина, одним словом

помогите начинающему разобраться с delphi Найти похожие ветки