вторник, 9 июля 2013 г.

Проверка подсветки синтаксиса 3

Проверка синтаксиса 3



<pre class="brush: delphi">...</pre>
для проверки возможностей скрипта по работе со знаками "<>"
//добавляет "\" справа от аргумента при его отсутствии
//полезна при определениях локального пути в программе
//пример вызова fINI := BackSlashRight(ExtractFilePatch(Application.ExeName))+
//                      'config.ini';
function BackSlashRight(aVal: string): string;
begin
  if RightStr(aVal, 1) <> '\' then Result := aVal + '\'
                              else Result := aVal;
end;

//проверка знаков "<=", ">="
//эта функция бесполезна, так писать не надо :)
function TestNum(ANum: integer): string;
begin
  if ANum <= -1 then Result := 'Отрицательное'
  else If ANum >= 1 then Result := 'Положительное' 
       else Result := 'Ноль';   
end;

1 комментарий: