Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/22: Рейтинг темы: голосов - 22, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
1

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found

10.09.2014, 13:52. Просмотров 4214. Ответов 8
Метки нет (Все метки)

Добрый день! пишу программу по методичке, выдает вот такие ошибки:
unit1.pas(78,1) Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
unit1.pas(78,1) Warning: Unknown procedure directive had to be ignored: "identifier".
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, ExtCtrls, EditBtn, FileCtrl, LCL;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    DirectoryEdit1: TDirectoryEdit;
    FileListBox1: TFileListBox;
    FilterComboBox1: TFilterComboBox;
    Image1: TImage;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DirectoryEdit1Change(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
 
    procedure FilterComboBox1Change(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
 
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   case ComboBox1.Text of
  'Имя'      : Memo1.Text := 'Дмитрий';
  'Фамилия'  : Memo1.Text := 'Чирков';
  'Отчество' : Memo1.Text := 'Юрьевич';
  'Год рождения' : Memo1.Text := '7 мая 1996';
  'Домашний адрес' : Memo1.Text := 'улица Народная, 64';
  'Рост' : Memo1.Text := '178';
  'Вес' : Memo1.Text := '85';
  'Хобби' : Memo1.Text := 'Компьютерные игры';
 
  end;
end;
 
procedure TForm1.DirectoryEdit1Change(Sender: TObject);
begin
  FileListBox1.Directory:=DirectoryEdit1.Directory;
end;
 
procedure TForm1.FileListBox1Change(Sender: TObject);
Bitmap: HBitmap ;
BM: Windows.TBitmap;
 
begin
  Bitmap:=LoadImage (0, PChar (FileListBox1. FileName), Image_Bitmap, 0, 0, LR_LOADFROMFILE );
GetObject (Bitmap, SizeOf (BM), @BM);
if (BM.bmHeight > Image1.Height) or (BM.bmWidth > Image1.Width)
then Image1.Stretch := True
else Image1.Stretch := False;
if FileListBox1.FileName  <> ''  then
Image1.Picture.LoadFromFile (FileListBox1.FileName)
 
 
end;
 
 
 
procedure TForm1.FilterComboBox1Change(Sender: TObject);
begin
    FileListBox1.Mask:='*.bmp; *.BMP; *.jpg;*.jpeg'+FilterComboBox1.Mask;
end;
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.09.2014, 13:52
Ответы с готовыми решениями:

Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, &quot;BEGIN&quot; expected but &quot;end of file&quot; found выдает эту ошибку...

Fatal: Syntax error, "BEGIN" expected but "end of file" found
Доброго времени суток! Вот простой код, который, по идее, находит корни квадратного уравнения....

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( &quot;mas:=A2;&quot; )? procedure TForm1.Button1Click(Sender: TObject); ...

Выдаёт ошибки Fatal: Syntax error, "BEGIN" expected but "end of file" found. Пожалуйста посмотрите что не так, прошу!
Выдаёт ошибки Fatal: Syntax error, &quot;BEGIN&quot; expected but &quot;end of file&quot; found. Пожалуйста...

8
Модератор
3466 / 2592 / 738
Регистрация: 19.09.2012
Сообщений: 7,953
10.09.2014, 14:21 2
var где?
0
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
10.09.2014, 14:25  [ТС] 3
а что нужно написать в var?
0
Модератор
3466 / 2592 / 738
Регистрация: 19.09.2012
Сообщений: 7,953
10.09.2014, 14:26 4
Его самого и нужно написать)
0
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
10.09.2014, 14:28  [ТС] 5
перед вот этим:Bitmap: HBitmap ;
BM: Windows.TBitmap;


тогда выдает кучу ошибок еще
0
Модератор
3466 / 2592 / 738
Регистрация: 19.09.2012
Сообщений: 7,953
10.09.2014, 14:30 6
Каких?
0
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
10.09.2014, 14:32  [ТС] 7
вот
0
Миниатюры
Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found  
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29633 / 19500 / 7645
Регистрация: 22.10.2011
Сообщений: 34,027
Записей в блоге: 6
10.09.2014, 15:10 8
Лучший ответ Сообщение было отмечено demon05500 как решение

Решение

А, так у тебя в секции Uses нет модуля Windows. Добавь:
Pascal
41
42
43
44
implementation
uses Windows; // <--- Вот эту строку
 
{$R *.lfm}
1
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
10.09.2014, 15:15  [ТС] 9
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.09.2014, 15:15

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к...

Ошибка: Syntax error, ";" expected but "BEGIN" found
Ошибка тут в строке с сообщением в комментарие, строка 40. Не понимаю почему. procedure...

Unit1.pas(66,4) Fatal: Syntax error, ";" expected but "." found
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...

Ошибка Fatal: Syntax error, ";" expected but "is" found
Не могу нигде прописать часть кода вот эт type tproc = procedure is...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.