Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > messages


Автор: supervladislav 5.9.2012, 22:04
Здравствуйте!!!!Пишу первую программу , предпологается:
работа с портами,файлами , вывод окон типа ShowMesseges, регулярные выражения,обработка форм.
Модули пока не нужны.
Скажите мне хватит вот этих вот модулей см ниже.
А где в интернете есть справочная информация по модулям Delphi , так чтобы было подробно расписано ,какие функции входят в тот или иной модуль.
У меня в нижнем коде неработает вывод окна ,это из-за того что модуль не подключен.
Пишет declaration expected bat indetifire 'ShowMessage' found 


Код

unit Unit1;
interface
uses
  SysUtils, Types, Classes, Variants,Forms, StdCtrls, Controls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    timedelay1: TEdit;
    timework1: TEdit;
    ComboBox1: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    pusk1: TButton;
    Label2: TLabel;
    Edit3: TEdit;
    timework2: TEdit;
    ComboBox2: TComboBox;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    pusk2: TButton;
    Label3: TLabel;
    Edit5: TEdit;
    timework3: TEdit;
    ComboBox3: TComboBox;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    RadioButton21: TRadioButton;
    pusk3: TButton;
    Label4: TLabel;
    Edit7: TEdit;
    timework4: TEdit;
    ComboBox4: TComboBox;
    RadioButton22: TRadioButton;
    RadioButton23: TRadioButton;
    RadioButton24: TRadioButton;
    RadioButton25: TRadioButton;
    RadioButton26: TRadioButton;
    RadioButton27: TRadioButton;
    RadioButton28: TRadioButton;
    pusk4: TButton;
    Label5: TLabel;
    Edit9: TEdit;
    timework5: TEdit;
    ComboBox5: TComboBox;
    RadioButton29: TRadioButton;
    RadioButton30: TRadioButton;
    RadioButton31: TRadioButton;
    RadioButton32: TRadioButton;
    RadioButton33: TRadioButton;
    RadioButton34: TRadioButton;
    RadioButton35: TRadioButton;
    pusk5: TButton;
    Label6: TLabel;
    Edit11: TEdit;
    timework6: TEdit;
    ComboBox6: TComboBox;
    RadioButton36: TRadioButton;
    RadioButton37: TRadioButton;
    RadioButton38: TRadioButton;
    RadioButton39: TRadioButton;
    RadioButton40: TRadioButton;
    RadioButton41: TRadioButton;
    RadioButton42: TRadioButton;
    pusk6: TButton;
    Label7: TLabel;
    Edit13: TEdit;
    timework7: TEdit;
    ComboBox7: TComboBox;
    RadioButton43: TRadioButton;
    RadioButton44: TRadioButton;
    RadioButton45: TRadioButton;
    RadioButton46: TRadioButton;
    RadioButton47: TRadioButton;
    RadioButton48: TRadioButton;
    RadioButton49: TRadioButton;
    pusk7: TButton;
    Label8: TLabel;
    Edit15: TEdit;
    timework8: TEdit;
    ComboBox8: TComboBox;
    RadioButton50: TRadioButton;
    RadioButton51: TRadioButton;
    RadioButton52: TRadioButton;
    RadioButton53: TRadioButton;
    RadioButton54: TRadioButton;
    RadioButton55: TRadioButton;
    RadioButton56: TRadioButton;
    pusk8: TButton;
    Label9: TLabel;
    Edit17: TEdit;
    timework9: TEdit;
    ComboBox9: TComboBox;
    RadioButton57: TRadioButton;
    RadioButton58: TRadioButton;
    RadioButton59: TRadioButton;
    RadioButton60: TRadioButton;
    RadioButton61: TRadioButton;
    RadioButton62: TRadioButton;
    RadioButton63: TRadioButton;
    pusk9: TButton;
    Label10: TLabel;
    Edit19: TEdit;
    timework10: TEdit;
    ComboBox10: TComboBox;
    RadioButton64: TRadioButton;
    RadioButton65: TRadioButton;
    RadioButton66: TRadioButton;
    RadioButton67: TRadioButton;
    RadioButton68: TRadioButton;
    RadioButton69: TRadioButton;
    RadioButton70: TRadioButton;
    pusk10: TButton;
    Label11: TLabel;
    Edit21: TEdit;
    timework11: TEdit;
    ComboBox11: TComboBox;
    RadioButton71: TRadioButton;
    RadioButton72: TRadioButton;
    RadioButton73: TRadioButton;
    RadioButton74: TRadioButton;
    RadioButton75: TRadioButton;
    RadioButton76: TRadioButton;
    RadioButton77: TRadioButton;
    pusk11: TButton;
    Label12: TLabel;
    Edit23: TEdit;
    timework12: TEdit;
    ComboBox12: TComboBox;
    RadioButton78: TRadioButton;
    RadioButton79: TRadioButton;
    RadioButton80: TRadioButton;
    RadioButton81: TRadioButton;
    RadioButton82: TRadioButton;
    RadioButton83: TRadioButton;
    RadioButton84: TRadioButton;
    pusk12: TButton;
    Label13: TLabel;
    Edit25: TEdit;
    timework13: TEdit;
    ComboBox13: TComboBox;
    RadioButton85: TRadioButton;
    RadioButton86: TRadioButton;
    RadioButton87: TRadioButton;
    RadioButton88: TRadioButton;
    RadioButton89: TRadioButton;
    RadioButton90: TRadioButton;
    RadioButton91: TRadioButton;
    pusk13: TButton;
    Edit27: TEdit;
    timework14: TEdit;
    ComboBox14: TComboBox;
    RadioButton92: TRadioButton;
    RadioButton93: TRadioButton;
    RadioButton94: TRadioButton;
    RadioButton95: TRadioButton;
    RadioButton96: TRadioButton;
    RadioButton97: TRadioButton;
    RadioButton98: TRadioButton;
    pusk14: TButton;
    Label15: TLabel;
    Edit29: TEdit;
    timework15: TEdit;
    ComboBox15: TComboBox;
    RadioButton99: TRadioButton;
    RadioButton100: TRadioButton;
    RadioButton101: TRadioButton;
    RadioButton102: TRadioButton;
    RadioButton103: TRadioButton;
    RadioButton104: TRadioButton;
    RadioButton105: TRadioButton;
    pusk15: TButton;
    Label16: TLabel;
    Edit31: TEdit;
    timework16: TEdit;
    ComboBox16: TComboBox;
    RadioButton106: TRadioButton;
    RadioButton107: TRadioButton;
    RadioButton108: TRadioButton;
    RadioButton109: TRadioButton;
    RadioButton110: TRadioButton;
    RadioButton111: TRadioButton;
    RadioButton112: TRadioButton;
    pusk16: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  

  implementation
     {$R *.dfm}


  ShowMessage('sdsdsd');





