procedure TForm1.Button2Click(Sender: TObject);
var
s:string[6];
const
ss = '100001';
a: array[0..9] of byte = ($31,$30,$30,$30,$30,$31,$0,$0,$0,$0);
begin
move(a[0], s[1],6); if s = ss then
showmessage('ok');
end;这段代码运行一下,你会发现对话框弹不出来,不知是否DELPHI的BUG,问下如何比较才能相等,或如何赋值才能使得其相等?不要说另外写一个比较函数比较前N位,那就没意思,也不是我的本意。PS:(字符0和1分别对应 $30,$31)
var
s:string[6];
const
ss = '100001';
a: array[0..9] of byte = ($31,$30,$30,$30,$30,$31,$0,$0,$0,$0);
begin
move(a[0], s[1],6); if s = ss then
showmessage('ok');
end;这段代码运行一下,你会发现对话框弹不出来,不知是否DELPHI的BUG,问下如何比较才能相等,或如何赋值才能使得其相等?不要说另外写一个比较函数比较前N位,那就没意思,也不是我的本意。PS:(字符0和1分别对应 $30,$31)
解决方案 »
- 如何跨进程获取控件的名称呢?
- TransmitFile函数怎么使用?求大侠给个接收和发送端端代码啊
- 请问: property Parent: TWinControl read FParent write SetParent; 中的“read”“write”什么意思
- 用delphi如何实现拷贝其他计算机上的文件到本地?
- 请高手帮帮我看看这条语句!
- dbgrideh怎样控制时间显示?
- 用winsocket传文件的问题(我搜索了所有的有关serversocket的贴子也未找到答案, 在线等待)
- 一个聊天软件,请帮忙测试
- dbgrideh的buttonstyle设置了cbsEllipsis之后,怎么点击打开一个窗口呢?
- 在FormCreate下可执行在OnCLick下不能正确执行的问题
- delphi的ADOQuery组件连接access,CSV插入数据库问题
- 这么热的天还穿5条裤衩,散个分。。。
//以后不要用这种标题来发贴了,还以为发现什么新大陆一样:)
var
s:string[6];
const
ss = '100001';
a: array[0..9] of byte = ($31,$30,$30,$30,$30,$31,$0,$0,$0,$0);
begin
SetLength(s,6);//分配内存
move(a[0], s[1],6);
if s = ss then
showmessage('ok');
end;
s:string; //唉
const
ss = '100001';
a: array[0..9] of byte = ($31,$30,$30,$30,$30,$31,$0,$0,$0,$0);
begin
SetLength(s,6); //分配内存
move(a[0], s[1],6);
if s = ss then
showmessage('ok');
end;