<< Click to Display Table of Contents >> Navigation:  Programming > Create text under program control > FastAppendText: Create text with multiple letters > Example: FastAppendText

var i : Integer;

 

  Table1.DisableControls;

  try

  Table1.First;

  i := 0;

  AllRTFText.BeginUpdate;

  AllRTFText.Clear;

  while not Table1.EOF do

  begin

     WPRichText1.MergeText;

 

    if i=0 then // FIRST RUN

    begin

        AllRTFText.AsString := WPRichText1.AsString;

        AllRTFText.CPPosition := MaxInt; // to end

    end

    else if i>0 then // SUBSEQUENT RUNS

    begin

        AllRTFText.FastAppendText(WPRichText1,true, [wpCreateNewPage]);

    end;

     Application.ProcessMessages;

     Table1.Next;

     inc(i);

  end;

  finally

    AllRTFText.EndUpdate;

    AllRTFText.ReformatAll(true, true);

    Table1.EnableControls;

  end;