Steuerzeichen weg

[HomerGER]

Danke, ging doch allein

Code:

    //Steuerzeichen vorhanden
    if (Pos('#10#13', text_str_s) <> 0) then
    begin
        //#10#13 setzen
        j := 1;
        for i := j to Length(text_str_s) do
        begin
            if (text_str_s <> '') then
            begin
                pos_i := Pos('#10#13', text_str_s);
                text_as[i] := Copy(text_str_s, 1, pos_i - 1);
                Delete(text_str_s, 1, pos_i + 5);
                j := j + 2;
            end;
        end;

        for i := 1 to 20 do
        begin
            if (text_as[i] <> '') then
            begin
                output_s := output_s + text_as[i] + sLineBreak;
            end;
        end;
    end
    else
    begin
        output_s := text_str_s;
    end;