代码之家 › 专栏 › 技术社区 › Rodrigo Peetz

Delphi Pos始终返回0

indy delphi web-services string

Rodrigo Peetz · 技术社区 · 7 年前

我真的不知道为什么Pos总是返回0而不是char“;”字符串中的位置因此,一个示例输出是 2;fulano;fulano;0 3;ciclano;ciclano;0 4;beltrano;beltrano;0 5;foo;foo;0 8;jose;jose;0 9;maria;maria;0

代码是

var
  linha,uid,login,senha,email,tipo : WideString;
  resposta : TStringList;
  I : Integer;
begin
  try
    resposta := TStringList.Create;
    resposta.Text := frmMain.IdHTTP1.Get(frmMain.cdsConfig.FieldByName('WebService').AsString+'listdest.php');
    for I := 0 to resposta.Count-1 do
    begin
      linha := resposta.Strings[i];
      if i = 0 then
        Delete(linha,1,1); // the first line have one wierd $FEFF
      if length(linha) > 5 then
        begin

          uid := Copy(linha,1,Pos(linha,';')-1);
          Delete(linha,1,Pos(linha,';'));
          login:=Copy(linha,1,Pos(linha,';')-1);
          Delete(linha,1,Pos(linha,';'));
          senha:=Copy(linha,1,Pos(linha,';')-1);
          Delete(linha,1,Pos(linha,';'));
          email:=Copy(linha,1,Pos(linha,';')-1);
          Delete(linha,1,Pos(linha,';'));
          tipo:=Copy(linha,1,Pos(linha,';')-1);
          Delete(linha,1,Pos(linha,';'));
        end;
    end;
    //dlgWait.Close;
  except on E :Exception do
    begin
      MessageBox(Self.Handle,PWideChar(E.Message),'Erro',MB_OK+MB_ICONERROR+MB_APPLMODAL);
      dlgWait.Close;
      FreeAndNil(resposta);
    end;
  end;

1 回复 | 直到 7 年前

Jerry Dodge 7 年前

您的呼叫 Pos 是向后的。参数包括:

function Pos(const SubStr, Str: _ShortStr; Offset: Integer): Integer;

但您的代码假设它们是:

function Pos(const Str, SubStr: _ShortStr; Offset: Integer): Integer;

linha 在内部 ';' ,当然,除非 = ,它将返回 0 .

另一方面,这只是一个性能提示。而不是打电话 销售时点情报系统

P := Pos(';', linha);
uid := Copy(linha,1,P-1);
Delete(linha,1,P);

推荐文章

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

Kamran Ali · 类中的Construtor Drink Drink不能应用于给定类型

2 年前

Manny · 如何比较Perl中的字符串?

2 年前

FÄÅ ÛÅ · 字典、列表和字符串

2 年前

displayName is undefined · 如何将字符串转换为非字符串?

2 年前

AntonioGrissini · 如何在python中将字符串“翻译”为整数?

2 年前

Manan Girdhar · 拆分字符串并仅在java中使用第二部分

2 年前

AnxiousLuna · Python使用len()获取数组索引数

2 年前

antonoyaro8 · 数据帧中每列上的Grepl

2 年前