Hallo,

wo liegt der Fehler in der o.g. Codezeile?
Bekomme die Meldung: Operator oder Semikolon fehlt:

Hier der Ausschnitt:

markieren

Delphi-Quellcode:

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

Moin Gerrit,

schau mal ob's so geht:

markieren

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;

Danke, aber warum löscht er mit #13 nicht?

Moin Gerrit,

jetzt funktioniert's?

Es gilt hier nach wie vor: Neue Frage - Neuer Thread

Nur als Tip: Probiers mal mit dieser Zeile:

markieren

Delphi-Quellcode:

StringReplace(News[i].Text, #13, '
', [rfReplaceAll]);

Die Funktion ersetzt dir jedes Vorkommen von #13 mit