type
TMyArrayOfChar = array [1..100] of Char;
var
source: TMyArrayOfChar;
...
function isTagCode(var source: TMyArrayOfChar): boolean;
...
Наследование позволяет создавать классы, которые расширяют функциональность или изменяют поведение уже существующих классов.
Licensed for use until your individual revenue from Delphi applications or company revenue reaches $5,000 US or your development team expands to more than 5 developers
Raise(Exception.Create('generic error'));
Хм, первый раз встречаю такую запись. Это точно Delphi? Обычно пишут так:
raise Exception.Create('generic error');