- NotifyObservers(const
AValue: string); var i: Integer;
begin for i := 0 to FObservers.Count - 1 do FObservers[i].Update(
AValue); end;
procedure TObserverManager...
-
procedure TMyCustomObject.DoAccident(const
AValue: Integer);
begin if ****igned(FOnAccident) then FOnAccident(Self,
AValue); end;
procedure TMyCustomObject.DoChange;...
- System.Math
function IfThen(
AValue: Boolean;
const ATrue: Integer;
const AFalse: Integer): Integer;
function IfThen(
AValue: Boolean;
const ATrue: Int64;...
-
function Foo(const
AValue: T): T; end;
implementation function TGenericclass<T>.Foo(const
AValue: T): T;
begin Result :=
AValue +
AValue; end; end. // Free...
- class>>with:
aValue "class
method for
building an
instance of the
Literal class" ^ self new value:
aValue; yourself. Literal>>value:
aValue "Setter for...
- 2013-07-24. "Update of
Products Adopted AMD
Geode LX800
Platform -
Avalue". www.
avalue-tech.com.
Retrieved 2020-01-20. X-Bit Labs
report Archived 2007-10-24...
- FColor; end;
procedure TPen.SetColor(const
AValue: TColor);
begin if
FColor <>
AValue then
FColor :=
AValue; end; // accessing: var Pen: TPen; // ... Pen...
- f
length initial-seed ยทยทยท) srfi/1 srfi/43
Smalltalk aCollection inject:
aValue into:
aBlock aCollection reduce:
aBlock ANSI
Smalltalk doesn't
define #reduce:...
- GmbH,
congatec AG, Advantech, MSC
Vertriebs GmbH,
ADLINK Technology Inc.,
Avalue Technology Inc., SECO Srl,
Arbor Technology Corp.,
Axiomtek Co., Blue Chip...
- of
enumerations with the "in"
operator and "include(aSet,
aValue)" or "exclude(aSet,
aValue)" methods.
Smart Pascal does not
support generics. The original...
