Форум: "Начинающим";
Текущий архив: 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.012 c