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