Enabled

[NewLamer&Programer]

помогите написать простенькую функцию Enabled типа Boolean
что то типа: if Enabled then {какие то действия} else {другие действия}
и при присвоение где то уже в другой процедуре Enabled:= True\False чтобы работало

[GetMax]

помогите написать простенькую функцию Enabled типа Boolean

А какова логика это функции? В общем виде это будет выглядеть так

function Enable({тут разные параметры если они есть}) : Boolean;
Begin
  result := false;
  //тут тело функции
  result := true
End.

Ну и соответственно вызов

if Enabled() then //тут что то делаем
                          else //иначе делаем что-нибудь другое

[ViktorR]

То, что Вам надо, Вы уже написали, используя Enabled как переменную.
Имя функции или процедуры не может находиться в левой части выражения в программе.
Т.е. если Enabled функция или процедура, то пишем:

x := Enabled(y); {вызов функции}

или

Enabled(y, x); {вызов процедуры}

Возможно, что вопрос должен звучать иначе и просто не понят ...

[NewLamer&Programer]

ну вот вспомните стандартные делфийские компоненты, ну например Button имеет свойство Enabled, при True она активна, при False нет, вот и мне надо примерное тоже самое: при True одни действия, при False другие, все эти действия должны описываться в теле самой функции Enabled (предполагаю что это будет рекурсия по всей видимости...) а присвоение Enabled:= True\False уже где то в другом месте...

например:

Function Enabled: Boolean;
begin
{вот эту часть надо реализовать}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Enabled:= True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Enabled:= False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Enabled
then Label1.Caption:= 'Enabled'
else Label1.Caption:= 'Desabled';
end;

[NewLamer&Programer]

upd: экспериментальным путем до меня дошло что лучше назвать функцию PEnabled например, чтобы не путалась с Enabled той же Button

но тут мне выдает ошибку: Left side cannot be assigned to
это при вот таком коде функции:

Function PEnabled: Boolean;
begin
if PEnabled
then
      begin
      Result:= True;
      {какие то действия}
      end
else
      begin
      Result:= False;
      {какие то действия}
      end;
end;

[ViktorR]

Видимо у Вас не совсем правильно сложилось представление о методах и свойствах объекта.
Методы - это подпрограммы.
Свойства - значения.
Т.е., если у Вас есть объект, то у него могут быть методы - это набор функций и подпрограмм, вызов которых и определяет действия.
Свойства - это некоторые переменные (поля), значения в которых характеризую сам объект.
Например: автомобиль.
Описание процесса его движения можно сделать процедурами, в которых вычисляются, например, текущие координаты положения автомобиля.
Эти процедуры называют методами.
Для более естественного описания движения необходимо использовать такие значения, как масса автомобиля, мощность двигателя, расход топлива, емкость заправки, учитывать трение и.т.п. Эти значения - свойства объекта - автомобиль.
Т.о. существует четкое деление.
Для того же объекта Booton есть методы, которые вызываются при нажатии на кнопку, и свойства, которые характеризуют состояние кнопки. Например, прорисовывать кнопку как активную или нет зависит от значения свойства Enable - переменной, которая описана в этом обекте.
В Вашем случае:

Function PEnabled: Boolean;
begin
if PEnabled {В этот момент функция не определена.
                 А если это значение определить предварительно,
                 то будет делаться вызов функции для переопределения
                 значения - рекурсивный вызов.}
then
      begin
      Result:= True;
      {какие то действия}
      end
else
      begin
      Result:= False;
      {какие то действия}
      end;
end;

Просто опишите некоторую функцию, которая делает те или иные действия в зависимости от параметра:

function MakeMy(Enable : boolean) : boolean;
begin
   if Enable then
   begin
        ... {делаем 1}
   end
   else
   begin
    ... {делаем 2}
   end
   if (проверка результата действия) then
      MakeMy := true {Ok!}
   else 
      MakeMy := false; {Not Ok?}
end;

Как-то так ...

[Serge_Bliznykov]

ViktorR +1

NewLamer&Programer, Вы не обижайтесь, но может Вам стоит какую-нибудь книжку по Паскаль/Delphi почитать?
TButton - это класс, и, чтобы понимать, что такое Enable Вам нужно знать основы ООП. Можете посмотреть исходники VCL, описание класса TButton и как описывается Enable.

честно говоря, я вообще не понимаю, что именно Вы добиваетесь своим кодом, какую конкретно задачу решаете...

[NewLamer&Programer]

ViktorR, спасибо кажется я вас понял
Serge_Bliznykov, да читаю вот, любимая настольная книжка называется Google
а добиваюсь я включения\выключения, честно говоря я тоже не понимаю - как можно не понимать этого ведь такая необходимость возникает в очень многих программах

[Serge_Bliznykov]

да читаю вот, любимая настольная книжка называется Google

Зря. Очень рекомендую прочитать хотя бы один (а лучше несколько) учебник. Дело в том, что в гугле Вы получаете ответы на свои текущие сиюминутные вопросы, но, систематизированных знаний не получаете, поэтому, боюсь, не понимаете базовых основ языка...

а добиваюсь я включения\выключения, честно говоря я тоже не понимаю - как можно не понимать этого

действительно, не понимаю.
начиная с

Timer1.Enable := True; // Timer1.Enable := False; или Timer1.Enable := Not Timer1.Enable;

и заканчивая:

var GameInProcess : boolean;
...
  if GameInProcess then {игра запущена}
  else {игра остановлена}

впрочем, Вы правы — главное, чтобы Вам, как программисту было понятно, какая необходимость и для чего это Вам нужно

[NewLamer&Programer]

а можно ли создать обработчик событий для переменной?
например существует процедура

Procedure Process(Enabled: Boolean);
begin
if Enabled 
then {какие то действия}
else {какие то действия};
end;

и существует переменная Enabled (не та что в процедуре, а отдельно)

Var Enabled: Boolean; //в глобальных переменных

и можно ли теперь создать что то типа

Procedure EnabledChange(Enabled: Boolean);
begin
Process(Enabled);
end;

главный вопрос: будет ли процедура EnabledChange вызываться при изменении глобальной переменной Enabled?