Показать сообщение отдельно
  #4  
Старый 30.03.2010, 22:34
Аватар для vah-smile
vah-smile vah-smile вне форума
Новичок
 
Регистрация: 16.02.2009
Адрес: Украина
Сообщения: 67
Репутация: -53
По умолчанию

Переходи между формами осуществляются так:
• Form1.Show - Показать Form1
• Form1.Hide - спрятать Form1

Закрить приложение:
• Form1.Close

Формула для нахождения площи прямоугольника:
• S = a * b

Код:
procedure TForm1.Button1Click(Sender: TObject);
// Задаешь новую переменную
var S, a, b: real;
// Тело программы
begin
// Задаешь значение для переменных a и b
// StrToFloat - Переводит текст в дробное число
  a:= StrToFloat (Edit1.Text);
  b:= StrToFloat (Edit2.Text);

// Делаешь опперации над числами
 S = a * b;
 
// В поле Edit1 передаешь значение переменной S
// FloatToStr - Переводит дробное число в строку
 Edit1.Text := FloatToStr(S);

end;
Ответить с цитированием