Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
Be seen. Boost your question’s priority for more expert views and faster solutions
procedure TForm1.Button1Click(Sender: TObject);
sl : TStringList;
s : String;
i : integer;
if OpenDialog1.Execute then begin
sl := TStringList.create;
s := AdjustLineBreaks(sl.text);
for i := 1 to length(s) do begin
if (s[ i ] < ' ') and not (s[i] in [#13,#10]) then begin
s [ i ] := ' ';
sl.text := s;
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.