Код подсветки ключевых слов для Delphi и Assemblera

Posted by Chas under Delphi, Исходники

function TForm1.CheckList(InString: string): boolean;

const

  PasOp: array[1..40] of string=('procedure','function','begin','end;',

  'end','end.','if','then','else','for','to','do','while','repeat','until',

  'and','or','not','var','const','unit','interface','uses','type',

  'class','private','public','implementation','case','string','array',

  'of','in','override','inherited','xor','goto','with','as','asm');

 //задается массив ключевых слов Delphi

var

  X: integer;

begin

  Result:=false;

  X:= 1;

  InString:=StringReplace(InString,' ','',[rfReplaceAll]);

//Очищаем InString от пробелов

  InString:=StringReplace(InString,#$A,'',[rfReplaceAll]);

//Очищаем InString от символов перевода коретки

  InString:=StringReplace(InString,#$D,'',[rfReplaceAll]);

//Очищаем InString от символа перехода на следующую строку (Enter)

//Все очищения необходимы что бы получить в InString  чистое слово

//которое может входить в массив PasOp
  while X1

          //если позиция курсора не нулевая то:

          then

            begin

              WStart:=0; //задали начало выделения (нулевая позиция)

              WEnd:=RichEdit1.SelStart;

//задали конец выделения(текущая позиция курсора)

              BCount:=WEnd-1;

//задаём счётчик для следующего цикла

              while BCount<>0 do

                begin

                  Mark:=copy(RichEdit1.Text,BCount,1);

                  if (Mark=' ')or(Mark=#$A)

                    then

                      begin

                        WStart := BCount;

                        BCount := 1;

                      end;

                  dec(BCount);

                end;

//данным циклом выделили позиции начала и конца того слова

//которое только что ввели

              RichEdit1.SelStart:=WEnd-(WEnd-WStart);

              RichEdit1.SelLength:=WEnd-WStart;

//выделил слово которое только что ввели

              if CheckList(RichEdit1.SelText)

//если при выполнении функции CheckList,

//InString которого = RichEdit1.SelText

//получаем true то:

                then

                  RichEdit1.SelAttributes.Style:=[fsBold];

              if CheckList2(RichEdit1.SelText)

                then

                  begin

                    RichEdit1.SelAttributes.Style:=[fsBold];

                    RichEdit1.SelAttributes.Color:=clBlue;

                  end;

//в общем при выполнении предыдущих If слова из delphi выделяются

//жирным, а асм жирным и синим

              RichEdit1.SelStart:=WEnd;

              RichEdit1.SelAttributes.Color:=clBlack;

              RichEdit1.SelAttributes.Style:=[];

//переместили курсор в конец введённого (проверяемого) слова и

//сделали последующий текст обычным

            end;

      end;

end;

Так же есть процедура для кнопки которая проверяет синтаксис.

тема на форуме

Похожие статьи

• Подсветка кода в RichEdit