| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание и использование своего юнита с процедурами и функциями

allrussia ©   (2006-06-03 20:00:00) 

unit Imp;

interface

uses SysUtils, Windows, Forms, Dialogs;

type TImp = class (TOBject)
 protected
   function AddS: integer;
 public
   function AddX: integer;
 end;

implementation

uses Unit1;

function TImp.AddS: integer;
begin
result := 1;
end;

function TImp.AddX: integer;
begin
result := 1;
end;

end.

Нужно чтобы я мог подключить этот юнит к проекту и спользовать функции

получается только так:
with TImp.Create do Addx;

а мне нужно просто Addx

что я не так делаю. спасибо

---

allrusia   (2006-06-03 20:14:00) [1]

antonn, Iehbr

Спасибо за оперативный ответ!

---

antonn   (2006-06-03 20:11:00) [2]

Iehbr ©   (03.06.06 20:10) [3]
ага:)
а еще я тегами пользуюсь ;)

---

Iehbr   (2006-06-03 20:10:00) [3]

> antonn ©   (03.06.06 20:05) [1]


опередил :)

---

Iehbr   (2006-06-03 20:08:00) [4]

unit MyUnit;

interface
function AddS : Integer;
implementation
Function AddS : Integer;
 begin
   Result := 1;
 end;
end.

---

antonn   (2006-06-03 20:05:00) [5]

может так?
без классов и объектов:
unit Imp;

interface

uses SysUtils, Windows, Forms, Dialogs;

 function AddS: integer;

implementation

function AddS: integer;
begin
result := 1;
end;

end.

---

Наверх