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;
var
Location: PChar;
begin
if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil
then
ShowMessage('Substring found')
else
ShowMessage('Substring not found');
end;
解决方案 »
- 求qq在线帮助[僵哥帮忙]
- 关于StringGrid的消息
- 只选择时间,用DateTimePicker控件可以吗?另外,为什么时间是17:00,显示的却是5:00呢?
- 如何在TdxDBGrid中得到当前记录值?
- 那位好心人给解决一下??加250分!(在线等,下班前结贴)!
- 谁能给我提供点Delphi 6的数据库方面的源程序啊
- 感恩DELPHI的衰落
- 紧急求助!!!!!!!!!!!!!!!!!!!!怎样用电脑给手机发短信??????????怎样链接网易泡泡????????????在线等!!!!!!!!!!!!!!!!!!!
- 各位大侠帮帮忙,小弟新学delhpi有一事不明
- mts是什么??
- 关于多个BUTTON的问题?谢谢!
- 如何让dbgrid的列自动适应内容的宽度;另外如何双击两列交界,让dbgrid的列自动适应内容的宽度?
if pos('''''+//+''''',aaa)>0 then//说明存在,否则在''外了
怎样判断?
会不会出现如下情况要求判断?
abcd'rew//fda//'ab//jkl