Список служебных слов в 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 какая? Там в последних версиях мелочи какие-то поменять надо.

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

Delphi 7 sp 1.1

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

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

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

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

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