Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Объявление функции   Найти похожие ветки 

 
Frozzen   (2004-04-22 12:42) [0]

Еще раз спрашиваю
как сделать чтобы функцию можно было использовать в трех модулях
как ее объявить
чего и где написать


 
Паниковский ©   (2004-04-22 12:44) [1]

type
MyClass = class
 public
   function DoSomeThing():integer;
end;

function MyClass::DoSomeThing():integer;
begin
result := 0;
end;


 
Frozzen   (2004-04-22 12:47) [2]

и ее можно использовать в других модулях

var s: Integer;

begin
s := DoSomeThink();


 
Frozzen   (2004-04-22 12:47) [3]

или как


 
Frozzen   (2004-04-22 12:48) [4]

а без ООП


 
Algol   (2004-04-22 12:49) [5]


> function MyClass::DoSomeThing():integer;


Это Вы ваще на каком языке-то пишите ? ))


 
Гаврила   (2004-04-22 12:49) [6]

Объявить в секции Interface, пеализовать в секции Implementation
модуль с функцией упомянуть в секции Uses тех трех модулей


 
Frozzen   (2004-04-22 12:51) [7]

во ща уже яснее


 
Frozzen   (2004-04-22 12:52) [8]

тока  про implementation объясните


 
Паниковский ©   (2004-04-22 12:53) [9]

Frozzen  
а ну тогда просто пишеш глобальную функцию которая не принадлежит ни одному классу например так

type
MyClass = class

end;

function DoSomeThing():integer;/*обьявление функции */

implementation

function DoSomeThing():integer;/*сама функция */
begin
result := 0;
end;

то есть обьявляеш функцию вне класса и использовать ее можно хоть где только в uses надо включить имя файла

ЗЫ: Всем раздать лопаты !


 
Frozzen   (2004-04-22 12:54) [10]

Ой Гаврила друг
пасиба те
а то все че-то левое стегают


 
Паниковский ©   (2004-04-22 12:54) [11]

Algol

трудно между С++,Java и Delphi быстро переключатся привычки быстро менять


 
Frozzen   (2004-04-22 12:55) [12]

Всем пасибо



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

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.042 c
9-1072382293
lucky
2003-12-25 22:58
2004.05.16
Помогите плз сделать 3d врыв в DelphiX.


14-1082664097
ikivio
2004-04-23 00:01
2004.05.16
Был, сегодня, на собеседовании


3-1082111002
Layner
2004-04-16 14:23
2004.05.16
Научите работать с XML как с SQL? Если такое возможно?


3-1082402955
mur
2004-04-19 23:29
2004.05.16
# вместо русских букв в таблице в Database Desktop


1-1083251231
Мыш
2004-04-29 19:07
2004.05.16
Не получается редактор свойств сделать