【结贴】字符串的indexof函数问题

江振辉 · 发表于 2009-10-28 17:10:25

我的代码如下，
  private
   lContractorNames:String;
  public
{public declarations}
  end;

implementation

procedure TXMCGSP.FIELD_XMXXL_invitedCon2ButtonClick(Sender: TObject);
  var lContractorName :String;
begin
  DataSetXMXXL.ApplyUpdates;
  DataSetXMXXL.Edit;
  lContractorNames := DataSetXMXXL.FieldByName('invitedCon2').AsString;
  lContractorName := TXZCBS.GetContractorID(Context);
  if(lContractorNames <> '') then
  begin
   if(lContractorNames.IndexOf(lContractorName) > 0) then
运行到最下面一句话时就报如下图错误，调试运行时， lContractorNames 和 lContractorName 两个字符串变量都不为空

zfang · 发表于 2009-10-28 17:17:55

http://bbs.justep.com/forum.php?mod=viewthread&tid=30374

江振辉 · 发表于 2009-10-28 17:27:53

我查过这些帖子了，就是将小写的indexof换成这样的IndexOf就不报这个错啦，但我的已经是这样的了哟，怎么还会错呢

atiger · 发表于 2009-10-28 18:35:48

不是大小写的问题，是用法，见帖子的6楼

lContractorName 这个值是啥，

江振辉 · 发表于 2009-10-29 08:44:30

lContractorName和lContractorNames都是中文字符串，实际上lContractorNames是由lContractorName和分号组成的字符串

zfang · 发表于 2009-10-29 08:47:04

楼主，你用pos函数吧。

江振辉 · 发表于 2009-10-29 09:08:33

用POS函数uses那个包呢

zfang · 发表于 2009-10-29 09:14:47

平台中的帮助中搜索就有名空间
StringUtils.Pos

江振辉 · 发表于 2009-10-29 09:16:05

谢谢！找到了！

zfang · 发表于 2009-10-29 09:17:13

那还有别的问题么？

		自动登录	找回密码
密码			立即注册