VPF::Функции в отдельном файле - Форум программистов

Joker07

Дата 26.6.2008, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 17.6.2006

Репутация: нет
Всего: нет

Доброго времени суток. Помогите пож-та с программой.
Программа имеет несколько pas файлов. Главный unit1 ссылается на другие pas-файлы таким образом:

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, Convert;

{$i PEheader}
{$i PEnames}

type

В файле PEnames при компиляции проекта выдается [Ошибка] PEnames.pas(25): Statements not allowed in interface part.
Ну и из за нее идут ошибки в каждой последующей строчке.
Код PEnames с самого начала:

Код


CONST
  PEoptionStr: Array[0..15]of String[60] = (
    // сокращено  
        );

FUNCTION PE_MachineName  (Machine: Word) : String;
Begin              // с этой строчки нач-ся ошибки
 Case Machine of

Как исправить??? Если что, могу привести полный код...

Snowy

Дата 26.6.2008, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Перенеси функцию в раздел implementation.
В интерфейсной части могут быть только объявления. Не код.

Joker07

Дата 26.6.2008, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 17.6.2006

Репутация: нет
Всего: нет

ОК. Сделал так:

Код


CONST
  PEoptionStr: Array[0..15]of String[60] = (
 // сокращено 
        );

implementation

FUNCTION PE_MachineName  (Machine: Word) : String;

Теперь ошибка в Unit1.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, Convert;

{$i PEheader}
{$i PEnames}

type
// сокращено
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PEfile    :file;
  PEname    :String;
  EXEhead    :tEXEheader;
  PEhead    :tPEheader;
  PEopthead:tPEoptheader;

implementation // здесь ошибка

{$R *.dfm}

function LtJustify(s:String;n:byte):String;

[Ошибка] Unit1.pas(46): '.' expected but 'IMPLEMENTATION' found

aktuba

Дата 26.6.2008, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Joker07, функцию объяви в интерфейсной части, а в implementation сделай реалиацию:

Код


CONST
  PEoptionStr: Array[0..15]of String[60] = (
 // сокращено 
        );

FUNCTION PE_MachineName  (Machine: Word) : String;

implementation

FUNCTION PE_MachineName  (Machine: Word) : String;
begin
  // Тут код
end;

end.

--------------------

Joker07

Дата 26.6.2008, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 17.6.2006

Репутация: нет
Всего: нет

Сделал. Ошибка как была, так и есть.

THandle

Дата 27.6.2008, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Пример работующего юнита и функции в нем:

Код



unit Unit2;

interface

function SomeFunc(Param : string) : string;

implementation

function SomeFunc(Param : string) : string;
begin
  result := Param + Param;
end;

end.

Далее подключаем его в другом юните:

Код



uses unit2;

И спокойно вызываем в нем функцию SomeFunc...

Joker07

Дата 27.6.2008, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 17.6.2006

Репутация: нет
Всего: нет

Большое спасибо всем! Вопрос решен smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »