M-am apucat sa-mi fac un program care sa formateze un text in formatul Pascal / Delphi (syntax highlight) ... mai are nevoie de cateva aditii, dar in mare e ok.
Codul e mai jos.
type
TForm1 = class(TForm)
...
procedure SyntaxHighlight(fis : String);
...
private
{ Private declarations }
public
{ Public declarations }
end;procedure TForm1.SyntaxHighlight(fis : String);
var line, i, j, st, P, P1, P2, A1, A2 : integer;
Source, Idents : TStringList;
Delimiters : set of char;
S : String;
Com : Boolean;
begin
Source := TStringList.Create;
Source.LoadFromFile(fis);
Idents := TStringList.Create;
Idents.LoadFromFile('idents.txt');
Delimiters := [#0 .. #255];
Delimiters := Delimiters - ['0' .. '9', 'A'..'Z', 'a'..'z'];
Com := False;
With Source Do
Begin
for line := 0 to Count - 1 Do
Begin
RichEdit1.Lines.Add(Strings[line]);
S := LowerCase(Strings[line]);
St := RichEdit1.SelStart - Length(S) - 2;
if S = ''
then Continue;
if Not Com
then
For i := 0 To Idents.Count - 1 do
Begin
P := Pos(Idents[i], S);
If (P > 0) and ((S[P-1] in Delimiters) or (P = 1))
and ((S[P + Length(Idents[i])] in Delimiters) or (P + Length(Idents[i]) - 1 = Length(S))) Then
Begin
RichEdit1.SelStart := St + P - 1;
RichEdit1.SelLength := Length(Idents[i]);
RichEdit1.SelAttributes.Style := [fsBold];
End;
End;
if Not Com
then
begin
P := Pos ('//', S); {needs polishing}
A1 := Pos ('{', S);
end;
Begin
p2 := 1;
if Not Com
then
repeat
p1 := PosEx('''', S, p2);
p2 := PosEx('''', S, p1 + 1);
if (p1 > 0) and (p2 = 0)
then p2 := Length(S);
if (p1 > 0) Then
Begin
RichEdit1.SelStart := St + p1 - 1;
If p2 > 0
then RichEdit1.SelLength := p2 - p1 + 1
else RichEdit1.SelLength := Length(S) - p1 + 1;
RichEdit1.SelAttributes.Color := $7F0000;
RichEdit1.SelAttributes.Style := [];
End
Else Break;
if (P >= p1) and (P <= p2) Then
Begin
P := 0;
End;
if (A1 >= p1) and (A1 <= p2) Then
Begin
A1 := 0;
End;
if (p1 = 0) or (p2 = 0)
then Break;
p2 := p2 + 1;
until False;
If (P > 0) or (A1 > 0) or Com Then
Begin
if P > 0
then
begin
RichEdit1.SelStart := St + P - 1;
RichEdit1.SelLength := Length(S) - P + 1;
RichEdit1.SelAttributes.Style := [fsItalic];
RichEdit1.SelAttributes.Color := $7F0000;
end;
if (A1 > 0) or Com
then
begin
Com := True;
if A1 = 0
then A1 := 1;
A2 := Pos ('}', S);
If A2 = 0
then A2 := Length(S)
else Com := False;
RichEdit1.SelStart := St + A1 - 1;
RichEdit1.SelLength := A2 - A1 + 1;
RichEdit1.SelAttributes.Style := [fsItalic];
RichEdit1.SelAttributes.Color := $7F0000;
A1 := 0;
end;
End;
End;
End;
End;
RichEdit1.SelStart := 0;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;
end;Pentru a functiona, in directorul programului e nevoie de fisierul idents.txt, al carui continut e mai jos:
absolute abstract and array as asm assembler at automated begin case cdecl class const constructor contains default destructor dispid dispinterface div do downto dynamic else end except export exports external far file finalization finally for forward function goto if implementation implements in index inherited initialization inline interface is label library message mod name near nil nodefault not object of on or out overload override package packed pascal private procedure program property protected public published raise read readonly record register reintroduce repeat requires resident resourcestring safecall set shl shr stdcall stored string then threadvar to try type unit until uses var virtual while with write writeonly xor
In program e nevoie de un TRichEdit denumit RichEdit1 (denumirea standard) pe forma Form1 si mai trebuie doar apelata aceasta procedura cu numele complet al fisierului care trebuie formatat. Aceste lucruri pot fi usor schimbate.
Bineinteles, fisierul idents.txt si codul pot fi modificate pentru a formata texte scrise in alte limbaje. Go for it :)
Bafta
P.S. un screenshot al unor rezultate:
