Author: Jonas Bilinkevicius
Using a TMemo, is it possible to convert each wrap to a CR/LF, or even at a
specific column (like 67 or 80)?
Answer:
1 const2 limit = 67;
3 var4 S: string;
5 i: Integer;
6 begin7 S := Memo1.Text;
8 Memo1.Clear;
9 repeat10 i := limit;
11 while S[i] <> ' ' do12 Dec(i);
13 Memo1.Lines.Add(Trim(Copy(S, 1, i)));
14 Delete(S, 1, i);
15 until16 Length(S) = 0;
17 end;