Pos со смещением не работает

[Dozent]

Добрый день, не могу понять почему не правильно работает функция Pos

Обрабатываю такую строку

'47172402,79600893997,0.29,2'#$A

  s := IdHTTP1.Get(s) + #10;
  PosIdx := 0;
  while Pos(#10, s, PosIdx) <> Length(s) do
  begin
    // присваиваем ади со сдвигом равным найденому последнему символу перехода строки
    sID := copy(s, 1, Pos(',', s, PosIdx));
    PosIdx := Pos(#10, s, PosIdx);
    sStatus := copy(s, PosIdx - 1, 1);
    Memo2.Lines.Add(sID + ' | ' + sStatus);
  end;

Цикл потому что таких строк мб несколько.
Проблема собственно в том что что если я пишу Pos(',', s, PosIdx), то постоянно возвращает 0 если пишу Pos(',', s) то всё норм возвращает 9!
Вы скажите юзай PosEx, но с с ней таже беда, постояно результат 0, да и потом я посмотрел, PosEx это ссылка на функцию Pos, так что смысла не вижу, и Pos допускает вводить третий параметр...

Плз хелп)

[Аватар]

PosEx вместо Pos. А что это за формат Pos с 3-им параметром?

[Dozent]

смысл если Ctrl+Click приводит из моего юнита в unit System.StrUtils в функцию

function PosEx(const SubStr, S: string; Offset: Integer): Integer;
begin
  Result := System.Pos(SubStr, S, Offset);
end;

ну а дальше
unit System;

function Pos(const SubStr, Str: _ShortStr; Offset: Integer): Integer;
{$IFDEF PUREPASCAL}
var
  I, LIterCnt, L, J: Integer;
  PSubStr, PS: _PAnsiChr;
begin
  L := _PStrLen(SubStr);

если и то и то приводит к одному результату, смысл юзать промежуточную функцию?

[Аватар]

А, это в XE смещение добавили. Дык может смещение не то

[Dozent]

ну у меня ХЕ4, а какое тогда смещение?

[Аватар]

Ну какого оно вообще начальное с нуля? У строк отчет с 1 идет

[Dozent]

ДА спасибо разобрался)

    s := IdHTTP1.Get(s) + #10;
  PosIdx := 1;
  while Pos(#10, s, PosIdx) > 0 do
  begin
    // присваиваем ади со сдвигом равным найденому последнему символу перехода строки
    sID := copy(s, PosIdx, Pos(',', s, PosIdx) - PosIdx);
    PosIdx := Pos(#10, s, PosIdx) + 1;
    if copy(s, PosIdx - 3, 1) = ',' then
      sStatus := copy(s, PosIdx - 2, 1)
    else
      sStatus := copy(s, PosIdx - 3, 2);
    Memo2.Lines.Add(sID + ' | ' + sStatus);
  end;;