超级菜问题，怎么样判断一个字符串是以“19”开头？？？在线等！！！

Question

怎样判断从EDIT1 中输入的字符串是以“19”开头的
请大侠们赐教！1

Answer 1

str:= leftstr(Edit1.text,1,2)
if str= '19' then
......

Answer 2

if copy(edit1.text,1,2)='19'then
showmessage('ok')
else.......

Answer 3

我想大家不要告诉他…… 这个是最基础的东西。最近楼下的一个小姑娘在做算术题，旁边的我的朋友看见她错了就说。我说你是在干嘛啊，叫她自己找到错误不行吗？找到自己的不足。我想楼顶的，这个是最基本的算法问题，真的是最基本的。不使用现成的函数，也可以用其他方法，而且许多方法不仅仅是楼上二人的方法。请你去看看基础的书，比如C++ primer就有这个得很好解释。我说的是实心话。

Answer 4

我建议见这个问题改成“用尽可能多的方法，怎么样判断一个字符串是以“19”开头？”
我提供一个不用任何函数的：
str:= Edit1.text;
if (str[1]='1')and(str[2]='9') then ......
当然这只限于子字符串较短的情况！

Answer 5

同意dext(德克斯特)
我的用了函数的
if pos('19',trim(edit1.Text))=1 then
begin
  showmessage('ok');
end
else
begin
  showmessage('error');
end;