[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;

[Winny]

Понятно, что не понял Lie

[4kusNick]

Так же можно создать свой pas юнит с процедурами\функциями и, там, где нужно юзать процедуры\ф-ии из этого юнита, просто добавлять его в Uses. Причем наш юнит с процедурами\ф-ми можно вообще положить куда-нить на винт и юзать этот модуль вообще из любых своих проектов, просто добавив путь до папки в настройки среды (в Library path) и добавив в нужный проект в uses наш модуль, например:

типа наш юнит:

Код:

unit DFunctions;

interface

// used units & modules

  uses
    //...

  const
    //...

  procedure CopyAllFiles(sFromFolder: String; sToFolder: String);

implementation

procedure CopyAllFiles(sFromFolder: String; sToFolder: String);
begin
//...
end;
end.

Кидаем этот юнит куда-нить на винт, отдельно от наших проектов.
Добавляем путь до папки в среду разработки, а потом, при написании проектов, если мы вдруг захотим юзать процедурку CopyAllFiles, то мы просто в Uses добавляем DFunctions, и спокойно в любом месте текущего нашего юнита вызываем эту процедурку.
Можно, чтобы было понятнее, откуда она, вызывать ее так:

Код:

DFunctions.CopyAllFiles(...);

[Алексей1980]

а может лучше File>Use Unit ?
не знаю куда оно прописывется, давно читал, но вроде работает