|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
процудура для всех юнитов
У меня есть Unit1, Unit2...Unit_X
Нужно чтобы каждом из этих Unit'ов работала созданная мною процедура (допустим GetCount). Где ее нужно прописать |
#2
|
||||
|
||||
Раздел public
|
#3
|
|||
|
|||
Внизу пишет:
[Error] Unit2.pas(151): Overloaded procedure 'GetCount' must be marked with the 'overload' directive Что делать? |
#4
|
||||
|
||||
Например:
Код:
procedure GetCount; begin Код процедуры end; Код:
public procedure GetCount; |
#5
|
||||
|
||||
У меня проблем не было, проверь.
|
#6
|
||||
|
||||
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; Не профи, но и не чайник . D6 - лучше не придумали. Пока. |