Как добавить перенос на новую строку?

Question

[Shaunluu]

День добрый. Есть сайт с диапозонами IP. Я беру через idhttp.get. и вставляю в memo1.text. Там получается всё одной строкой.

Диапозоны ip в формате CIDR - это xxx.xxx.xxx.xxx/xx , реализовал перенос так

const
  sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF}
               {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};


    for i := 0 to Length(source) do
    begin
         if source[i] = '/' then Insert(sLineBreak, source, i+3);
    end;

Вроде функция работает, но почему-то ближе к концу все ломается,хотя видно, что формат ip точно такойже как и до этого:
Почему такое может быть ? и как можно сделать по другому, если сталкивались с таким. Благодарю!

Comments

[Mercury13]

Я тут ответ написал; вы, скорее всего, неправильно решаете задачу.

Answer 1

[Александр]

Всё очень просто - вы постоянно добавляете новые символы и тем самым увеличиваете длину строки, но цикл крутится до окончания исходной строки. Лучше всего будет сделать обратный цикл:

for i := Length(source) downto 1 do
begin
  if source[i] = '/' then Insert(sLineBreak, source, i+3);
end;

P.S. В делфи, в нулевом индексе String находится размер массива, а сами символы находятся начиная с индекса 1.

Comments

[Mercury13]

Это решение лучше, но оно перестанет работать в
www.ipdeny.com/ipblocks/data/countries/us.zone
потому что там есть зоны /8.

[Александр]

Mercury13 Я объяснил человеку в чем его ошибка. На сколько оптимален/неоптимален его алгоритм пусть сам решает

[Mercury13]

Александр, Надеюсь, это разовая программа. Не хотел бы я пользоваться таким тяп-ляп написанным софтом.

Answer 2

[Mercury13]

Я добавлю к Александр .
В отличие от Си, где условие цикла каждый раз вычисляется полностью, в Паскале вторая граница for вычисляется один раз и запоминается.
Потому длина строки меняется, а мы ходим до самой первой.

К тому же вы неправильно решаете задачу. Никакой там не одной строкой. В ответе сервера концы строк LF, а надо CR+LF. Вот функция (крайне неоптимизированная), которая приводит концы строк к единому виду независимо от того, какие там стоят.

function NormalizeEol(const s : string) : string;
begin
  Result := StringReplace(s, #13#10, #10, [rfReplaceAll]);
  Result := StringReplace(Result, #13, #10, [rfReplaceAll]);
  Result := StringReplace(Result, #10, #13#10, [rfReplaceAll]);
end;

Answer 3

[Shaunluu]

Большое спасибо, ребят! Действительно, не подумал , об этом - давно что-то не ковырялся в программировании последний раз.

Comments

[Mercury13]

И всё-таки советую обратить внимание на мой ответ и сказать, как оно работает. Я специально открыл их страничку в HEX-редакторе, чтобы убедиться: там строчки разделены юниксовским LF’ом.

[Mercury13]

UPD. Отмеченное решение перестанет работать в
www.ipdeny.com/ipblocks/data/countries/us.zone
потому что там есть зоны /8.