Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
#1

Ошибка: Syntax error, "=" constructor but constructor found - Lazarus

17.06.2016, 14:46. Просмотров 384. Ответов 10
Метки нет (Все метки)

Пытался найти решение, но нашел только одну подобную тему и ее решением было убрать '';'' после ''class'', но у меня и так нет ";", а ошибку продолжает выбивать (Данная ошибка в Unit3,строка 16)
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
unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils,unit2;
     type
       TPyramida=class(TKvadrat)
         private
         FApofema: integer;
         procedure Get_Apofema(st:integer);
         end;
       public
         constructor Create(pl,pe,st,ap,py:integer);
         function info:string:overload;
         function pyramida (st,pe,pl:integer):integer;
end;
implementation
   constructor TPyramida.Create;
    begin
     inherited Create(pl,pe,st:integer);
     FApofema:= ap;
     FPyramida:= py;
   end;
 function TPyramida.info:string;
 begin
 result:= inherited info+'  '+'а пирамида с апофемой:'+ intTostr(FApofema)+'см'+
 '  '+'и с основанием аналогичного квадрата имеет площадь:'+intTostr(FPyramida)+'см.';
 end;
   procedure TPyramida.Get_Apofema(ap:integer);
      begin
      if (ap>0)  and  (ap<>0)  then  FApofema:=ap
      else
      FApofema:=4;
      FApofema:=ap;
      ap:=4;
      end;
     function TPyramida.pyramida (st,pe,pl:integer):integer;
     begin
         py:=(1/2)*ap*pe+pl;
         FPyramida:=py;
     end;
end.
А в модуле 2 выбивает 2 предупреждения 'Function result does not to be set' в строках 45 и 50

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
unit Unit2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
  TKvadrat=class(TObject)
private
  FStorona: integer;
  FPloshad:integer;
  FPerimetr:integer;
  procedure Get_Storona(st:integer);
public
  constructor Create(pl,pe,st:integer);
  function info:string;
  function perimetr (st,pe:integer):integer;
  function ploshad (st,pl:integer):integer;
  property Storona :integer read FStorona write Get_Storona;
  end;
implementation
      constructor TKvadrat.Create(pl,pe,st:integer);
begin
    FStorona:=st;
    FPloshad:=pl;
    FPerimetr:=pe;
    inherited Create;
end;
      function TKvadrat.info:string;
      begin
          result:='Квадрат со стороной:'+intTostr(FStorona)+'см'+'  '+'имеет периметр:'+intTostr(FPerimetr)+'см'
          +'  '+'и площадь:'+intTostr(FPloshad)+'см,';
      end;
    procedure TKvadrat.Get_Storona(st:integer);
    begin
    if (st>0)  and  (st<>0)  then  FStorona:=st
    else
    FStorona:=2;
    FStorona:=st;
    st:=2;
    end;
     function TKvadrat.perimetr(st,pe:integer):integer;
     begin
            pe:= 4*st;
            FPerimetr:=pe;
       end;
        function TKvadrat.ploshad(st,pl:integer):integer;
     begin
            pl:= st*st;
            FPloshad:=pl;
       end;
 
end.
Все вроде бы делаю по примерам из лекций, но ошибки почему-то выбивает
http://www.cyberforum.ru/lazarus/thread2185902.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2016, 14:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ошибка: Syntax error, "=" constructor but constructor found (Lazarus):

Ошибка: 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, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( &quot;mas:=A2;&quot; )? procedure...

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

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

Fatal: Syntax error, "BEGIN" expected but "identifier BITMAP" found
Добрый день! пишу программу по методичке, выдает вот такие ошибки: ...

10
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25611 / 17164 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 6
17.06.2016, 15:02 #2
14-я строка в Unit3 зачем?

Цитата Сообщение от ProFrog111 Посмотреть сообщение
в модуле 2 выбивает 2 предупреждения 'Function result does not to be set' в строках 45 и 50
А там действительно не присваивается ничего переменной Result, чтобы вернуть из функции результат. Меняется поле класса, но это не значит, что метод будет возвращать правильный результат, если его использовать в выражении.
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
17.06.2016, 16:20  [ТС] #3
Действительно, не понимаю почему влепил туда "end;".
Но теперь выдает ошибку в перегрузке(17 строка)
А там действительно не присваивается ничего переменной Result, чтобы вернуть из функции результат. Меняется поле класса, но это не значит, что метод будет возвращать правильный результат, если его использовать в выражении.
Не шибко хорошо понял, что это означает, если эти предупреждения будут присутствовать значит данные будут выводиться не корректно?

