помогите справится с ошибкой syntax error

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

помогите справится с ошибкой syntax error

Сообщение studentftf » 11.01.2011 21:52:55

при компиляции программы выдает ошибку "IMPLEMENTATION" expected but "INTERFACE" found
вот часть кода, помогите исправить
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;




type

{ TForm1 }

TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure GrOfFunc;
private
Function f(x:real):real;
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
implementation

{ TForm1 }
// Функция, график которой надо построить
function TForm1.f(x: real): real;
begin
f:=exp(-x);
end;
studentftf
незнакомец
 
Сообщения: 1
Зарегистрирован: 11.01.2011 21:44:55

Re: помогите справится с ошибкой syntax error

Сообщение Mr.Smart » 11.01.2011 22:00:21

Первое! Помещайте код в секцию [сode]. Для удобочитаемости!
Второе у вас секция interface встречается дважды, а она должна быть ТОЛЬКО одна в модуля!
Mr.Smart
долгожитель
 
Сообщения: 1796
Зарегистрирован: 29.03.2008 01:01:11
Откуда: из леса!

Re: помогите справится с ошибкой syntax error

Сообщение VirtUX » 11.01.2011 23:23:24

Mr.Smart писал(а):у вас секция interface встречается дважды

Что-то я не вижу второго раза :|
Да и вообще ошибок не вижу за исключением отсутствия end. в конце и реализации процедур.
Аватара пользователя
VirtUX
энтузиаст
 
Сообщения: 880
Зарегистрирован: 05.02.2008 10:52:19
Откуда: Крым, Алушта

Re: помогите справится с ошибкой syntax error

Сообщение Mr.Smart » 11.01.2011 23:34:33

VirtUX
Товарищ просто успел отредактировать свой пост пока я писал данный текст :wink:

Добавлено спустя 1 минуту 5 секунд:
Думается, сам заметил....
Mr.Smart
долгожитель
 
Сообщения: 1796
Зарегистрирован: 29.03.2008 01:01:11
Откуда: из леса!


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 25

Рейтинг@Mail.ru