Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Variant To TBytes
#9
Evet hocam daha generic bir kodlama yapsaymışım daha iyi olurmuş aslında.
Şuradaki açıklamayı okuyarak yaptım.
Alıntı:Description
The TVarData record is Delphi’s implementation of the Variant type. You can cast any Variant to TVarData to examine the internal workings of the Variant.

The VType field stores the variant type (as returned by VarType). The other fields store type-specific information. Values up to 8 bytes in size are stored directly in the TVarData record. Larger items are stored separately; the TVarData record holds a pointer to the actual data (such as VArray, which points to a TVarArray record).
Buradan anladığım Variant tipinin implementasyonu TVarData record tipi ile gerçekleşmiş.

8 Byte'a kadar bilgi tutan veri tipleri doğrudan TVarData içinde tutuluyor iken, daha büyük veri tutabilen tipteki verilerin sadece adresi(pointer) tutuluyormuş.

Yani Variant tipindeki değişkene, array string gibi bir değişken ataması (assignment statement) yaparsam eğer, bunların değerleri yerine adresleri tutuluyor.

Stringin byte'larını okuma kısmını yapamadım. :ss
Cevapla


Bu Konudaki Yorumlar
Variant To TBytes - Yazar: Tuğrul HELVACI - 09-08-2017, Saat: 11:54
Variant To TBytes - Yazar: Abdullah ILGAZ - 09-08-2017, Saat: 12:13
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 09-08-2017, Saat: 12:47
Cvp: Variant To TBytes - Yazar: Abdullah ILGAZ - 10-08-2017, Saat: 10:49
Cvp: Variant To TBytes - Yazar: YBSUzmani - 09-08-2017, Saat: 13:13
Cvp: Variant To TBytes - Yazar: esistem - 09-08-2017, Saat: 13:26
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 09-08-2017, Saat: 14:11
Variant To TBytes - Yazar: compute - 09-08-2017, Saat: 15:56
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 09-08-2017, Saat: 16:57
Variant To TBytes - Yazar: compute - 09-08-2017, Saat: 17:55
Variant To TBytes - Yazar: SimaWB - 09-08-2017, Saat: 23:11
Cvp: Variant To TBytes - Yazar: compute - 10-08-2017, Saat: 11:06
Variant To TBytes - Yazar: uparlayan - 10-08-2017, Saat: 14:07
Variant To TBytes - Yazar: vkamadan - 10-08-2017, Saat: 15:56
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 10-08-2017, Saat: 16:06
Cvp: Variant To TBytes - Yazar: uparlayan - 10-08-2017, Saat: 19:19
Variant To TBytes - Yazar: compute - 10-08-2017, Saat: 17:29
Variant To TBytes - Yazar: esistem - 11-08-2017, Saat: 09:19
Cvp: Variant To TBytes - Yazar: uparlayan - 11-08-2017, Saat: 09:33
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 11-08-2017, Saat: 10:00
Cvp: Variant To TBytes - Yazar: ismailkocacan - 11-08-2017, Saat: 17:13
Variant To TBytes - Yazar: esistem - 11-08-2017, Saat: 09:35
Variant To TBytes - Yazar: SimaWB - 11-08-2017, Saat: 09:47
Variant To TBytes - Yazar: esistem - 11-08-2017, Saat: 10:14
Variant To TBytes - Yazar: esistem - 14-08-2017, Saat: 09:25
Cvp: Variant To TBytes - Yazar: Tuğrul HELVACI - 14-08-2017, Saat: 10:58
Cvp: Variant To TBytes - Yazar: ismailkocacan - 15-08-2017, Saat: 02:27
Variant To TBytes - Yazar: SimaWB - 14-08-2017, Saat: 11:13
Variant To TBytes - Yazar: esistem - 15-08-2017, Saat: 12:52
Cvp: Variant To TBytes - Yazar: ismailkocacan - 15-08-2017, Saat: 13:25



Konuyu Okuyanlar: 1 Ziyaretçi