Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Помогите новичку с Delphi
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
borevl borevl вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.05.2017
Question Помогите новичку с Delphi - 14.05.2017, 20:11

Постоянно вылазят ошибки типа Statement expected but procedure found и could not complile used unit1.pas
Вот код:
delphi Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RG1: TRadioGroup;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A, B, C, S, V: real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
case RG1.ItemIndex of
0: begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);

S:=A*B;

Edit4.Text:=FloatToStr(S);
end;
1: begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);

V:=A*B*C;

Edit4.Text:=FloatToStr(V);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

Не могу понять в чем проблема
Заранее спасибо
Ответить с цитированием
  (#2 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,281
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 15.05.2017, 09:26

Не хватает одного end - case of должен быть закрыт отдельным end
Ответить с цитированием
Пользователь сказал cпасибо:
borevl (22.05.2017)
Ads
Ответ

Метки
delphi , помощь

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите новичку c# DmitryJ Задания за деньги 0 01.11.2016 12:12
Помогите новичку oper13 Выбор ноутбука 5 16.07.2014 20:15
помогите новичку 2 )) xom9r2010 Prolog 1 26.12.2011 04:00
Помогите новичку! slavko-prog Prolog 0 24.10.2011 18:45
помогите новичку! NovichokNata Вопросы начинающих программистов 0 13.04.2011 10:33
Помогите новичку!) snock Апгрейд 3 09.02.2011 21:23
помогите новичку Игорь26 Любые вопросы от новичков 18 23.01.2011 22:19
Помогите новичку! Zambidis Prolog 0 12.12.2010 13:58
Помогите новичку gingiwit Подбор комплектующих 1 25.02.2010 23:08
Помогите новичку tverd Подбор комплектующих 5 08.01.2009 05:26
Помогите новичку! alex_lisonok PHP 2 11.08.2008 09:55
помогите новичку venomspirit PHP 25 27.07.2007 00:14



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов