procedure tsKeyWord
tsSpace
TForm1 tsIdentier
. tsSymbol
FormCreate tsIdentier
( tsSymbol
Sender tsIdentier
: tsSymbol
TObject tsIdentier
); tsSymbol
tsSpace
{Create Form} tsComment
<CR><LF> tsCRLF

How is it Done?

RichEdit.Lines.LoadFromFile

RichEdit.Lines.LoadFromStream

begin NewRichEdit := TRichEdit.Create;

PasCon.Clear; // Prepare the TPasConversion
PasCon.LoadFromFile(FName); // Load the File o the Memory Stream
PasCon.ConvertReadStream; // Convert the stream to RTF format

NewRichEdit.Lines.BeginUpdate;
NewRichEdit.Lines.LoadFromStream(PasCon); // Read from the TPasConversion
NewRichEdit.Lines.EndUpdate

NewRichEdit.Show;

Result := NewRichEdit;

end


EXAMPLE - snippet of code from the NewRichEditCreate(Fname) routine

<SOURCE PASCAL FILE>
|
V
Plain source loaded o memory
(TPasConversion.LoadFromFile)
|
V
Converted ernally by parsing the source file
(ConvertReadStream)
|
V
Result made available
(SetMemoryPoer)
|
V
RichEdit.LoadFromStream

// prepare the Outbuf to a certain default size FOutBuffSize:= size+3;
ReAllocMem(FOutBuff, FOutBuffSize);

// Initialise the parser to its begining state

FTokenState := tsUnknown;
FComment := csNo;
FBuffPos := 0;
FReadBuff := Memory;

// Write leading RTF Header

WriteToBuffer(\'{ tf1ansideff0deftab720{fonttbl{f0fswiss MS SansSer;}
{f1fromanfchar2 Symbol;}{f2fmodern Courier New;}}\'+#13+#10);
WriteToBuffer(\'{colortbl ed0green0lue0;}\'+#13+#10);
WriteToBuffer(\'deflang1033pardplainf2fs20 \');

// Create the INSTREAM (FReadBuff) and tokenize it

Result:= Read(FReadBuff^, Size);
FReadBuff[Result] := #0;

Result > 0 then
begin

Run:= FReadBuff;
TokenPtr:= Run;

while Run^ <> #0 do
begin

Case Run^ of

#13: // Deal with CRLFs
begin
FComment:= csNo;
HandleCRLF;
end;

#1..#9, #11, #12, #14..#32: // Deal with various whitespaces, control codes
begin
while Run^ in [#1..#9, #11, #12, #14..#32] do inc(Run);
FTokenState:= tsSpace;
TokenLen:= Run - TokenPtr;
SetString(TokenStr, TokenPtr, TokenLen);
SetRTF;
WriteToBuffer(Prefix + TokenStr + Postfix);
TokenPtr:= Run;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~ much code removed ~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

end;

end


EXAMPLE - snippet showing the while loop that s up the INSTREAM o recognised tokens

[ Run^ in ... end;]

• s FTokenState to what we believe it is (in this part of the code it is tsSpace which matches any series of Whitespaces)
• the length of the token is calculated by working out how far the current memory poer (Run) has moved since we finished with the last token (TokenPtr).
• the token is then copied from the Input buffer from the starting position of it in the memory buffer (TokenPtr) for the length of the token, o the variable TokenStr.
• ScanForRtf just checks through the resultant TokenStr to ensure it doesn\'t have any funny characters that the RichEdit would confuse as RTF commands. If it finds any, it escapes them out.
• SetRTF looks at the FTokenState to populate two global variables Prefix and Postfix with the appropriate RTF codes to give the token the right Color,Font,Boldness.
• WriteToBuffer than simply puts the TokenStr with the Prefix and Postfix around it o the output buffer, and the loop then continues _disibledevent=>Back to the topic: Syntax Highlighting (on-the-fly)No source code is necessarily 100% applicable to your needs. I was fortunate in that most of the parser applied to my 4GL command syntax (e.g Strings were s, Numbers were numbers, similar Keywords). As well YourPasEditor had implemented most of the basic accessory tasks such as Pring, Find, Find and Replace, Multi-File editing. It was just a matter of adding in the extras I was after.
  
  PROBLEM #1 - No colours or fonts
  
  One task the Parser didn\'t fully implement was Colors or Dferent Fonts, or even fonts sizes. The reason for this (after some trial and error) was that the SetRTF procedure nothing about how to do this. It _disibledevent=>1. procedure SetDelphiRTF(S: String; aTokenState: TTokenState);
  
  Add after the try;
  
  Font.Color := StrToInt(Ed_List[0]);
  
  2. procedure TPasConversion.SetPreAndPosFix
  
  Add after FPreFix[aTokenState] = \';
  
  FPreFixList[aTokenState] := ColorToRtf(aFont.Color);
  
  The ColorToRtf codes is already present, but hadn\'t been used for some reasone. If you try it out you\'ll understand why :-). You get absolutely no change except lots of \';\' in the wrong place.Change the \';\' to \'(space)\' in ColorToRtf, and you get rid of the \';\' appearing in the RichEdit control, but no Colors anyway.
  
  My first thought was that the value in Ed_List[0] didn\'t convert to a proper Font.Color. The easiest way to test this was to hard code Font.Color := clGreen; and see what happens. Again no luck. The format was consistent with the RTF codes I could see in the RTF header. What the $#%#$%# was wrong with it ?
  
  It was about then that I realised I needed a crash course in RTF document structure. For this I rushed off to www.microsoft.com (please forgive me) and found a reference _disibledevent=>What did I do? I went o WordPad (which is just a gloried RichEdit version 2.0 _disibledevent=>
  
  Sorry Borland.
  
  
  
  [查看PDF电子文档] ]]> Delphi教程 2009-02-12 http://CrazyCoder.cn/Delphi/Article11909.html http://CrazyCoder.cn/Delphi/Article11908.html
  
  The Unofficial Newsletter of Delphi Users
  
  by Robert Vivrette
  
  
  

  ---

  Automatic Syntax Highlighting Using a RichEdit Control (Updated with fixes)
  
  Part 1 of \"A Tale of Two RichEdits\"
  
  by Jon Hogan-Doran - jonhd@hotmail.com
  
  Introduction
  
  As a programmer to Delphi, with a history in C, C, Unix shells and a little Awk and Perl, I came to it with a particular goal in mind. I wanted to implement an Editor for a Australian-4GL Databse language called cl4. Having little to no experience in Windows programming, except some dalliance in Powerbuilder and SQLExpress, it seemed a pretty imposing goal.
  
  One is often taught when learning a language to read a few books, tryout the samples and then start some simple coding. Unfortunately I\'m a bit of a sado-masochist, and love to jump in with all 10 fingers (and 10 toes) and try to implement the most dficult parts first, and all at _disibledevent=>The PlanNo-one wants to re-invent the wheel. The whole po of OOP (Object oriented programming) is the reusability of objects. The whole po of the Internet was the reusability of someone \'s object. Luckily I had read enough about these component \"things\" to want to find some more. So I connected up to the Internet and went \"shopping\".
  
  My shopping list:
  1. Internet controls (telnet, remote shell, remote execute, ftp)
  2. Editor with multi-file capabilities
  3. Syntax highlighter or Parser
  4. Automatic Syntax highlighting
  I shopped at:
  • Delphi Super Page
  • Torri\'s page
  • Borland
  • RxLib\'s
  • RzLib\'s
  • QuickReport Homepage
  Within 4 hour I was off the net with a number of goodies, 23 or so assorted controls, programs and Internet suites, (and plenty of stuff that had nothing to do with the current project, but I thought might be of use _disibledevent=> YourPasEdit by D C AL CODA, Ken Hale and Coda Hale
  PasToRTF by Martin Waldenburg (d in above)
  TntClient by Francois Piette (and associated ICS suite)
  RxTools by those great Russian dudes.
  
  
  YourPasEdit was a great find, and its description said it all:
  
  
  There are three features in YourPasEdit. First is the PAS to RTF conversion unit, contained in mwPasToRtf.pas, by Martin Waldenburg. The second shows how to create TabSheets at run time, with a RichEdit. The third are the procedures written by Andrius Adamonis, which allow YourPasEdit to be associated with files and to open those files in the running instance of YourPasEdit, creating a TabSheet and RichEdit for the ly opened file.
  
  
  
  
  Unfortunately it also told me:
  
  
  It is not ended to be a full Delphi file editor, because it does not highlight keywords _disibledevent=>YourPasEdit so you can follow and (more importantly) program along.
  
  
  

  Syntax highlight (YourPasEdit)

  In YourPasEdit, syntax highlighting was done by parsing the plain text file, dividing each line of text o separate \"Tokens\", working out what TokenType each token was, and formatting them based _disibledevent=>
  
  How these tokens were formatted (that is with what Color and Attributes) was determined by using the Delphi 3.0 Editors own tings as they are stored in the Windows Registry. Basically a line of Pascal source such as:
  
  
  
  
  
  procedure TForm1.FormCreate(Sender: TObject); { Create the Form }
  
  
  [查看PDF电子文档] ]]> Delphi教程 2009-02-12 http://CrazyCoder.cn/Delphi/Article11908.html