end.

Автор: northener 5.9.2012, 22:23
Цитата(supervladislav @  5.9.2012,  22:04 Найти цитируемый пост)
это из-за того что модуль не подключен

Нет. Это из-за того, что в этом месте текста модуля вызов функций и/или процедур не предесмотрен.

Автор: supervladislav 5.9.2012, 22:25
northener, простите ,а где тогда он предусмотрен.

Добавлено через 2 минуты и 14 секунд
ТОлько внутри продцедуры?

Автор: supervladislav 5.9.2012, 22:42
northener, а как сгенерировать событие при старте формы?

Автор: Данкинг 5.9.2012, 23:11
Цитата(supervladislav @  5.9.2012,  23:42 Найти цитируемый пост)
а как сгенерировать событие при старте формы? 


procedure TForm1.FormCreate(Sender: TObject);

Автор: supervladislav 6.9.2012, 00:10
Данкинг, Скажите ,а в чём может быть причина ошибки:
statement expected but procedure found  строка объявления продцедуры

ShowMessage('asdsad'); почемуто это функцию dELPHI считает необъявленным индефикатором.

Код

unit Unit1;
interface
uses
  SysUtils,Types,Classes,Variants,Forms,StdCtrls,Controls,Messages;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    timedelay1: TEdit;
    timework1: TEdit;
    ComboBox1: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    pusk1: TButton;
    Label2: TLabel;
    Edit3: TEdit;
    timework2: TEdit;
    ComboBox2: TComboBox;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    pusk2: TButton;
    Label3: TLabel;
    Edit5: TEdit;
    timework3: TEdit;
    ComboBox3: TComboBox;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    RadioButton21: TRadioButton;
    pusk3: TButton;
    Label4: TLabel;
    Edit7: TEdit;
    timework4: TEdit;
    ComboBox4: TComboBox;
    RadioButton22: TRadioButton;
    RadioButton23: TRadioButton;
    RadioButton24: TRadioButton;
    RadioButton25: TRadioButton;
    RadioButton26: TRadioButton;
    RadioButton27: TRadioButton;
    RadioButton28: TRadioButton;
    pusk4: TButton;
    Label5: TLabel;
    Edit9: TEdit;
    timework5: TEdit;
    ComboBox5: TComboBox;
    RadioButton29: TRadioButton;
    RadioButton30: TRadioButton;
    RadioButton31: TRadioButton;
    RadioButton32: TRadioButton;
    RadioButton33: TRadioButton;
    RadioButton34: TRadioButton;
    RadioButton35: TRadioButton;
    pusk5: TButton;
    Label6: TLabel;
    Edit11: TEdit;
    timework6: TEdit;
    ComboBox6: TComboBox;
    RadioButton36: TRadioButton;
    RadioButton37: TRadioButton;
    RadioButton38: TRadioButton;
    RadioButton39: TRadioButton;
    RadioButton40: TRadioButton;
    RadioButton41: TRadioButton;
    RadioButton42: TRadioButton;
    pusk6: TButton;
    Label7: TLabel;
    Edit13: TEdit;
    timework7: TEdit;
    ComboBox7: TComboBox;
    RadioButton43: TRadioButton;
    RadioButton44: TRadioButton;
    RadioButton45: TRadioButton;
    RadioButton46: TRadioButton;
    RadioButton47: TRadioButton;
    RadioButton48: TRadioButton;
    RadioButton49: TRadioButton;
    pusk7: TButton;
    Label8: TLabel;
    Edit15: TEdit;
    timework8: TEdit;
    ComboBox8: TComboBox;
    RadioButton50: TRadioButton;
    RadioButton51: TRadioButton;
    RadioButton52: TRadioButton;
    RadioButton53: TRadioButton;
    RadioButton54: TRadioButton;
    RadioButton55: TRadioButton;
    RadioButton56: TRadioButton;
    pusk8: TButton;
    Label9: TLabel;
    Edit17: TEdit;
    timework9: TEdit;
    ComboBox9: TComboBox;
    RadioButton57: TRadioButton;
    RadioButton58: TRadioButton;
    RadioButton59: TRadioButton;
    RadioButton60: TRadioButton;
    RadioButton61: TRadioButton;
    RadioButton62: TRadioButton;
    RadioButton63: TRadioButton;
    pusk9: TButton;
    Label10: TLabel;
    Edit19: TEdit;
    timework10: TEdit;
    ComboBox10: TComboBox;
    RadioButton64: TRadioButton;
    RadioButton65: TRadioButton;
    RadioButton66: TRadioButton;
    RadioButton67: TRadioButton;
    RadioButton68: TRadioButton;
    RadioButton69: TRadioButton;
    RadioButton70: TRadioButton;
    pusk10: TButton;
    Label11: TLabel;
    Edit21: TEdit;
    timework11: TEdit;
    ComboBox11: TComboBox;
    RadioButton71: TRadioButton;
    RadioButton72: TRadioButton;
    RadioButton73: TRadioButton;
    RadioButton74: TRadioButton;
    RadioButton75: TRadioButton;
    RadioButton76: TRadioButton;
    RadioButton77: TRadioButton;
    pusk11: TButton;
    Label12: TLabel;
    Edit23: TEdit;
    timework12: TEdit;
    ComboBox12: TComboBox;
    RadioButton78: TRadioButton;
    RadioButton79: TRadioButton;
    RadioButton80: TRadioButton;
    RadioButton81: TRadioButton;
    RadioButton82: TRadioButton;
    RadioButton83: TRadioButton;
    RadioButton84: TRadioButton;
    pusk12: TButton;
    Label13: TLabel;
    Edit25: TEdit;
    timework13: TEdit;
    ComboBox13: TComboBox;
    RadioButton85: TRadioButton;
    RadioButton86: TRadioButton;
    RadioButton87: TRadioButton;
    RadioButton88: TRadioButton;
    RadioButton89: TRadioButton;
    RadioButton90: TRadioButton;
    RadioButton91: TRadioButton;
    pusk13: TButton;
    Edit27: TEdit;
    timework14: TEdit;
    ComboBox14: TComboBox;
    RadioButton92: TRadioButton;
    RadioButton93: TRadioButton;
    RadioButton94: TRadioButton;
    RadioButton95: TRadioButton;
    RadioButton96: TRadioButton;
    RadioButton97: TRadioButton;
    RadioButton98: TRadioButton;
    pusk14: TButton;
    Label15: TLabel;
    Edit29: TEdit;
    timework15: TEdit;
    ComboBox15: TComboBox;
    RadioButton99: TRadioButton;
    RadioButton100: TRadioButton;
    RadioButton101: TRadioButton;
    RadioButton102: TRadioButton;
    RadioButton103: TRadioButton;
    RadioButton104: TRadioButton;
    RadioButton105: TRadioButton;
    pusk15: TButton;
    Label16: TLabel;
    Edit31: TEdit;
    timework16: TEdit;
    ComboBox16: TComboBox;
    RadioButton106: TRadioButton;
    RadioButton107: TRadioButton;
    RadioButton108: TRadioButton;
    RadioButton109: TRadioButton;
    RadioButton110: TRadioButton;
    RadioButton111: TRadioButton;
    RadioButton112: TRadioButton;
    pusk16: TButton;
    procedure FormCreate(Sender: TObject);

    end;
  var
  Form1: TForm1;
  

  implementation
     {$R *.dfm}
     
