Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2007, 17:33   #1
Absent
Пользователь
 
Регистрация: 18.11.2007
Сообщений: 67
По умолчанию Как создать процедуру и функцию?

Как создать процедуру и функцию?
Absent вне форума Ответить с цитированием
Старый 18.11.2007, 17:36   #2
Rapid
Форумчанин
 
Аватар для Rapid
 
Регистрация: 01.09.2007
Сообщений: 747
По умолчанию

Создание функции
1. Обьявляем функцию в разделе реализации (implementation) по следующим правилам
function Имя функции (параметр1 : тип1, ..., параметрК : типК) : Тип;
var
// здесь объявления локальных переменных
begin
// здесь инструкции функции
Имя := Выражение;
end;

2. Используем функцию. (Ее использование не отличается ничем от использования встроенных функций.

Пример
Код:
implementation

function absol(a : integer): integer;
begin
if a<0 then
begin
absol:=a*-1
end;

procedure TForm1.Button1Click(Sender: TObject);
var

b : integer;
begin
b:=absol(-10);
Edit1.Text:=IntToStr(b);
end;
Никому не верьте.

Последний раз редактировалось Rapid; 18.11.2007 в 17:48.
Rapid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как создать через редактор Visual Basic функцию в Excel Dima007 Microsoft Office Excel 2 04.11.2008 20:04
Переделать процедуру AidarBik Общие вопросы Delphi 12 22.05.2008 14:59
подскажите процедуру Nova БД в Delphi 5 15.05.2008 16:43
Как создать обратную функцию, которая из уникального номера будет возвращать строку? SkAndrew Общие вопросы Delphi 8 06.04.2008 21:10
Создать функцию, позволяющую вычислить новую стоимость товара после уценки. Визуал Бэйсик. КПСС Помощь студентам 6 07.11.2007 01:00