delphi语法 delphi语法问题

delphi语法

mypen.dashstyle :=dashstyle.solid
 mypen.color :=color.black
 myen.startcap :=linecap.flat
 mypen.endcap :=linecap.flat
 mypen.endcap :=linecap.flat
 mypen.width :=10
这里mypen从何而来？出现未定义的变量，自然就编译不过了。

delphi语法问题

你是说
if adoquery1.fieldbyname(密码).asstring=111 then
还是
if adoquery1.recordcount>0 then
如果是上面的那个 你就看看你数据里面的密码
adoquery1.fieldbyname(密码).asstring 是不是 111 是不是有空格 (111后面, 如果字段定义成CHAR 会自动补充) , 如果这样 你就 trim( adoquery1.fieldbyname(密码).asstring)
如果是后面的话 ,也就是
(select 编号,密码 from 密码 where 编号= edit1.text ) 查询有问题. 是不是没有查询出来. 或者也是空格问题. 你自己检查一下. 调试模式 断点跟踪一下. 还是比较好分析的.

delphi case 语句：

少了1个end
procedure TForm1.RadioGroup1Click(Sender: TObject) //对齐设置
begin
case RadioGroup1.ItemIndex of
0:Memo1.Alignment:=taLeftJustify
1:Memo1.Alignment:=taCenter
2:Memo1.Alignment:=taRightJustify
end
end

end.

delphi xor异或语法

复制别人的
所以语言都支持的逻辑运算
not (非)就是取反的的意思, 真的非就是 假, 假的not 就是真的意思, 真一般是用>=1的整数或boolean 的true表示,假用0 或false表示
and (与)就是和的意思, 比如 (性别= 男 and 年龄>= 18 ) 这样表示一个成年男子的意思
or(或) 就是或者的意思,有一个条件为真就可以了 (颜色=红色 or 颜色=黄色) 表示 红色可以,黄色也可以,两个都满足也可以
xor(异或)这个比较难理解,一句口诀吧自己总结的,两个数比较相同为 假, 不同位真,给你一个真值表看看
0^0=0 　　0^1=1 　　1^0=1 　　1^1=0