begin

 procedure TForm1.FormCreate(Sender: TObject);
 begin
 ShowMessage('asdsad');
 end;

 end.

Автор: Данкинг 6.9.2012, 00:30
Зачем тут begin ?

Код

 implementation
     {$R *.dfm}
     
begin

Автор: northener 6.9.2012, 00:33
Цитата(supervladislav @  5.9.2012,  22:25 Найти цитируемый пост)
northener, простите ,а где тогда он предусмотрен.

Вам пора приобрести хоть какой-нибудь учебник по Дельфи для начинающих. 

Для начала скажу, что текст самой программы содержится отнюдь не в файле Unit1.pas
Он содержится в файле что-то типа Projectx.dpr

Посмотрите любой пример из каталога "Program Files/Borlands/Delphi7/Demos"
И постарайтесь его понять. 

P.S. У вас профиль - завсегдатай и 1564 сообщения. Вы чем раньше занимались до того как попытаться программировать на Дельфи?

Автор: supervladislav 6.9.2012, 00:59
northener, php.
У меня целых две книги в электронном виде , а какие используете вы?

Автор: northener 6.9.2012, 01:05
Цитата(supervladislav @  6.9.2012,  00:59 Найти цитируемый пост)
northener, php.
У меня целых две книги в электронном виде , а какие используете вы?

Я никакие не использую. Базовые знания я получил уже очень давно и теперь пользую только хелп по мере необходимости.

Автор: supervladislav 6.9.2012, 01:09
northener, я уже так сделал непомогло.
Данкинг,вы могли бы мне помочь я не понимаю при чём тут 
ошибка ссылается только на необъявленую переменную.
undeclared или какой-то из модулей не подулючён?
Код

uses
  SysUtils,Types,Classes,Variants,Forms,StdCtrls,Controls,Messages;

Автор: Данкинг 6.9.2012, 01:15
Цитата(northener @  6.9.2012,  01:33 Найти цитируемый пост)
Для начала скажу, что текст самой программы содержится отнюдь не в файле Unit1.pas
Он содержится в файле что-то типа Projectx.dpr

Эмм... Не понял. Почему текст программы не содержится в .pas-файле?

Автор: supervladislav 6.9.2012, 01:15
northener, о спасибо всётаки вы опять помогли или я сам себе помог кто знает.
Функция была неподключена из-за какогото модуля ,но у меня инфы по модулям толковой досих пор нет.

Код

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ComCtrls, BandActn, StdActns, ExtActns,
  ActnList, ToolWin, ExtCtrls, ActnMan, ActnCtrls, ActnMenus,
  XPStyleActnCtrls, StdStyleActnCtrls;

В каком же модуле ты живёшь?
Код

ShowMessage


Добавлено через 46 секунд
Данкинг, я тоже не понял ,что имел ввиду northener .

Автор: Данкинг 6.9.2012, 01:17
Цитата(supervladislav @  6.9.2012,  02:15 Найти цитируемый пост)
В каком же модуле ты живёшь?

В dialogs она живёт.

Автор: northener 6.9.2012, 12:01
Цитата(Данкинг @  6.9.2012,  01:15 Найти цитируемый пост)
Эмм... Не понял. Почему текст программы не содержится в .pas-файле?

Нууу. 
Вспоминаем классику. Текст привычной нам паскалевской программы начинается служебным словом program за которым следует название программы и точка с запятой. После этого должен присутствовать блок begin - end завершающийся точкой. В этом блоке и содержится тело программы.
Раньше это действительно был pas-файл. Ныне это dpr-файл. А всё что указано в секции uses это всего лишь дополнительные модули помогающие программе реализовать её функциональность.
smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)