Why does this happen

[Ten_Mile_Hike]

Why does the following code produce Tmemo lines 
as short as 7 to as long as 26 characters when
wordwrap is on?

There are no #13 or #10 chars in the string- S
The font is monospaced
Attached is a picture of Tmemo

Code: Pascal  [Select][+][-]

1. var
2.   S:String='';
3. begin
4. Repeat
5.     S:=S+Chr(Random(95)+32);  //32..126
6.   until Length(S)>10000 ;
7.   Memo1.Text:=S;
8. end;

[Fibonacci]

Because there has to be a line break somewhere, and the preferred place is a space character (32)

[Bart]

And if there are no suitable breaking characters, Windows will break the line where it sees fit.

Bart

[Ten_Mile_Hike]

A simple fix for uniform line lengths is

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender:TObject);
2. var x:Integer; s1,s2:String;
3. begin
4.   s1:='';
5.   s2:='';
6.   Memo1.Clear;
7.   Repeat
8.     S1:=S1+Chr(Random(95)+32);  //32..126
9.   until Length(S1)>=10000;
10.   For x:=1 To Length(S1) Do
11.     Begin
12.     s2:=s2+s1[x];
13.     if x mod 20=0 then s2:=s2+#13#10;
14.     end;
15.   Memo1.Text:=S2;
16.   end;

But I never knew that #32 could be used as a line break by windows

[dbannon]

...
But I never knew that #32 could be used as a line break by windows

No, its not being used as a line break, its just a suitable place to insert a line break.

Davo

[Ten_Mile_Hike]

To be clear; is this a Windows thing or a TMemo thing?

[Thaddy]

The maximum line length in a Windows textbox, which is the underlying widget on windows is 32,767. But note it may be affected by scrollbar settings.
In effect, that means that within limits it should not be Windows but the TMemo implementation.