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

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.037 c
6-1080234424
rezya
2004-03-25 20:07
2004.05.16
Проблема с неблокирующими сокетами.


14-1082881178
Piter
2004-04-25 12:19
2004.05.16
Почему TCP/IP?


11-1069729742
azsd
2003-11-25 06:09
2004.05.16
KOLThread puzzle me...some code works incroctly in/out of Thread.


14-1082616760
infom
2004-04-22 10:52
2004.05.16
Разьясните незнающему что значит слово <сабж>


1-1083040171
фыва
2004-04-27 08:29
2004.05.16
Динамический массив





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский