タイプ変換が代入演算子の左に表示される場合
27866 ワード
Delphi 2009 VCLのソースコードを以下に示します.
{ADODB.pas 4345 :}
Currency(Buffer^) := C;
{ADODB.pas 4362 :}
SmallInt(Buffer^) := Byte(cVal) else
{ADODB.pas 4363 :}
SmallInt(Buffer^) := iVal;
{ADODB.pas 4366 :}
Word(Buffer^) := bVal else
{ADODB.pas 4367 :}
Word(Buffer^) := uiVal;
{ADODB.pas 4369 :}
Integer(Buffer^) := Data;
{ADODB.pas 4372 :}
Double(Buffer^) := dblVal else
{ADODB.pas 4373 :}
Double(Buffer^) := Data;
{ADODB.pas 4375 :}
TBcd(Buffer^) := VarToBcd(Data);
{ADODB.pas 4381 :}
WordBool(Buffer^) := vbool;
{ADODB.pas 4385 :}
TOleDate(Buffer^) := date;
{ADODB.pas 4389 :}
OleVariant(Buffer^) := Data;
{ADODB.pas 4390 :}
ftInterface: IUnknown(Buffer^) := Data;
{ADODB.pas 4391 :}
ftIDispatch: IDispatch(Buffer^) := Data;
{ADODB.pas 4394 :}
LargeInt(Buffer^):=-1*Decimal(Data).Lo64
{ADODB.pas 4396 :}
LargeInt(Buffer^):=Decimal(Data).Lo64;
{ADODB.pas 4397 :}
ftBlob..ftTypedBinary, ftVariant, ftWideMemo: OleVariant(Buffer^) := Data;
{ADODB.pas 5881 :}
TDataSet(ResultSet^) := TADODataSet.Create(nil);
{AxCtrls.pas 1103 :}
Pointer(TConnectDatas(elt)[I].pUnk) := nil;
{AxCtrls.pas 1712 :}
Pointer(Obj) := nil;
{AxCtrls.pas 1713 :}
IOleLink(Obj) := TOleLinkStub.Create(Self);
{Classes.pas 3829 :}
IInterface(List[I]) := nil;
{Classes.pas 3916 :}
IInterface(List[Result]) := Item;
{Classes.pas 3927 :}
IInterface(List[Index]) := Item;
{Classes.pas 3948 :}
IInterface(List[Index]) := Item;
{Classes.pas 3961 :}
IInterface(List[Result]) := nil;
{Classes.pas 5490 :}
Integer(Item1^.FString) := Integer(Item2^.FString);
{Classes.pas 5491 :}
Integer(Item2^.FString) := Temp;
{Classes.pas 5493 :}
Integer(Item1^.FObject) := Integer(Item2^.FObject);
{Classes.pas 5494 :}
Integer(Item2^.FObject) := Temp;
{Classes.pas 5581 :}
Pointer(FString) := nil;
{Classes.pas 5913 :}
Word((@Header[1])^) := 10;
{Classes.pas 5921 :}
Word((@Header[HeaderSize - 6])^) := $1030;
{Classes.pas 5922 :}
Longint((@Header[HeaderSize - 4])^) := 0;
{Classes.pas 7407 :}
Byte(Flags) := Prefix and $0F;
{Classes.pas 8017 :}
TPersistentClass(Result) := GetFieldClass(Root, ClassName);
{Classes.pas 8019 :}
TPersistentClass(Result) := GetFieldClass(FLookupRoot, ClassName);
{Classes.pas 10854 :}
Integer(LocalSyncList) := InterlockedExchange(Integer(SyncList), Integer(LocalSyncList));
{ComCtrls.pas 13344 :}
Word((@Text)^) := Length(Text);
{CommCtrl.pas 11151 :}
HTreeItem(Pointer(@prc)^) := hitem;
{ComObj.pas 495 :}
IDispatch(Obj) := Self;
{ComObj.pas 928 :}
Pointer(vObject) := nil;
{ComObj.pas 1081 :}
Pointer(TypeInfo) := nil;
{ComObj.pas 1087 :}
ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).DispTypeInfo;
{ComObj.pas 1166 :}
Pointer(TypeInfo) := nil;
{ComObj.pas 1172 :}
ITypeInfo(TypeInfo) := FDispTypeInfo;
{ComServ.pas 219 :}
Pointer(Obj) := nil;
{ComServ.pas 420 :}
Integer(Temp) := InterlockedExchange(Integer(FTypeLib), Integer(Temp));
{CtlPanel.pas 149 :}
TComponent(Reference) := Instance;
{CtlPanel.pas 155 :}
TComponent(Reference) := nil;
{DB.pas 2780 :}
Pointer(Buffer) := nil;
{DB.pas 6141 :}
if Value then Word(B) := 1 else Word(B) := 0;
{DB.pas 6200 :}
TDateTime(Dest^) := TDateTime(Source^);
{DB.pas 6309 :}
TSQLTimeStamp(Dest^) := TSQLTimeStamp(Source^);
{DB.pas 6852 :}
System.Currency(Dest^) := System.Currency(Source^);
{DB.pas 7074 :}
TBcd(Dest^) := TBcd(Source^);
{DB.pas 9650 :}
ftSmallint: SmallInt(Buffer^) := GetAsInteger;
{DB.pas 9651 :}
ftShortint: ShortInt(Buffer^) := GetAsInteger;
{DB.pas 9652 :}
ftWord: Word(Buffer^) := GetAsInteger;
{DB.pas 9653 :}
ftLongWord: LongWord(Buffer^) := GetAsLongWord;
{DB.pas 9654 :}
ftByte: Byte(Buffer^) := GetAsInteger;
{DB.pas 9655 :}
ftLargeint: LargeInt(Buffer^) := GetAsLargeInt;
{DB.pas 9657 :}
ftInteger: Integer(Buffer^) := GetAsInteger;
{DB.pas 9658 :}
ftTime: Integer(Buffer^) := DateTimeToTimeStamp(AsDateTime).Time;
{DB.pas 9659 :}
ftDate: Integer(Buffer^) := DateTimeToTimeStamp(AsDateTime).Date;
{DB.pas 9660 :}
ftDateTime: Double(Buffer^) := TimeStampToMSecs(DateTimeToTimeStamp(AsDateTime));
{DB.pas 9662 :}
ftFMTBCD: TBcd(Buffer^) := AsFMTBcd;
{DB.pas 9664 :}
ftFloat: Double(Buffer^) := GetAsFloat;
{DB.pas 9665 :}
ftTimeStamp: TSQLTimeStamp(Buffer^) := AsSQLTimeStamp;
{DB.pas 9666 :}
ftBoolean: Word(Buffer^) := Ord(GetAsBoolean);
{DB.pas 11230 :}
TDateTimeRec(Dest^) := DateTimeToNative(Field.DataType, TDateTime(Source^)) else
{DB.pas 11231 :}
TDateTime(Dest^) := NativeToDateTime(Field.DataType, TDateTimeRec(Source^));
{DB.pas 11233 :}
TSQLTimeStamp(Dest^) := TSQLTimeStamp(Source^);
{DB.pas 11242 :}
TBcd(Dest^) := TBcd(Source^);
{DBClient.pas 2777 :}
Boolean(RecBuf[0]) := LongBool(Buffer);
{DBClient.pas 2830 :}
Word(Dest^) := WStrLen(PWideChar(Source))*2;
{DBPlatform.pas 86 :}
// TBcd(Buffer^) := AsFMTBcd
{DBPlatform.pas 138 :}
TBcd(Pointer(Buffer)^) := value;
{DBPlatform.pas 172 :}
TObject(PSResult^) := Value;
{DBTables.pas 1509 :}
Smallint(Pointer(NullPtr)^) := -1;
{DBTables.pas 4737 :}
Boolean(RecBuf[0]) := LongBool(Buffer);
{DBTables.pas 6453 :}
TDataSet(ResultSet^) := TDBDataSet.Create(nil);
{DBTables.pas 7044 :}
Word(bCaseInsensitive) := Word(ixCaseInsensitive in Options);
{DesignEditors.pas 1573 :}
Integer(S) := GetOrdValue;
{DesignEditors.pas 1577 :}
Integer(S) := GetOrdValueAt(I);
{DesignEditors.pas 1600 :}
Integer(S) := GetOrdValue;
{DesignEditors.pas 1614 :}
Integer(S) := GetOrdValue;
{DesignEditors.pas 1641 :}
Integer(S) := PPropInfo(GetPropInfo)^.Default;
{DesignEditors.pas 1643 :}
Integer(S) := GetOrdValue;
{DesignEditors.pas 1682 :}
Integer(S) := GetOrdValue;
{FileCtrl.pas 797 :}
Integer(DriveBits) := GetLogicalDrives;
{Forms.pas 9730 :}
TComponent(Reference) := Instance;
{Forms.pas 9734 :}
TComponent(Reference) := nil;
{Graphics.pas 7151 :}
Integer(Colors[I]) := NewColor;
{Graphics.pas 7230 :}
Integer(Colors[I]) := NewColor;
{Graphics.pas 7425 :}
Integer(BI^.bmiColors[0]) := 0;
{Graphics.pas 8139 :}
Integer(Result) := Integer(bmBits) +
{IBCustomDataSet.pas 3458 :}
Boolean(TmpBuff[0]) := LongBool(Buffer);
{IBCustomDataSet.pas 3654 :}
TDataSet(ResultSet^) := TIBDataSet.Create(nil);
{IdBlockCipherIntercept.pas 207 :}
TIdBlockCipherInterceptDataEvent(FOnReceive):= Value;
{IdBlockCipherIntercept.pas 212 :}
TIdBlockCipherInterceptDataEvent(FOnSend):= Value;
{IdStackBSDBase.pas 368 :}
TIdIPv6Address(TIdIn6Addr(AInAddr).s6_addr16) := HostToNetwork(LAddress);
{InvokeRegistry.pas 3316 :}
Variant( PVarData(VarToClear[I])^) := NULL;
{InvokeRegistry.pas 3460 :}
Variant(PVarData(P)^) := NULL;
{InvokeRegistry.pas 3510 :}
Variant( PVarData(P)^ ) := NULL;
{ISAPIApp.pas 84 :}
Integer(Result) := 1; // This is so that the Apache web server will know what "True" really is
{ISAPIApp.pas 127 :}
Integer(Result) := 1; // This is so that the Apache web server will know what "True" really is
{jpeg.pas 1251 :}
DWORD(last_time) := Ticks;
{jpeg.pas 1517 :}
Byte(cinfo.colormap^[2]^[I]) := Pal.palPalEntry[I].peRed;
{jpeg.pas 1518 :}
Byte(cinfo.colormap^[1]^[I]) := Pal.palPalEntry[I].peGreen;
{jpeg.pas 1519 :}
Byte(cinfo.colormap^[0]^[I]) := Pal.palPalEntry[I].peBlue;
{Math.pas 968 :}
FMUL // ST(1) := ST * ST(1); Pop ST
{Math.pas 1046 :}
{ Log.10(X) := Log.2(X) * Log.10(2) }
{Math.pas 1063 :}
{ Log.N(X) := Log.2(X) / Log.2(N) }
{Math.pas 1998 :}
FADDP ST(3),ST // ST(3) := ST + ST(3); Pop ST
{Math.pas 1999 :}
FADD // ST(1) := ST + ST(1); Pop ST
{Math.pas 2000 :}
FADD // ST(1) := ST + ST(1); Pop ST
{Math.pas 2545 :}
Byte(Result) := Get8087CW and $3F;
{Math.pas 2554 :}
Byte(Result) := CtlWord and $3F;
{Mxarrays.pas 1564 :}
Integer(Item1^.FString) := Integer(Item2^.FString);
{Mxarrays.pas 1565 :}
Integer(Item2^.FString) := Temp;
{Mxarrays.pas 1567 :}
Integer(Item1^.FObject) := Integer(Item2^.FObject);
{Mxarrays.pas 1568 :}
Integer(Item2^.FObject) := Temp;
{Mxarrays.pas 1666 :}
Pointer(PStringItemList(FMemory)^[Index].FString) := nil;
{OleAuto.pas 835 :}
Pointer(Obj) := nil;
{OleAuto.pas 1148 :}
for K := 0 to StrCount - 1 do string(Strings[K].PStr) := '';
{OleAuto.pas 1319 :}
Pointer(obj) := FAutoDispatch;
{OleAuto.pas 1324 :}
Pointer(obj) := nil;
{OleAuto.pas 1354 :}
Pointer(obj) := Self;
{OleAuto.pas 1359 :}
Pointer(obj) := nil;
{OleAuto.pas 1382 :}
Pointer(obj) := nil;
{OleCtnrs.pas 2023 :}
Pointer(obj) := nil;
{OleCtrls.pas 452 :}
Pointer(TypeInfo) := nil;
{OleCtrls.pas 1397 :}
Pointer(Result) := Temp.VOleStr;
{OleCtrls.pas 1555 :}
string(Strings[K].PStr) := '';
{OleCtrls.pas 2210 :}
Word(Args^[1].VPointer^) := Key;
{OleCtrls.pas 2218 :}
Char(Args^[0].VPointer^) := Ch;
{OleCtrls.pas 2730 :}
Pointer(TypeInfo) := nil;
{OleServer.pas 162 :}
Pointer(TypeInfo) := nil;
{OPToSOAPDomConv.pas 2185 :}
Variant(PVarData(InvData)^) := NULL;
{OPToSOAPDomConv.pas 2189 :}
Variant(PVarData(InvData)^) := ReadVarArrayDim(Node, IsVarray, VT)
{OPToSOAPDomConv.pas 2200 :}
Variant(PVarData(InvData)^) := XMLTimeToDateTime(Node.Text);
{OPToSOAPDomConv.pas 2570 :}
Variant(PVarData(P)^) := NULL;
{OPToSOAPDomConv.pas 2572 :}
Variant(PVarData(P)^) := ReadVarArrayDim(Node)
{OPToSOAPDomConv.pas 2585 :}
Variant(PVarData(P)^) := XMLTimeToDateTime(Node.Text);
{OPToSOAPDomConv.pas 2587 :}
Variant(PVarData(P)^) := TypeTranslator.CastSoapToVariant(SoapTypeInfo, GetNodeAsText(Node));
{OPToSOAPDomConv.pas 4811 :}
Variant(PVarData(DataP)^) := NULL;
{Outline.pas 499 :}
Word(Pointer(BufPtr)^) := $0A0D;
{pngimage.pas 3169 :}
Longint(Data) := Longint(Header.ImageData) +
{pngimage.pas 3173 :}
Longint(Extra) := Longint(Header.ExtraImageData) +
{pngimage.pas 3625 :}
Longint(Data) := Longint(Header.ImageData) +
{pngimage.pas 4615 :}
Longint(ImageSource) := Longint(Header.ImageData) +
{pngimage.pas 4651 :}
Longint(ImageSource) := Longint(ImageSourceOrg) - BytesPerRowSrc * j2;
{pngimage.pas 4652 :}
Longint(AlphaSource) := Longint(Header.ImageAlpha) +
{pngimage.pas 4672 :}
Longint(ImageData) := Longint(ImageData) + BytesPerRowDest;
{pngimage.pas 4674 :}
Longint(ImageSource) := Longint(ImageSourceOrg) - BytesPerRowSrc * j2;
{pngimage.pas 4675 :}
Longint(AlphaSource) := Longint(Header.ImageAlpha) +
{pngimage.pas 4721 :}
Longint(ImageData) := Longint(ImageData) + BytesPerRowDest;
{pngimage.pas 4723 :}
Longint(ImageSource) := Longint(ImageSourceOrg) - BytesPerRowSrc * j2;
{pngimage.pas 5169 :}
Longint(Result) := Longint(ImageAlpha) + (LineIndex * Longint(Width))
{pngimage.pas 5178 :}
Longint(Result) := (Longint(ExtraImageData) + ((Longint(Height) - 1) *
{pngimage.pas 5187 :}
Longint(Result) := (Longint(ImageData) + ((Longint(Height) - 1) *
{PrivateHeap.pas 107 :}
Pointer(P) := Windows.HeapAlloc(Handle, FAllocationFlags, Size);
{Provider.pas 859 :}
TInfoArray(Info[i].FieldInfos) := nil;
{Provider.pas 1721 :}
TInfoArray(FieldInfos) := InitPutProcs(DataSet, GlobalIdx);
{Rio.pas 597 :}
Pointer(Obj) := IntfTableP;
{Rio.pas 607 :}
Pointer(Obj) := IntfTableP;
{SConnect.pas 800 :}
OleVariant(Dest) := OleVariant(Source)
{StdCtrls.pas 2650 :}
Word((@Text)^) := Length(Text);
{StFilSys.pas 417 :}
TObject(Result) := FActiveTStringsProperties.Objects[Index]
{StFilSys.pas 460 :}
TObject(ActiveTStringsProperty) := FActiveTStringsProperties.Objects[Index];
{SvcMgr.pas 1082 :}
TComponent(Reference) := InstanceClass.Create(Self);
{SvcMgr.pas 1084 :}
TComponent(Reference) := nil;
{System.pas 4723 :}
Byte(s^[0]) := newLength; // should also fill new space
{System.pas 4728 :}
Byte(s^[0]) := len;
{System.pas 5845 :}
Byte(Dest^[0]) := MaxLen;
{System.pas 8239 :}
Byte(Dest^[0]) := I;
{System.pas 8284 :}
Byte(Dest^[0]) := Len;
{System.pas 9706 :}
Pointer(Result) := PPointer(Self)^;
{System.pas 9765 :}
Pointer(Result) := PPointer(Integer(Self) + vmtParent)^;
{System.pas 9767 :}
Pointer(Result) := PPointer(Result)^;
{System.pas 9983 :}
Pointer(Obj) := nil;
{System.pas 9989 :}
Pointer(Obj) := Pointer(Integer(Self) + InterfaceEntry^.IOffset);
{System.pas 9993 :}
IInterface(Obj) := InvokeImplGetter(Self, InterfaceEntry^.ImplGetter);
{System.pas 13854 :}
Pointer(S) := nil;
{System.pas 13957 :}
Pointer(dest) := S;
{System.pas 14023 :}
Pointer(dest) := Pointer(source);
{System.pas 14738 :}
@@theHardWay: // s(*EAX,ECX) := source1(EDX) + s(ECX)
{System.pas 16164 :}
Pointer(Dest) := _NewWideString(CharLength);
{System.pas 16169 :}
Pointer(Dest) := nil;
{System.pas 16856 :}
Pointer(dest) := S;
{System.pas 17035 :}
Pointer(Dest) := _NewUnicodeString(CharLength);
{System.pas 17040 :}
Pointer(Dest) := nil;
{System.pas 17489 :}
@@theHardWay: // s(*EAX,ECX) := source1(EDX) + s(ECX)
{System.pas 21398 :}
Pointer(Dest) := nil;
{System.pas 21425 :}
Pointer(Dest) := Pointer(Source);
{SysUtils.pas 8489 :}
Cardinal(Pointer(Result)^) := Size;
{SysUtils.pas 8499 :}
Cardinal(Pointer(Result)^) := Size;
{SysUtils.pas 16910 :}
Integer(ConvertedAddress) := Integer(ExceptAddr) - Integer(Info.AllocationBase);
{SysUtils.pas 20628 :}
Pointer(Obj) := nil;
{TreeIntf.pas 3949 :}
IInterface(LStgMedium.stm) := LDragSprigs;
{TypeTrans.pas 125 :}
Variant(PVarData(NatData)^) := SoapData;
{TypeTrans.pas 127 :}
Variant(PVarData(NatData)^) := StrToInt64(Trim(SoapData));
{TypeTrans.pas 129 :}
Variant(PVarData(NatData)^) := StrToInt(Trim(SoapData));
{TypeTrans.pas 131 :}
Variant(PVarData(NatData)^) := StrToFloatEx(Trim(SoapData));
{TypeTrans.pas 134 :}
Variant(PVarData(NatData)^) := WideString(SoapData);
{TypeTrans.pas 137 :}
Variant(PVarData(NatData)^) := UnicodeString(SoapData);
{TypeTrans.pas 317 :}
Variant(PVarData(NatData)^) := NULL;
{TypInfo.pas 815 :}
Variant(Dest) := GetPropValue(GetInstance(V), Name);
{TypInfo.pas 1586 :}
Integer(S) := Value;
{VarCmplx.pas 1054 :}
Variant(Left) := Variant(Left) + TComplexVarData(Right).VComplex.AsString;
{VarConv.pas 154 :}
Variant(Left) := Variant(Left) + VarConvertCreate(LValue, LType)
{VarConv.pas 162 :}
Variant(Left) := Variant(Left) - VarConvertCreate(LValue, LType)
{VarConv.pas 178 :}
Variant(Left) := Variant(Left) / VarConvertCreate(LValue, LType)
{VarConv.pas 186 :}
Variant(Left) := Variant(Left) div VarConvertCreate(LValue, LType)
{VarConv.pas 226 :}
Variant(Left) := TConvertVarData(Left).VValue /
{VarConv.pas 231 :}
Variant(Left) := Int(TConvertVarData(Left).VValue /
{VarConv.pas 358 :}
Variant(Dest) := TConvertVarData(V).VValue
{VarConv.pas 360 :}
Variant(Dest) := TConvertVarData(V).VConvType
{VarConv.pas 362 :}
Variant(Dest) := ConvTypeToDescription(TConvertVarData(V).VConvType)
{VarConv.pas 364 :}
Variant(Dest) := ConvTypeToFamily(TConvertVarData(V).VConvType)
{VarConv.pas 366 :}
Variant(Dest) := ConvFamilyToDescription(ConvTypeToFamily(TConvertVarData(V).VConvType))
{Variants.pas 733 :}
AnsiString(V.VString) := '';
{Variants.pas 740 :}
UnicodeString(V.VUString) := '';
{Variants.pas 949 :}
AnsiString(Dest.VString) := AnsiString(Source.VString);
{Variants.pas 957 :}
UnicodeString(Dest.VUString) := UnicodeString(Source.VUString);
{Variants.pas 1038 :}
varSmallint: Variant(Dest) := PSmallint(Source.VPointer)^;
{Variants.pas 1039 :}
varInteger: Variant(Dest) := PInteger(Source.VPointer)^;
{Variants.pas 1040 :}
varSingle: Variant(Dest) := PSingle(Source.VPointer)^;
{Variants.pas 1041 :}
varDouble: Variant(Dest) := PDouble(Source.VPointer)^;
{Variants.pas 1042 :}
varCurrency: Variant(Dest) := PCurrency(Source.VPointer)^;
{Variants.pas 1043 :}
varDate: Variant(Dest) := PDate(Source.VPointer)^;
{Variants.pas 1044 :}
varOleStr: Variant(Dest) := VarCopyNoIndOleStr(Source);
{Variants.pas 1045 :}
varBoolean: Variant(Dest) := PWordBool(Source.VPointer)^;
{Variants.pas 1046 :}
varShortInt: Variant(Dest) := PShortInt(Source.VPointer)^;
{Variants.pas 1047 :}
varByte: Variant(Dest) := PByte(Source.VPointer)^;
{Variants.pas 1048 :}
varWord: Variant(Dest) := PWord(Source.VPointer)^;
{Variants.pas 1049 :}
varLongWord: Variant(Dest) := PLongWord(Source.VPointer)^;
{Variants.pas 1050 :}
varInt64: Variant(Dest) := PInt64(Source.VPointer)^;
{Variants.pas 1051 :}
varUInt64: Variant(Dest) := PUInt64(Source.VPointer)^;
{Variants.pas 2442 :}
ShortString(S) := LTemp;
{Variants.pas 2916 :}
AnsiString(V.VString) := Value;
{Variants.pas 2930 :}
WideString(Pointer(V.VOleStr)) := Copy(Value, 1, MaxInt);
{Variants.pas 2939 :}
UnicodeString(V.VUString) := Value;
{Variants.pas 2953 :}
IInterface(V.VUnknown) := Value;
{Variants.pas 2962 :}
IInterface(V.VDispatch) := Value;
{Variants.pas 3588 :}
opAnd: Variant(Left) := _VarToBoolean(Left) and _VarToBoolean(Right);
{Variants.pas 3589 :}
opOr : Variant(Left) := _VarToBoolean(Left) or _VarToBoolean(Right);
{Variants.pas 3590 :}
opXor: Variant(Left) := _VarToBoolean(Left) xor _VarToBoolean(Right);
{Variants.pas 4049 :}
Variant(Dest) := -_VarToDouble(Dest);
{Variants.pas 4059 :}
Variant(Dest) := -PVariant(Source)^;
{Variants.pas 4143 :}
varSmallint: Variant(Dest) := -PSmallint(Dest.VPointer)^;
{Variants.pas 4144 :}
varInteger: Variant(Dest) := -PInteger(Dest.VPointer)^;
{Variants.pas 4145 :}
varSingle: Variant(Dest) := -PSingle(Dest.VPointer)^;
{Variants.pas 4146 :}
varDouble: Variant(Dest) := -PDouble(Dest.VPointer)^;
{Variants.pas 4147 :}
varCurrency: Variant(Dest) := -PCurrency(Dest.VPointer)^;
{Variants.pas 4148 :}
varDate: Variant(Dest) := -PDate(Dest.VPointer)^;
{Variants.pas 4151 :}
varShortInt: Variant(Dest) := -PShortInt(Dest.VPointer)^;
{Variants.pas 4155 :}
varInt64: Variant(Dest) := -PInt64(Dest.VPointer)^;
{Variants.pas 4183 :}
Variant(Dest) := not LInteger;
{Variants.pas 4186 :}
Variant(Dest) := not LInteger
{Variants.pas 4188 :}
Variant(Dest) := not _VarToBoolean(Dest);
{Variants.pas 4202 :}
Variant(Dest) := not Integer(LVal64)
{Variants.pas 4204 :}
Variant(Dest) := not LVal64;
{Variants.pas 4214 :}
Variant(Dest) := not PVariant(Source)^;
{Variants.pas 4235 :}
varEmpty: Variant(Dest) := -1;
{Variants.pas 4264 :}
varSmallInt: Variant(Dest) := not PSmallInt(Dest.VPointer)^;
{Variants.pas 4265 :}
varInteger: Variant(Dest) := not PInteger(Dest.VPointer)^;
{Variants.pas 4271 :}
varBoolean: Variant(Dest) := not PWordBool(Dest.VPointer)^;
{Variants.pas 4272 :}
varShortInt: Variant(Dest) := not PShortInt(Dest.VPointer)^;
{Variants.pas 4273 :}
varByte: Variant(Dest) := not PByte(Dest.VPointer)^;
{Variants.pas 4274 :}
varWord: Variant(Dest) := not PWord(Dest.VPointer)^;
{Variants.pas 4275 :}
varLongWord: Variant(Dest) := not PLongWord(Dest.VPointer)^;
{Variants.pas 4276 :}
varInt64: Variant(Dest) := not PInt64(Dest.VPointer)^;
{Variants.pas 4277 :}
varUInt64: Variant(Dest) := not PUInt64(Dest.VPointer)^;
{VarUtils.pas 344 :}
WideString(Pointer(V.VOleStr)) := '';
{VarUtils.pas 346 :}
IUnknown(V.VDispatch) := nil;
{VarUtils.pas 350 :}
IUnknown(V.VUnknown) := nil;
{VarUtils.pas 389 :}
WideString(Pointer(Dest.VOleStr)) := Copy(Source.VOleStr, 1, MaxInt);
{VarUtils.pas 391 :}
IUnknown(Dest.VDispatch) := IUnknown(Source.VDispatch);
{VarUtils.pas 395 :}
IUnknown(Dest.VUnknown) := IUnknown(Source.VUnknown);
{VarUtils.pas 433 :}
WideString(Pointer(Dest.VOleStr)) := Copy(PPWideChar(Source.VPointer)^, 1, MaxInt);
{VarUtils.pas 435 :}
IUnknown(Dest.VDispatch) := IUnknown(PDispatch(Source.VPointer)^);
{VarUtils.pas 441 :}
Variant(Dest) := PVariant(Source.VPointer)^; { this in turn will cause a VarCopy[Ind] }
{VarUtils.pas 443 :}
IUnknown(Dest.VUnknown) := IUnknown(PUnknown(Source.VPointer)^);
{VarUtils.pas 615 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VSmallInt);
{VarUtils.pas 645 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VInteger);
{VarUtils.pas 675 :}
WideString(Pointer(Dest.VOleStr)) := FloatToStr(LSource.VSingle);
{VarUtils.pas 705 :}
WideString(Pointer(Dest.VOleStr)) := FloatToStr(LSource.VDouble);
{VarUtils.pas 735 :}
WideString(Pointer(Dest.VOleStr)) := CurrToStr(LSource.VCurrency);
{VarUtils.pas 767 :}
WideString(Pointer(Dest.VOleStr)) := TimeToStr(LSource.VDate)
{VarUtils.pas 769 :}
WideString(Pointer(Dest.VOleStr)) := DateTimeToStr(LSource.VDate);
{VarUtils.pas 800 :}
WideString(Pointer(Dest.VOleStr)) := Copy(LSource.VOleStr, 1, MaxInt);
{VarUtils.pas 834 :}
WideString(Pointer(Dest.VOleStr)) := BoolToStr(LSource.VBoolean);
{VarUtils.pas 864 :}
WideString(Pointer(Dest.VOleStr)) := PVariant(LSource.VPointer)^;
{VarUtils.pas 900 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VSmallInt);
{VarUtils.pas 930 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VByte);
{VarUtils.pas 960 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VWord);
{VarUtils.pas 990 :}
WideString(Pointer(Dest.VOleStr)) := IntToStr(LSource.VLongWord);
{VarUtils.pas 1361 :}
IUnknown(PUnknown(LAddress)^) := nil;
{VarUtils.pas 1363 :}
WideString(PPointer(LAddress)^) := '';
{VarUtils.pas 1414 :}
IUnknown(PUnknown(LTarget)^) := IUnknown(PUnknown(LSource)^);
{VarUtils.pas 1416 :}
WideString(PPointer(LTarget)^) := Copy(PPWideChar(LSource)^, 1, MaxInt);
{VarUtils.pas 1655 :}
IUnknown(PUnknown(LAddress)^) := nil;
{VarUtils.pas 1657 :}
WideString(PPointer(LAddress)^) := '';
{VarUtils.pas 1908 :}
IUnknown(PUnknown(Data)^) := IUnknown(PUnknown(LAddress)^);
{VarUtils.pas 1910 :}
WideString(PPointer(Data)^) := Copy(PPWideChar(LAddress)^, 1, MaxInt);
{VarUtils.pas 1951 :}
IUnknown(PUnknown(LAddress)^) := IUnknown(PUnknown(Data)^);
{VarUtils.pas 1953 :}
WideString(PPointer(LAddress)^) := Copy(PWideChar(Data), 1, MaxInt);
{WebContnrs.pas 400 :}
Pointer(FString) := nil;
{WideStrings.pas 1068 :}
Integer(Item1^.FString) := Integer(Item2^.FString);
{WideStrings.pas 1069 :}
Integer(Item2^.FString) := Temp;
{WideStrings.pas 1071 :}
Integer(Item1^.FObject) := Integer(Item2^.FObject);
{WideStrings.pas 1072 :}
Integer(Item2^.FObject) := Temp;
{WideStrings.pas 1159 :}
Pointer(FString) := nil;
{WideStrUtils.pas 160 :}
Cardinal(Pointer(Result)^) := Size;
{WSDLImpWriter.pas 3749 :}
Integer(S) := Value;
{XPStrings.pas 157 :}
string(Element) := FStrings[FCurrent]
{XPStrings.pas 171 :}
string(Element) := FStrings[FCurrent]
{XPTestedUnitUtils.pas 486 :}
IXPParserNode(Element) := GetObserver(FIteratorIndex) as IXPParserNode;