Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
1-47515
Ghg
2002-07-04 16:37
2002.07.15
Вопрос по процедуре floodfill


6-47663
леха
2002-04-27 11:28
2002.07.15
Нужна прога для подсчета исходящего трафика


3-47167
RID
2002-06-13 16:39
2002.07.15
Connect c базой, расположенной на Сервере с Windows 2000 NTFS


14-47696
BigBadMutuh
2002-06-02 13:12
2002.07.15
Вот и у меня сайт появился.


3-47164
Miss
2002-06-19 07:33
2002.07.15
Запись даты в БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский