Скачать: CL | DM;

Помогите новичку   Найти похожие ветки 

← →
Alex II ©   (2002-06-14 12:27) [0]

Изучаю Delphi 6 по книге ввел следующий текст
unit Unit1;

interface

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

type
TMyForm = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.Button1Click(Sender: TObject);
begin
Label1.Caption:=
IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text)

end;

end.

Программа считает два числа. Сначала программа компилировалась, но или не считала или не выводила сообщение куда надо, а потом и компилироваться перестала. Выдает ошибку после первого слова end;

Спасибо.

---

← →
Игорь Шевченко ©   (2002-06-14 12:44) [1]

В коде, на первый взгляд, все в порядке. Ошибка где-то в другом месте.

Автору: вежливые люди приводят еще и текст сообщения об ошибке

---

← →
Ally ©   (2002-06-14 12:45) [2]

1. Незакрыта скобка в IntToStr()


Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));


3. В Object Inspector"e не прописан метод OnClick у Button1

---

← →
VAleksey ©   (2002-06-14 12:46) [3]

на первый взгляд не хватает скобки
> IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text))

---

← →
Malder ©   (2002-06-14 12:59) [4]

скобку не закрыл.

Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));

А вообще с такими вопросами конечно...
читай книжки

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c