Показать сообщение отдельно
  #28  
Старый 26.05.2011, 15:55
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Кидайте на форму из вкладки Стандарт компоненты Button, два Edit и Label. Двойной щелчёк по кнопке с генерирует пустую процедуру.
Заполняем процедуру. И жмём F9 для запуска проги. Разберайтесь
Код:
// Процедура нажатия на кнопку Button1.
procedure TForm1.Button1Click(Sender: TObject);
Var
 A, B, C: Integer;
begin
 A:= StrToInt(Edit1.Text);  // Присвоим значение (типа  string) из окошка Edit1 переменной А.
 B:= StrToInt(Edit2.Text);  // ----//----- анлог Readln(B);
 C:= A + B;                 // Сложение.
 Label1.Caption:= IntToStr(C); // Присвоим результат С строчке вывода на форме.
end;
__________________
If end Then begin;
Ответить с цитированием