uses StrUtils;
AnsiIndexText() //for Delphi 6

解决方案 »

  1.   

    uses StrUtils;
    AnsiIndexText() //for Delphi 6
      

  2.   

    用一个循环判断一下不行吗
    var
      i:integer;
    begin
      for i:=low(pingc) to  high(pingc) do
        if pingc[i]=ping then
           ......
    就是不知道你说的是不是这个意思
      

  3.   

    uses StrUtils;
    AnsiIndexText() //for Delphi 6
      

  4.   

    For i := 1 to 5 do
         Begin
              if ping = pingc[i] then
                 ShowMessage('asdfasdfasdf');
         end;
      

  5.   

    var
      iLoop : Integer;
    for iLoop := Low(pingc) to High(pingc) then
    begin
      if pingc[iLoop) = ping then
        do something ......
    end;