2行简单要死的程序，就是过不去！答对了，马上给分！(30分)

C

chen___ye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #1

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>i:variant;<br>sbuf:array[1..6] of byte;<br>begin<br>i:='$FF';<br>sbuf[1]:=i;<br>end;<br>

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #2

i:=$ff<br>或 sbuf[1]:=inttostr（i)

 

B

Bxch_1000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #3

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>i:variant;<br>sbuf:array[1..6] of byte;<br>begin<br>i:='$FF'; // ？？？？？？？？ 改 i:=$FF;<br>sbuf[1]:=i;<br>end;<br>

 

C

chen___ye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #4

我没说清楚，应是<br>i:='$'+panel1.caption;(panel1.caption:='FF')

 

Y

yansh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #5

i:=$FF<br>楼上的各位都很对了，给I赋值成16进制，你那样赋值是啥意思。

 

B

Bxch_1000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #6

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>i:variant;<br>sbuf:array[1..6] of byte;<br>begin<br>i:='$'+panel1.caption;<br>sbuf[1]:=IntToStr(i);<br>end;<br>

 

C

chen___ye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #7

我想通过panel或者edit输入字符串，然后再通过串口发数据<br>所以，必须将字符串变为字节类型<br>对楼上的更正一下<br>最简单的应是<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>sbuf:array[1..6] of byte;<br>begin<br>sbuf[1]:=strtoint('$'+panel1.Caption);<br>end;<br>接受答案