Wo ist der Fehler? Delete(News[i].Text, z, 1);

[Christian Seehase]

Moin Gerrit,

schau mal ob's so geht:

Code:

for z := 1 to Length(News[i].Text) do
  begin
    if (News[i].Text[z] = #13) then
    begin
      [color=red]System.[/color]Delete(News[i].Text, z, 1);
      [color=red]System.[/color]Insert('
', News[i].Text, z);
    end;
  end;