Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];
Вниз
Вызов процедуры/функции из другого Unit Найти похожие ветки
← →
vigo_ (2006-07-18 10:09) [0]Добрый день,
написал несколько своих процедур и функций, которые без проблем используются в Unit1. Теперь хочу использовать эти процедуры, функции из другого Unit"а, в uses Unit2 указал Unit1, но они по прежднему недоступны. Как сделать корректно?
← →
Ega23 © (2006-07-18 10:14) [1]указать их в interface Unit1
← →
Ega23 © (2006-07-18 10:15) [2]
unit Unit1;
interface
function MyFunctnion:Integer;
implementation
function MyFunctnion:Integer;
begin
Result;=0;
end;
← →
vigo_ (2006-07-18 10:27) [3]Не компилится, [2] взял за образец:
Declaration expected but "Uses" found
← →
DrPass © (2006-07-18 10:28) [4]
> [2] взял за образец
Значит, плохо взял. uses пиши после слова interface, а не перед :)
← →
Ega23 © (2006-07-18 10:29) [5]код в студию.
← →
vigo_ (2006-07-18 10:39) [6]
unit Unit1;
interface
function MyFunctnion:Integer;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function MyFunctnion:Integer;
begin
Result;=0;
end;
{$R *.dfm}
end.
← →
clickmaker © (2006-07-18 10:44) [7]
> function MyFunctnion:Integer;
декларации только после uses.
В общем случае любой юнит выглядит так:
unit UnitName;
interface
uses ...
type
// типы, классы
внешние (доступные другим юнитам, которые uses этот) декларации
implementation
uses ...
приватные декларации
← →
Ega23 © (2006-07-18 10:47) [8]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
function MyFunctnion:Integer;
var
Form1: TForm1;
implementation
function MyFunctnion:Integer;
begin
Result;=0;
end;
{$R *.dfm}
end.
← →
vigo_ (2006-07-18 11:02) [9]
> Ega23 © (18.07.06 10:47) [8]
Спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.02 c