Исправил Unit3 выводило еще несколько ошибок, но их удалось исправить, а с это затруднения(строка 22,синтаксическая ошибка ")"expected but ":" found)
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
unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils,unit2;
     type
       TPyramida=class(TKvadrat)
         private
         FApofema: integer;
         procedure Get_Apofema(st:integer);
         public
         function info:string;overload;
         constructor Create(pl,pe,st,ap,py:integer);
         function pyramida (st,pe,pl:integer):integer;
end;
implementation
   constructor TPyramida.Create(pl,pe,st,ap,py:integer);
    begin
     inherited Create(pl,pe,st:integer);
     FApofema:= ap;
     FPyramida:= py;
   end;
 function TPyramida.info:string;
 begin
 result:= inherited info+'  '+'а пирамида с апофемой:'+ intTostr(FApofema)+'см'+
 '  '+'и с основанием аналогичного квадрата имеет площадь:'+intTostr(FPyramida)+'см.';
 end;
   procedure TPyramida.Get_Apofema(ap:integer);
      begin
      if (ap>0)  and  (ap<>0)  then  FApofema:=ap
      else
      FApofema:=4;
      FApofema:=ap;
      ap:=4;
      end;
     function TPyramida.pyramida (st,pe,pl:integer):integer;
     begin
         py:=(1/2)*ap*pe+pl;
         FPyramida:=py;
     end;
end.
Добавлено через 9 минут
Из 22 строки убрал ":integer"

Delphi
1
2
3
4
5
6
7
implementation
   constructor TPyramida.Create(pl,pe,st,ap,py:integer);
    begin
     inherited Create(pl,pe,st);
     FApofema:= ap;
     FPyramida:= py;
   end;
Но теперь компилятор ругается на переменные ap,py,FPyramida
0
Kitayets
334 / 288 / 102
Регистрация: 09.09.2011
Сообщений: 1,013
17.06.2016, 16:20 #4
Delphi
1
inherited Create(pl,pe,st:integer);
при вызове тип указывать не надо.

вот правильный вызов.
Delphi
1
inherited Create(pl,pe,st);
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
17.06.2016, 16:34  [ТС] #5
Спасибо большое, но я уже нашел эту ошибку и исправил выше)

Добавлено через 7 минут
Добавил "FPyramida: integer; " в код, теперь ругается только на ap,py и на "procedure TPyramida.Get_Apofema(ap:integer);"

Добавлено через 5 минут
Опять же добавил "py" "function pyramida(st,pe,pl,py:integer):integer" и теперь только ошибка с переменной "ap" и процедурой)
0
Kitayets
334 / 288 / 102
Регистрация: 09.09.2011
Сообщений: 1,013
17.06.2016, 16:51 #6
измените описание процедуры в классе - что бы совпадали имена параметров:
Delphi
1
2
3
4
5
6
7
8
9
10
11
type
       TPyramida=class(TKvadrat)
         private
         FApofema: integer;
         //procedure Get_Apofema(st:integer);
         procedure Get_Apofema(ap:integer);   //<-----!!!!!!
         public
         function info:string;overload;
         constructor Create(pl,pe,st,ap,py:integer);
         function pyramida (st,pe,pl:integer):integer;
end;
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
17.06.2016, 21:20  [ТС] #7
Спасибо большое без описания формы критических ошибок больше не выдает (только 3 предупреждения "Function result does not seem to be set").А уже с использованием формы выдает 4 ошибка (unit1-строка 73;unit2-строка 25;unit1-строка 74;unit3-строка 21)Сам то я понимаю почему компилятор в данном случае ругается в форме(unit1) я записываю Kva:=TKvadrat.Create(k); а в unit2 constructor TKvadrat.Create(pl,pe,st:integer); аналогичная ситуация с unit3, я понимаю,что количество переменных кардинально отличается, но как их уровнять хз
UNIT1
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,unit2,unit3;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  Kva:TKvadrat;
  Pyr:TPyramida;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label2Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label3Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
