简单问题，送分

Question

1、怎样得到一某字符，在另一字符串首次出现的位置？
2、怎样判断某字符，是否包含在另一字符串中？
请给出示例代码

Answer 1

i := Pos(Substr,S);
if i =0 then
 // 字符不在字符串中
i就是字符在字符串中出现的第一个位置.

Answer 2

参考Pos函数的用法，学会查在线帮助。
这对你学习会有好处。英文不好看，但有时得慢慢看！

Answer 3

在delphi中的strutils单元里能够找到delphi的函数，好像是以ansi什么开头的我上次作项目的时候用过，你查一查就知道了

Answer 4

自己写循环过程
...
var a:char;
b:string;
i:integer;
begin
 for i := 0 to length(b) do 
   begin
    if a=string[i] then
       messagebox(handle, '...','第'+inttostr(i+1)+'个字符',mb_ok   +mb_iconinformation);
   end;
end;

Answer 5

i := Pos(Substr,S);
if i =0 then
 // 字符不在字符串中
i就是字符在字符串中出现的第一个位置.