Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
allrussia   (2006-06-03 20:00) [0]

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

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


 
antonn ©   (2006-06-03 20:05) [1]

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

interface

uses SysUtils, Windows, Forms, Dialogs;

 function AddS: integer;

implementation

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

end.


 
Iehbr ©   (2006-06-03 20:08) [2]

unit MyUnit;

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


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


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


опередил :)


 
antonn ©   (2006-06-03 20:11) [4]

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


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

antonn, Iehbr

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.011 c
4-1143534352
serg111111
2006-03-28 12:25
2006.06.25
Как в имеющемся приложениия написать сервис?


6-1140017279
Evgenij_
2006-02-15 18:27
2006.06.25
Мак адрес


1-1147980770
romychk
2006-05-18 23:32
2006.06.25
Компеонет View, как в Far по F3


11-1129621644
Боб
2005-10-18 11:47
2006.06.25
KOLECMLISTEDIT ошибки при компиляции


3-1146039399
sanich
2006-04-26 12:16
2006.06.25
Как выбрать все из двух таблиц?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский