Главная страница
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.067 c
15-1146317340
Yegorchic
2006-04-29 17:29
2006.05.28
"Программы, написанные на языках программирования"


3-1144404814
Russ
2006-04-07 14:13
2006.05.28
запрос для выбора данных из двух БД


15-1146719163
Логин
2006-05-04 09:06
2006.05.28
Выбор винта????


2-1147263208
VOIDER
2006-05-10 16:13
2006.05.28
вызов процедуры из dpr


4-1141287337
som
2006-03-02 11:15
2006.05.28
версия Windows