Проверка синтаксиса 3
<pre class="brush: delphi">...</pre>
для проверки возможностей скрипта по работе со знаками "<>"
<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;
Скрипт вполне справляется с такими знаками :)
ОтветитьУдалить