[Lie]

У меня есть Unit1, Unit2...Unit_X
Нужно чтобы каждом из этих Unit'ов работала созданная мною процедура (допустим GetCount). Где ее нужно прописать

[Winny]

Раздел public

[Lie]

Внизу пишет:
[Error] Unit2.pas(151): Overloaded procedure 'GetCount' must be marked with the 'overload' directive
Что делать?

[Winny]

Например:

Код:

procedure GetCount;
begin
Код процедуры
end;

Потом надо написать в разделе public вот что:

Код:

public
procedure GetCount;

Всё! Теперь можно вызывать эту процедуру из других юнитов.

[Winny]

У меня проблем не было, проверь.

[zip000]

Winny, ты не то пишешь, ты написал про функции формы, которая содержится в модуле, а это не то.

Кароч, есть 2 похожих способа решения данной проблемы.
1) Запихнуть процедуру, например, в Unit1, а потом в остальных юнитах в Uses добавлять Unit1.
2) Создать текстовый документ, в него поместить процедуру, переименовать файл и сделать расширение *.inc. Затем перед тем местом где будет использоваться данная процедура (перед началом процедуры\функции пишешь {$I Имя_Файла_С_ПРОЦЕДУРОЙ.inc}. Есесьно писать это надо 1 раз в модуле.

Пример

Файл MyFunc.inc

Код:

function Sum(X, Y : Integer) : Integer;
begin
  Result := X + Y;
end;

Код в модуле

Код:

unit Unit1;
...........
interface
...........
implementation
...........
{$I MyFunc.inc}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := IntToStr(Sum(2, 3));
end;