k,a:integer;
begin
   k:=strtoint(Edit1.Text);
   a:=strtoint(Edit2.Text);
    Kva:=TKvadrat.Create(k);
    Pyr:=TPyramida.Create(a,k);
    showmessage('Ok');
    label3.Caption:=Kva.info+''+Pyr.info;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.clear;
  Edit2.clear;
  Label3.Caption:='';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Kva.free;
  Pyr.free;
  close
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
end;
 
end.
UNIT2
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
unit Unit2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
  TKvadrat=class(TObject)
private
  FStorona: integer;
  FPloshad:integer;
  FPerimetr:integer;
  procedure Get_Storona(st:integer);
public
  constructor Create(pl,pe,st:integer);
  function info:string;
  function perimetr (st,pe:integer):integer;
  function ploshad (st,pl:integer):integer;
  property Storona :integer read FStorona write Get_Storona;
  end;
implementation
      constructor TKvadrat.Create(pl,pe,st:integer);
begin
    FStorona:=st;
    FPloshad:=pl;
    FPerimetr:=pe;
    inherited Create;
end;
      function TKvadrat.info:string;
      begin
          result:='Квадрат со стороной:'+intTostr(FStorona)+'см'+'  '+'имеет периметр:'+intTostr(FPerimetr)+'см'
          +'  '+'и площадь:'+intTostr(FPloshad)+'см,';
      end;
    procedure TKvadrat.Get_Storona(st:integer);
    begin
    if (st>0)  and  (st<>0)  then  FStorona:=st
    else
    FStorona:=2;
    FStorona:=st;
    st:=2;
    end;
     function TKvadrat.perimetr(st,pe:integer):integer;
     begin
            pe:= 4*st;
            FPerimetr:=pe;
       end;
        function TKvadrat.ploshad(st,pl:integer):integer;
     begin
            pl:= st*st;
            FPloshad:=pl;
       end;
 
end.
UNIT3
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
unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils,unit2;
     type
       TPyramida=class(TKvadrat)
         private
         FApofema: integer;
         FPyramida: real;
         procedure Get_Apofema(ap:integer);
         public
         function info:string;overload;
         constructor Create(pl,pe,st,ap:integer; py:real);
         function pyramida (st,pe,pl,ap:integer; py:real):real;
end;
implementation
   constructor TPyramida.Create(pl,pe,st,ap:integer;py:real);
    begin
     inherited Create(pl,pe,st);
     FApofema:= ap;
     FPyramida:= py;
   end;
 function TPyramida.info:string;
 begin
 result:= inherited info+'  '+'а пирамида с апофемой:'+ intTostr(FApofema)+'см'+
 '  '+'и с основанием аналогичного квадрата имеет площадь:'+floatTostr(FPyramida)+'см.';
 end;
   procedure TPyramida.Get_Apofema(ap:integer);
      begin
      if (ap>0)  and  (ap<>0)  then  FApofema:=ap
      else
      FApofema:=4;
      FApofema:=ap;
      ap:=4;
      end;
     function TPyramida.pyramida (st,pe,pl,ap:integer; py:real):real;
     begin
         py:=((1/2)*ap*pe)+pl;
         FPyramida:=py;
     end;
end.
Добавлено через 3 часа 14 минут
Теперь вообще критических ошибок не выдает, только выбивает 3 прудпреждения
Function result does not seems to be set (юнит 2 строка 44)
Function result does not seems to be set (юнит 2 строка 50)
Function result does not seems to be set (юнит 3 строка 39)
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
18.06.2016, 00:46  [ТС] #8
Ошибка: Syntax error, "=" constructor but constructor found
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
18.06.2016, 09:18  [ТС] #9
А там действительно не присваивается ничего переменной Result, чтобы вернуть из функции результат. Меняется поле класса, но это не значит, что метод будет возвращать правильный результат, если его использовать в выражении.
Получилось присвоить и теперь компилятор работает отлично без каких-либо предупреждений, НО опять же программа работает не корректно, переменная апофемы присваивается стороне квадрата и никаких данных больше не выводит(кроме длины стороны и апофемы), а с чем это связано не могу понять...

Unit1
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,unit2,unit3;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  Kva:TKvadrat;
  Pyr:TPyramida;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label2Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label3Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
k,a:integer;
begin
   k:=strtoint(Edit1.Text);
   a:=strtoint(Edit2.Text);
    Kva:=TKvadrat.Create(k);
    Pyr:=TPyramida.Create(a);
    showmessage('Ok');
    label3.Caption:=Pyr.info;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.clear;
  Edit2.clear;
  Label3.Caption:='';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Kva.free;
  Pyr.free;
  close
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
end;
 
end.
Unit2
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
unit Unit2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
  TKvadrat=class(TObject)
private
  FStorona: integer;
  FPloshad:integer;
  FPerimetr:integer;
  procedure Get_Storona(st:integer);
 
public
  constructor Create(st:integer);
  function info:string;
  function perimetr (st,pe:integer):integer;
  function ploshad (st,pl:integer):integer;
  property Storona :integer read FStorona write Get_Storona;
  end;
implementation
      constructor TKvadrat.Create(st:integer);
begin
    FStorona:=st;
    inherited Create;
end;
 
      function TKvadrat.info:string;
      begin
          result:='Квадрат со стороной:'+intTostr(FStorona)+'см'+'  '+'имеет периметр:'+intTostr(FPerimetr)+'см'
          +'  '+#13#10+'и площадь:'+intTostr(FPloshad)+'см,';
      end;
        procedure TKvadrat.Get_Storona(st:integer);
    begin
    if (st>0)  and  (st<>0)  then  FStorona:=st
    else
    FStorona:=2;
    FStorona:=st;
    end;
     function TKvadrat.perimetr(st,pe:integer):integer;
     begin
 
     pe:= 4*st;
            FPerimetr:=pe;
     result:= FPerimetr;
     end;
        function TKvadrat.ploshad(st,pl:integer):integer;
     begin
            pl:= st*st;
            FPloshad:=pl;
     result:=Fploshad;
     end;
 
 
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
unit Unit3;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils,unit2;
     type
       TPyramida=class(TKvadrat)
         private
         FApofema: integer;
         FPyramida: real;
         procedure Get_Apofema(ap:integer);
         public
         function info:string;overload;
         constructor Create(ap:integer);
         function pyramida (pe,pl,ap:integer; py:real):real;
end;
implementation
   constructor TPyramida.Create(ap:integer);
    begin
     inherited Create(ap);
     FApofema:= ap;
   end;
 function TPyramida.info:string;
 begin
 result:= inherited info+'  '+'а пирамида с апофемой:'+ intTostr(FApofema)+'см'+
 '  '+'и с основанием аналогичного квадрата имеет площадь:'+floatTostr(FPyramida)+'см.';
 end;
   procedure TPyramida.Get_Apofema(ap:integer);
      begin
      if (ap>0)  and  (ap<>0)  then  FApofema:=ap
      else
      FApofema:=4;
      FApofema:=ap;
      ap:=4;
      end;
     function TPyramida.pyramida (pe,pl,ap:integer; py:real):real;
     begin
         py:=((1/2)*ap*pe)+pl;
         FPyramida:=py;
         result:=Fpyramida;
     end;
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25611 / 17164 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 6
18.06.2016, 09:30 #10
Когда ты наконец додумаешься прикрепить сам проект (только без exe-шника, на фига мегабайты по сети качать, откомпилировать может каждый)? Потому что пересоздавать твою форму никому не интересно...
0
ProFrog111
0 / 0 / 7
Регистрация: 08.10.2015
Сообщений: 123
18.06.2016, 09:48  [ТС] #11
Когда ты наконец додумаешься прикрепить сам проект (только без exe-шника, на фига мегабайты по сети качать, откомпилировать может каждый)? Потому что пересоздавать твою форму никому не интересно...
Ну я думал там какая-то синтаксическая ошибка и можно обойтись просто кодом
Наследование и полиморфизм.rar
0
18.06.2016, 09:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2016, 09:48
Привет! Вот еще темы с решениями:

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

Ошибка: Error: Identifier not found "TIdPeerThread"
Странная ошибка. Сначала сам написал, ошибка возникла. После еле как нашел...

Ошибка: "BEGIN" expected but "end of file" found
Выдает ошибку: Compile Project, Target: test.exe: Exit code 1, Errors: 1...

ошибка Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "LongWord"
Здравствуйте дорогие форумчанины. В данном коде выходит ошибка ...


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

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

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