Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Список служебных слов в Delphi и функция Подсветки синтаксиса! [D7, XP]

mctarik © (2006-05-08 10:14:00)
Здравствуйте уважаемые!
Поздравляю Всех с Праздником Великой Победы!

А теперь вопрос, где можно взять инфу, в точности:
Список Служебных слов в 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!

mctarik (2006-05-08 13:30:00) [1]

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

Delphi 7 sp 1.1

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

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

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

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

TUser (2006-05-08 12:08:00) [2]
Delphi какая? Там в последних версиях мелочи какие-то поменять надо.

mctarik (2006-05-08 11:29:00) [3]

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

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

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

TUser (2006-05-08 10:27:00) [4]
Ищи библиотеку SynEdit.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »