For-loop from C to Delphi

[DeddyH]

Since we cannot know the type of Data, here are 2 suggestions:

Delphi-Quellcode:

//If Data is a string:
i := 1;
while i < Length(Data) do

//If Data is a dynamic array of Char:
i := 0;
while i < High(Data) do

//Anyway, I hope this is right in both cases:
  begin
    if Data[i] = 'X' then
      raise Exception.Create('Invalid position of X in Telepen data');
    if Data[i + 1] = 'X' then
      Count := Count + Ord(Data[i]) + 17
    else
      Count := Count + 27 + (Ord(Data[i]) * 10) + Ord(Data[i + 1]);
    inc(i, 2);
  end;