超级菜问题,怎么样判断一个字符串是以“19”开头???在线等!!! 怎样判断从EDIT1 中输入的字符串是以“19”开头的请大侠们赐教!1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 str:= leftstr(Edit1.text,1,2)if str= '19' then...... if copy(edit1.text,1,2)='19'thenshowmessage('ok')else....... 我想大家不要告诉他…… 这个是最基础的东西。最近楼下的一个小姑娘在做算术题,旁边的我的朋友看见她错了就说。我说你是在干嘛啊,叫她自己找到错误不行吗?找到自己的不足。我想楼顶的,这个是最基本的算法问题,真的是最基本的。不使用现成的函数,也可以用其他方法,而且许多方法不仅仅是楼上二人的方法。请你去看看基础的书,比如C++ primer就有这个得很好解释。我说的是实心话。 我建议见这个问题改成“用尽可能多的方法,怎么样判断一个字符串是以“19”开头?”我提供一个不用任何函数的:str:= Edit1.text;if (str[1]='1')and(str[2]='9') then ......当然这只限于子字符串较短的情况! 同意dext(德克斯特)我的用了函数的if pos('19',trim(edit1.Text))=1 thenbegin showmessage('ok');endelsebegin showmessage('error');end; delphi做频率响应曲线 Delphi 安装程序的生成 如何判断本地机器是否已连上了互连网? 在线程中如何实现定时器的功能? 如何在DBGrid中给日期型字段调用日期控件? 在线等待 如何把一组整数保存到二进制文件 用TWebBrowser时如何禁止POP网页弹出? 求救:远程报税-----------有关远程登陆访问-----问题 向大家请教一个回调函数的问题 纺织信管理息系统,纺织企业,计件工资 如何知道合并后的excel单元格,原来是有那些单元格构成 在线等待高手的解答,很着急!
if str= '19' then
......
showmessage('ok')
else.......
我提供一个不用任何函数的:
str:= Edit1.text;
if (str[1]='1')and(str[2]='9') then ......
当然这只限于子字符串较短的情况!
我的用了函数的
if pos('19',trim(edit1.Text))=1 then
begin
showmessage('ok');
end
else
begin
showmessage('error');
end;