Процедура в Lazarus (Delphi)

[HappyJesus]

Привет. Возникла такая проблема. Хочу сократить километры кода в программе на Lazarus. Вопрос в следующем. Как создать процедуру или что то подобное и вписать туда большой часто повторяющийся кусок кода. И потом при необходимости к этой процедуре обращаться. Заранее спасибо!

[Yuriy_Y]

Сделай процедуру в главном модуле и объяви ее как паблик, если надо к ней доступ из любого места. Если так не нужно, то тогда надо делать в том модуле, где будет использоваться.

[HappyJesus]

Сделай процедуру в главном модуле и объяви ее как паблик, если надо к ней доступ из любого места. Если так не нужно, то тогда надо делать в том модуле, где будет использоваться.

А можно пожалуйста по подробнее как ее создать, как объявить, и как потом вызывать?

[Yuriy_Y]

Можно. Но лучше в сети поискать инфу. Я уже не помню. Давно баловался дельфи. Вряд ли вспомню.

[qub]

Привет. Возникла такая проблема. Хочу сократить километры кода в программе на Lazarus. Вопрос в следующем. Как создать процедуру или что то подобное и вписать туда большой часто повторяющийся кусок кода. И потом при необходимости к этой процедуре обращаться. Заранее спасибо!

Может такой пример поможет:

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

program example_p1;

var num: integer;

procedure show();
begin
  writeln('num = ', num);
end;

function sum(a, b: integer): integer;
begin
  Result := a + b;
end;

var x, y: integer;

begin
     x := 1;
     y := 1;
     num := sum(x, y);
     show();
end.


[Yuriy_Y]

В простой программе поможет. Вот только лазарус уже ООП как бы. Там не прокатит. Там всякие наследования, классы, методы, инкапсуляции. Чтоб процедура или функция была доступна в любом месте программы, ее надо правильно описать и разместить в определенном модуле программы.

[SergeyIT]

Может книжку прочитать по дельфи какую, в любой из них есть нужная информация?
Можно посмотреть исходники других программ http://www.delphi.int.ru/sources/

[Lifewalker]

Вот к чему приводит обучение событийно-управляемому мышевождению по формоконструкторам без понимания принципов.

Если серьёзно, то нужно взять любую книжку по Паскалю/Делфи, в которой разжёвываются самые азы, ибо процедурное программирование - это ну совсем-совсем начальные знания. Потом нужно изучть, что такое модули (в терминах Делфи/Лазаря - юнит), как их использовать. После этого понять что есть декомпозиция.

После этой научной зауми, наконец, можно будет лёгким движением руки выделить нужный кусок кода в отдельную процедуру, положить её в нужный модуль, включить оный модуль в нужные части программы и - вуаля! - щастье привалило.

[virusoft]

Привет. Возникла такая проблема. Хочу сократить километры кода в программе на Lazarus. Вопрос в следующем. Как создать процедуру или что то подобное и вписать туда большой часто повторяющийся кусок кода. И потом при необходимости к этой процедуре обращаться. Заранее спасибо!

Действуем следующим образом.

(Нажмите, чтобы показать/скрыть)

unit myUnit;
interface

procedure BigKusokCode;

implementation

procedure BigKusokCode;
begin
  Операторы, которые выполняются в указанном здесь порядке
end;

end.

После этого в том модуле, где нужно выполнить указанный код пишем в строке

Uses {Другие подключаемые модули}, myUnit;

И потом в программе вызываем в нужном месте эту процедуру.