Помогите! где ошибка? первая программа на Delphi. ошибку найти не могу...

[Ростик123]

Помогите! где ошибка? первая программа на Delphi. ошибку найти не могу...

[Аватар]

А что там за точки с запятой при объявлении объектов? Даже подчеркнуто красным. Следующий раз код текстом выкладывай, в твоём jpg никто разбираться не будет

[Ростик123]

А что из точкой и запятой не так? Про код текстом в след раз буду знать)

[doktor255]

Ростик123 Мозг включи. В твоей картинке не фига не видно. Как тебе помогать? Спеть, сплясать?

[type_Oleg]

Плохо видно, поэтому присоединяюсь по поводу кода. Пиши в тегах code, точнее копируй.
В unit2, в строках 12,13,14 - вместо двоеточия : точка с запятой ;
В конструкциях имя:тип

[Ростик123]

Вот код)

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids,
Vcl.DBGrids, Data.DB, Data.Win.ADODB;

type
TForm2 = class(TForm);
ADOConnection1; TADOConnection;
ADOTable1; TADOTable;
DataSource1; TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure DataSource1DataChange(Sender: TObject; Field; TField);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2; DataSource1DataChange(Sender: TObject; Field: TField);
begin

end;

end.

[type_Oleg]

Вот ошибки

 ADOConnection1; TADOConnection;
 ADOTable1; TADOTable;
 DataSource1; TDataSource;

[Ростик123]

Сори, я неправильна написал, не ошибку найти не могу а виправить не могу))

[Stilet]

а виправить не могу))

Всмысле?
Ты этот код вообще откуда скопипастил? Компоненты небось не накидал совсем на форму? Тебе же type_Oleg сказал - ; нужно заменить на : между словами.

[doktor255]

Ростик123 Это не код, а перечисление используемых контроллов, процедур и юнитов. Даже если исправить, то программа будет пустой безжизненной болванкой.

procedure DataSource1DataChange(Sender: TObject; Field; TField);

А должно быть двоеточие.

procedure DataSource1DataChange(Sender: TObject; Field: TField);