0 / 0 / 0
Регистрация: 31.05.2019
Сообщений: 23
1

Ошибка в коде файла проекта project.lpr

01.06.2019, 22:09. Показов 1957. Ответов 1

ошибка в коде файла проекта project.lpr: пустая программа, выделяет красным end, из-за этого не запускается. В программе ничего не записывается как в других, например такое:
Delphi
1
2
3
4
RequireDerivedFormResource:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
а у меня такой код файла проекта:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Unit1
  { you can add units after this };
 
begin
end.
исходный код проекта:

Delphi
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,  StdCtrls,
  Grids, Types, LCLProc;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    procedure A1(Sender: TObject);
    {procedure A2(Sender: TObject);   }
    procedure Edit4Change(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
type
  TPStudent = ^TStudent; // Указатель на тип TStudent
  TStudent = record
    s_name:string[20];
    birthday:string[20];
    group:string[20];
    next:TPStudent; // указатель на след.
    end;
    Var
    head:TPStudent; // указатель на голову
 
    { TForm1 }
 
       // Добавляем элемент в начало списка
 
    procedure TForm1.A1(Sender: TObject);
     Var
    node:TPStudent;
    cur:TPStudent;  {//текущий элемент списка}
    pre:TPStudent; // предыдущий относительно cur
 
    j,i,k:integer;
    st1,st2,st3:string;
    begin
new(node); // Выделяем память для динамической переменной ЗАПИСЬ
node^.s_name:=Edit1.Text;
node^.birthday:=Edit2.Text; //Создание нового элемента списка
node^.group:=Edit3.Text;
cur:=head;
pre:=NIL;
while cur <> NIL do
 begin
  pre:=cur;
  cur:=cur^.next; // к следующему узлу
    end;
 if pre = NIL
 then
  begin
   node^.next:=head;
   head:=node;
  end
 else
  begin
   node^.next:=pre^.next;
   pre^.next:=node;
  end;
                                     //процедура вывода
  i:=0;
j:=0;
k:=1;
cur:=head; // указатель на первый элемент
while cur <> NIL do
begin
  st1:=cur^.s_name;
  st2:=cur^.birthday;
  st3:=cur^.group;
  cur:=cur^.next;
  i:=i+1;
  j:=j+1;
  dispose(cur);
  StringGrid1.Cells[i,j]:=st1;
StringGrid1.Cells[i+1,j]:=st2;
StringGrid1.Cells[i+2,j]:=st3;
i:=0;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
 
StringGrid1.Cells[0,k]:=IntToStr(k);
inc(k);
end;
 
    end;
 
 
procedure TForm1.Edit4Change(Sender: TObject);
begin
  StringGrid1.Tag := 0;
end;
 
end.
Миниатюры
Ошибка в коде файла проекта project.lpr   Ошибка в коде файла проекта project.lpr  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2019, 22:09
Ответы с готовыми решениями:

Ошибка в коде: cannot find project or library
Помогите с кодом. Нужен алгоритм проверки dwg файла. Имеется стандарт, те определенные стили,...

При запуске проекта выдается ошибка "Checking project dependencies"
Помогите пожалуйста, не могу разобраться в чем ошибка, при запуске Проекта он выдает ошибку The are...

Python project. Идеи проекта
Посоветуйте/предложите идею проекта по python. Это должно быть десктопное приложение (с GUI). Мой...

Экспорт проекта Project Siena в студию
Добрый вечер, экпортирую проект сиены в студию, всё круто, запускаю проект в студии и появляется то...

1
0 / 0 / 0
Регистрация: 31.05.2019
Сообщений: 23
01.06.2019, 22:49  [ТС] 2
нашел решение, пишу
в проекте в теме Error: Undefined symbol: WSRegisterCustomImageList
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1
  { you can add units after this };
 
begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
в юните
Delphi
1
2
3
uses
  Classes, SysUtils, FileUtil, Interfaces, Forms, Controls, Graphics, Dialogs,  StdCtrls,
  Grids, Types, LCLProc;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2019, 22:49

При открытии любого файла Project появляется ошибка: "address 005c53c"
При открытии любого файла Project вылазит такая вот ошибка:

При создании проекта пишет Install missing platform(s) and sync project
Error:Failed to find target with hash string 'android-26' in: D:\AndroidSDKLocation &lt;a...

Ошибка: не найден файла d3dx9.h при компиляции проекта
Здравствуйте, уважаемые пользователи данного форума. Я нуждаюсь в помощи установки MVS. Когда я его...

чтение из файла, ошибка в коде
Здравствуйте. Жутко стыдно обращаться с такой пустяковой проблемой, но... Я уже битый час воюю с...

Ошибка в коде чтения из файла
Никак не могу понять в чем ошибка, помогите пожалуйста. public static void Main(string args)...

Ошибка в коде чтения данных из файла
Нашел в интернете код чтения данных из файла 1 раз удалось его использовать после чего решил...


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

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

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