Есть ли флаг, включающий их для свойств, а не только для переменных, и ещё оператор !=?
// маленький примерчик
- Код: Выделить всё
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
{$R *.res}
Type
{ TMyClass }
TMyClass = Class
Private
FOneOfMyDearestAndNearestProperties: Integer;
Public
Property OneOfMyDearestAndNearestProperties: Integer
Read FOneOfMyDearestAndNearestProperties
Write FOneOfMyDearestAndNearestProperties;
End;
Var
OneOfMyDearestAndNearestVariables: Integer;
aMyClass: TMyClass;
begin
aMyClass := TMyClass.Create;
aMyClass.OneOfMyDearestAndNearestProperties := 1;
//aMyClass.OneOfMyDearestAndNearestProperties += 1; // не работает
aMyClass.OneOfMyDearestAndNearestProperties :=
aMyClass.OneOfMyDearestAndNearestProperties + 1; // приходится так
WriteLn(aMyClass.OneOfMyDearestAndNearestProperties);
OneOfMyDearestAndNearestVariables := 1;
OneOfMyDearestAndNearestVariables += 1; // как удобно ^_^
WriteLn(OneOfMyDearestAndNearestVariables);
end.