如判断变量ZCDM中是否包含"注册"2字.
解决方案 »
- 我有一组Edit与一个PopupMenu关联,我怎样知道是右击了哪个Edit弹出的PopupMenu
- 三天时间在线等答案,全部分求教WEBSNAP高手!!!!
- 请问WinNT/2000/XP下如何获得BIOS信息,非得用VXD吗?
- 能够在同一个Win2000svr上安装D5和D6吗?有无冲突。
- delphi 语法问题
- StringGrid怎样设置某一行为选择
- 菜鸟问:怎样调用shellexcute来运行word、excel、图片 文档?
- 谁有 Rose Delphi Link
- 请帮帮忙,DELPHI自带数据库的问题。
- 关于Treeview的问题?
- 怎么改呀!!各位师傅help一下
- 倒美帝国主义!把布什恶棍送上绞刑架!!!!!!!!!!!!!!
有问题请发信息到我的E-mail:[email protected]
procedure TForm1.Button1Click(Sender TObject);
var
Location: PChar;
begin
if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil
then
ShowMessage('Substring found')
else
ShowMessage('Substring not found');
end;
showmessage('有')
else
showmessage('没有');