Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

Список служебных слов в Delphi и функция Подсветки синтаксиса!   Найти похожие ветки 

 
mctarik ©   (2006-05-08 10:14) [0]

Здравствуйте уважаемые!
Поздравляю Всех с Праздником Великой Победы!

А теперь вопрос, где можно взять инфу, в точности:
Список Служебных слов в Delphi (Все версии)
Или Линк с хорошей не тормозной функцией
Подсветки Синтаксиса?

Оптимизирую функцию подсветки синтаксиса
Вот что у меня получилось!

Может кто что добавить сможет Массив Служебных слов!

***
function TEditor.CheckListSyntax(InString: string): boolean;
const TheList: array[1..77] of string = (
   "abcolute", "and", "array", "as", "asm",
   "begin", "case", "cdecl", "class", "class;",
   "const", "constructor", "destructor", "div",
   "do", "downto", "else", "end", "end;", "end.",
   "external", "except", "exports", "file", "finally",
   "finalization", "forward", "for", "function", "goto",
   "inline", "if", "inherited", "in", "is", "inherited;",
   "interface", "implementation", "initialization", "label",
   "mod", "nil", "not", "overlay", "of", "or", "on", "pascal",
   "packed", "procedure", "program", "property", "private",
   "public", "published", "raise", "repeat", "record",
   "register", "resourcestring", "safecall", "set",
   "stdcall", "shr", "shl", "string", "try", "then",
   "type", "to", "until", "unit", "uses", "var",
   "with", "while", "xor");
var X: integer;
begin
 Result := false;
 X := 1;
 InString := StringReplace(InString, " ", "", [rfReplaceAll]);
 InString := StringReplace(InString, #$A, "", [rfReplaceAll]);
 InString := StringReplace(InString, #$D, "", [rfReplaceAll]);
 while X < High(TheList) + 1 do
   if TheList[X] = lowercase(InString) then
   begin
     Result := true;
     X := High(TheList) + 1;
   end
   else inc(X);
end;
***

С Уважением mctarik!


 
TUser ©   (2006-05-08 10:27) [1]

Ищи библиотеку SynEdit.


 
mctarik ©   (2006-05-08 11:29) [2]


> TUser ©   (08.05.06 10:27) [1]

Скачал, но при установке вылазиет ошибка типа ... Redeclarated!

В самом архиве нет инструкции по установке!
Как правельно установить данный компонент?


 
TUser ©   (2006-05-08 12:08) [3]

Delphi какая? Там в последних версиях мелочи какие-то поменять надо.


 
mctarik ©   (2006-05-08 13:30) [4]


> TUser ©   (08.05.06 12:08) [3]

Delphi 7 sp 1.1

Пасибо разобрался, надо было в опциях проекта SynEdit_D7 поставить галку:
Designtime and Runtime.

Уже попробовал >>>> Вах! ;)

И тут созрел ещё вопрос, какие цвета использавать  для подсветки
Ассемблерного кода и Строк?

C Уважением mctarik!



Страницы: 1 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
2-1147411039
Валенок
2006-05-12 09:17
2006.05.28
Интернет и курсы валют


5-1132418968
Rav
2005-11-19 19:49
2006.05.28
Массив элементов-объектов в качестве свойства компонента


9-1130842218
zx
2005-11-01 13:50
2006.05.28
Microsoft посадит OpenGL под замок?


15-1146588095
Yegorchic
2006-05-02 20:41
2006.05.28
Объяснительная


2-1147259154
alles
2006-05-10 15:05
2006.05.28
Переполнение типа Byte