کار با mscomm32 متغیرهای نوع OLEVARIANT

[daneshmand1354]

من از کامپوننت mscomm32 برای خواند پورت کام استفاده کرده ام.
mscomm1.input متغیری از نوع olevariant که حاوی 4 رکورد از نوع هگزا دسیمال است
با چه دستوری می شه این 4 متغیر را از دل آن بیرون کشید و از حالت هگزا دسیمال تبدیل کرد
کد VB آن به این صورت است

Dim s1 As String
a = MSComm1.Input
For i = 1 To Len(a)
s1 = s1 & Hex(Asc(Mid(a, i)))
Next

[MohsenB]

سلام

بفرمائید

var a, s1 :string;
i :Integer;
begin
a := MSComm1.Input;
for i:= 1 to Length(a) do
s1:= s1 + IntToHex(ord(a[i]),1);

پیروز باشید