Delphi 查找字符在字符串里的位置
用循环进行操作
var
ss:TStrings;
begin
ss:=TStringList.Create;
ss.LoadFromFile(filename);
if Pos('啊',ss.Text)>0 then begin
showmessage('找到啊');
end else if Pos('喔',ss.Text)>0 then begin
showmessage('找到喔');
end;
ss.Free;
end;