SmartPascal
WrapText
Function		 Add line feeds into a string to simulate word wrap SysUtils unit
1  function WrapText ( const SourceString {, MaxColumnSize : Integer = 45} ) : string;
2  function WrapText ( const SourceString, BreakString : string; BreakSet : TSysCharSet; MaxColumnSize : Integer ) : string;
Description
The WrapText function effectively splits a line of text SourceString into multiple lines in the returned string.
 
In actual fact, it simply inserts line breaks into the returned string, so that a display of the string would show as multiple lines.
 
Version 1
 
Is the simplest version, allowing a default line break substring (#13#10 - Carriage return + line feed) to be inserted after each set of words fitting MaxColumnSize characters is encountered in the source string. If the max column size is omitted, it defaults to 45.
 
Version 2
 
Allows the inserted line break characters BreakString to be inserted after the occurence of a character in the BreakSet is encountered before MaxColumnSize is reached.
 
If none found BreakString is inserted anyway.
 
In both cases, words are preserved - never split across lines.
Related commands
Concat Concatenates one or more strings into one string
Copy Create a copy of part of a string or an array
Delete Delete a section of characters from a string
Insert Insert a string into another string
Move Copy bytes of data from a source to a destination
StringOfChar Creates a string with one character repeated many times
StringReplace Replace one or more substrings found within a string
 
Example code : Illustrate the simple version
var
  before, after : string;

begin
  // Set up a long string
  before := 'This is quite a long string, at least 50 chars long';

  // Split it into multiple lines, each 10 characters long
  after := WrapText(before, 10);

  // Show the before and after strings
  ShowMessage(before);
  ShowMessage('');
  ShowMessage(after);
end;
Show full unit code
   This is quite a long string, at least 50 chars long
  
   This is
   quite a
   long
   string,
   at least
   50 chars
   long
 
Example code : Wrap on a special control letter
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  SysUtils,   // Unit containing the WrapText command
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);
var
  before, after : string;

begin
  // Set up a long string
  before := 'Ten = 10. Eleven = 11. One hundred = 100.';

  // Split it into multiple lines, terminated by a dot
  after := WrapText(before, #13#10, ['.'], 1);

  // Show the before and after strings
  ShowMessage(before);
  ShowMessage('');
  ShowMessage(after);
end;
 
end.
Hide full unit code
   Ten = 10. Eleven = 11. One hundred = 100.
  
   Ten = 10.
   Eleven = 11.
   One hundred = 100.