Windows 10 1809 - Problem mit Memo.Text

[Michael II]

Hallo CodeZwerg

besten Dank für deine rasche Reaktion.

Antwort: Ja.

Der Code läuft in einem Chatfenster (User gibt Text ein und schliesst mit Return/Enter ab).

Im "Original" sieht der Code so aus und lief bis vor Windows 10 1809:

Delphi-Quellcode:

        if Memo2.Text <> '' then
        begin
          while CharInSet(Memo2.Text[length(Memo2.Text)], [#10, #13]) do
          begin
            Memo2.Text := Copy(Memo2.Text, 1, length(Memo2.Text) - 1);
            if Memo2.Text = '' then
              break;
          end;
        end;

Gruss
Michael