imported>Kirillche: save from wiki docs editor

2023-03-10T10:45:06Z

save from wiki docs editor

Новая страница

=== Функции ===
[[/altAwin]]
==== База данных ====
===== DatabaseType =====
DatabaseType (Connection: string): string
Возвращает тип БД.

===== ExecSQL =====
<pre>ExecSQL (SQL: string; Params: IcmDictionary; Connection: string='')</pre>
Выполняет параметризованный запрос.

===== ExecuteSQL [d]=====
<pre>ExecuteSQL (SQL, Connection: string)</pre>
Выполняет SQL-запрос.

===== IsDatabaseConnected=====
<pre>IsDatabaseConnected:Boolean</pre>
Возвращает True при наличии подключения и прав для работы с БД.

===== QueryField [d] =====
<pre>QueryField (SQL, Connection: string):Variant</pre>
Возвращает первое поле из запроса

===== QueryRecord =====
<pre>QueryRecord (SQL: string; Params: IcmDictionary; Connection: string=' '):IcmDictionary</pre>
Возвращает первую запись результата запроса SQL; если результат пуст, возвращается nil

===== QueryRecordList =====
<pre>QueryRecordList (SQL: string; Params: IcmDictionary; Connection: string=' '):IcmDictionaryList</pre>
Возвращает набор записей результата запроса SQL

===== QueryRow [d]=====
<pre>QueryRow (SQL, Connection: string):Variant</pre>
Возвращает первую запись из результата запроса (объект типа Record)

===== QueryTable [d]=====
<pre>QueryTable (SQL, Connection: string):Variant</pre>
Возвращает результат запроса (объект типа List, содержащий объекты типа Record)

===== QueryValue =====
<pre>QueryValue (SQL: string; Params: IcmDictionary; Connection: string=' '):Variant</pre>
Возвращает значение первого поля первой записи результата запроса SQL; если результат пуст, возвращается Unassigned.

==== Ввод/вывод ====
* {{ClsMnu|AnsiToUnicode (FileName: string)}}
* {{ClsMnu|Append (var F:Text)}}
* {{ClsMnu|AssignFile (var F:Text; FileName: string)}}
* {{ClsMnu|CloseFile (var F:Text)}}
* {{ClsMnu|CurrentLanguage: string}}
* {{ClsMnu|DirectoryExists (Directory: string):Boolean}}
* {{ClsMnu|DlgBox (Title,Msg: string; var Buttons: array of string):Integer}}
* {{ClsMnu|Eof (var F:text):Boolean}}
* {{ClsMnu|ExtractFileDir (FileName: string): string}}
* {{ClsMnu|ExtractFileExt (FileName: string): string}}
* {{ClsMnu|ExtractFileName (FileName: string): string}}
* {{ClsMnu|ExtractFilePath (FileName: string): string}}
* {{ClsMnu|FileExists (FileName: string):Boolean}}
* {{ClsMnu|ForceDirectories():Boolean}}
* {{ClsMnu|InputBox (Caption, Promt, Default: string): string}}
* {{ClsMnu|InputQuery (const Caption, Promt: string; var value: string):Boolean}}
* {{ClsMnu|PromptForFileName (var FileName: string; Filter, DefaultExt, Title, InitialDir: string, SaveDialog: boolean):Boolean}}
* {{ClsMnu|Read (var TextFile, V:Variant)}}
* {{ClsMnu|ReadLn (var TextFile, V:Variant)}}
* {{ClsMnu|Reset (var F:Text)}}
* {{ClsMnu|Rewrite (var F:Text)}}
* {{ClsMnu|SelectDirectory(Caption, Root: string; var Directory: string): Boolean}}
*: Открывает диалог выбора папки. Если указан {{ClsMnu|Root}}, то дерево директорий будет начинаться от него. Возвращает ''true'', если пользователь нажал {{ClsMnu|OK}}. Путь помещается в параметр {{ClsMnu|Directory}}.
* {{ClsMnu|ShellExecute (FileName: string; Parameters: string):Boolean}}
* {{ClsMnu|ShowMessage (Msg:Variant)}}

* {{ClsMnu|StreamAdapter (Stream:TStream; Owned:Boolean):Variant}}
* {{ClsMnu|UnicodeToAnsi (FileName: string)}}
* {{ClsMnu|Write (F:Text; P1:Variant; P2:Variant; P3:Variant; P4:Variant; P5:Variant; P6:Variant; P7:Variant; P8:Variant)}}
* {{ClsMnu|WriteLn (F:Text; P1:Variant; P2:Variant; P3:Variant; P4:Variant; P5:Variant; P6:Variant; P7:Variant; P8:Variant)}}

==== Дата и время ====
* {{ClsMnu|Date:TDateTime}}
* {{ClsMnu|DayOfWeek (aDate:TDateTime):Integer}}
* {{ClsMnu|DaysInMonth (nYear, nMonth:Integer):Integer}}
* {{ClsMnu|DecodeDate (Date:TDateTime; var Year, Month, Day:Word)}}
* {{ClsMnu|DecodeTime (Time:TDateTime; var Hour, Min, Sec, MSec:Word)}}
* {{ClsMnu|EncodeDate (Year, Month, Day:Word):TDateTime}}
* {{ClsMnu|EncodeTime (Hour, Min, Sec, MSec:Word):TDateTime}}
* {{ClsMnu|IsLeapYear (Year:Word):Boolean}}
* {{ClsMnu|Now:TDateTime}}
* {{ClsMnu|Time:TDateTime}}

==== Документы ====
===== CreateDocument [d] =====
CreateDocument(DocType: TGUID):Variant

===== CurentUser [d] =====
CurentUser -> IdocEmployee
информация о текущем пользователе {{ifn|IdocEmployee}}

===== OpenDocument [d] =====
OpenDocument(DocType: TGUID, Key: Variant):Variant
Открытие документа
: Для документов, у которых имеется глобально-уникальное поле "код" или "идентификатор" предусмотрена возможность открытия документа не только по первичному ключу, но и по коду/идентификатору:
: {{ClsMnu|Color := OpenDocument(IdocColors, 'yellow')}}
: <syntaxhighlight lang="pascal">var
OrderStage: IdocOrderStage;
begin
OrderStage := OpenDocument(IdocOrderStage, 'сгп');
ShowMessage(OrderStage.Title);
end;</syntaxhighlight>

===== SelectDocument =====
SelectDocument(DocType: TGUID,Caption: string=' ':string, Context: string=' ', Description: string=' '):Variant
Отображение формы выбора документа.

===== SelectDocumentFolder [d] =====
* {{ClsMnu|SelectDocumentFolder(DocType: TGUID, var Folder: string, Caption: string=' ', Description: string=' '):Boolean}}
*: Отображение формы выбора папки документов.

В случае неудачи функции {{ClsMnu|CreateDocument}}, {{ClsMnu|OpenDocument}}, {{ClsMnu|SelectDocument}} возвращают ''NIL''.

==== Конвертирование ====
* {{ClsMnu|DateTimeToStr (e:Extended):String}}
* {{ClsMnu|DateToStr (e:Extended):String}}
* {{ClsMnu|FloatToStr (e:Extended):String}}
* {{ClsMnu|IntToStr (i:Integer):String}}
* {{ClsMnu|StrToDate (s:String):Extended}}
* {{ClsMnu|StrToDateTime (s:String):Extended}}
* {{ClsMnu|StrToFloat (s:String):Extended}}
* {{ClsMnu|StrToInt (s:String):Integer}}
* {{ClsMnu|StrToInt64 (s:String):Integer}}
* {{ClsMnu|StrToTime (s:String):Extended}}
* {{ClsMnu|TimeToStr (e:Extended):String}}
* {{ClsMnu|VarToStr (v:Variant):String}}

==== Математические ====
* {{ClsMnu|Abs (e:Extended):Extended}}
* {{ClsMnu|ArcCos (X:Double):Double}}
* {{ClsMnu|ArcCot (X:Double)}}
* {{ClsMnu|ArcSin (X:Double)}}
* {{ClsMnu|ArcTan (X:Extended):Extended}}
* {{ClsMnu|Cos (e:Extended):Extended}}
* {{ClsMnu|Cot (X:Double):Double}}
* {{ClsMnu|DegToRad (X:Double):Double}}
* {{ClsMnu|Exp (X:Extended):Extended}}
* {{ClsMnu|Frac (X:Extended):Extended}}
* {{ClsMnu|HiByte (W:Word): byte}}
* {{ClsMnu|HiWord (L:Cardinal):Word}}
* {{ClsMnu|Int (e:Extended):Integer}}
* {{ClsMnu|Ln (e:Extended):Extended}}
* {{ClsMnu|LoByte (W:Word):Byte}}
* {{ClsMnu|LoWord (L:Cardinal):Word}}
* {{ClsMnu|MaxValue (Data: array of Double):Double}}
* {{ClsMnu|Mean (Data: array of Double):Double}}
* {{ClsMnu|MinValue (Data: array of Double):Double}}
* {{ClsMnu|Pi:Extended}}
* {{ClsMnu|Power (Base, Exponent:Double):Double}}
* {{ClsMnu|RadToDeg (X:Double):Double}}
* {{ClsMnu|Round (Value e:Extended):Integer}}
* {{ClsMnu|RoundTo (Value:Double;Digit:Integer):Double}}
* {{ClsMnu|Sign (X:Double):Integer}}
* {{ClsMnu|Sin (e:Extended):Extended}}
* {{ClsMnu|Sqrt (e:Extended):Extended}}
* {{ClsMnu|Tan (X:Extended):Extended}}
* {{ClsMnu|Total (Data: array of Double):Double}}
* {{ClsMnu|Trunc (e:Extended):Integer}}

==== Объекты ====
* {{ClsMnu|CopyRecord (V:Variant):Variant}}
* {{ClsMnu|Createservlet (Name: string):Variant}}
* {{ClsMnu|NewList:Variant}}
* {{ClsMnu|NewRecord:Variant}}

==== Прочие ====
* {{ClsMnu|Assert (Condition:Boolean; Message: string='Assertion failed')}}
*: Процедура служит для проверки обязательных условий. Если ''Condition = False'' генерируется исключение с сообщением ''Message''.
* {{ClsMnu|CreateOleObject (ClassName:String):Variant}}
* {{ClsMnu|CombineGUID (GUIDHI, GUIDLO:string): string}}
*: Возвращает правильно оформленный уникальный идентификатор в формате «{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}»; GUIDHI, GUIDLO — строковые представления чисел Int64.
* {{ClsMnu|Dec (var i:Integer; decr:Integer = 1)}}
* {{ClsMnu|Evaluate (Expression: string):Variant}}
*: Функция возвращает значение вычисленного выражения Expression.
* {{ClsMnu|Execute (Expression: string)}}
*: Исполняет код Expression.
* {{ClsMnu|Evaluate2 (Expression: string; Variables: IcmDictionary):Variant}}
* {{ClsMnu|Execute2 (Expression: string; Variables: IcmDictionary)}}
*: Функции {{ClsMnu|Evaluate2}} и {{ClsMnu|Execute2}} отличаются от {{ClsMnu|Evaluate}} и {{ClsMnu|Execute}} наличием возможности передачи в обрабатываемое выражение переменных из словаря:
*: <source lang="pascal" enclose="div">
var
D: IcmDictionary;
begin
ShowMessage(Evaluate2('a/b', MakeDictionary(['a', 1, 'b', 2])));
ShowMessage(Evaluate2('a/b', MakeDictionary(['a', 1, 'b', 3])));

D := MakeDictionary(['a', 1, 'b', 2]);

Execute2('begin' + #13 + 'a := b;' + #13 + 'end.', D);
ShowMessage(D['a']);
end.
</source>
* {{ClsMnu|GenerateGUID:string}}
*: Возвращает новый уникальный идентификатор в формате «{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}»
* {{ClsMnu|GUIDHi(GUID:string):Int64}}
*: Возвращает старшую часть уникального идентификатора, переданного в формате «{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}»
* {{ClsMnu|GUIDLo(GUID:string):Int64}}
*: Возвращает младшую часть уникального идентификатора, переданного в формате «{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}»
* {{ClsMnu|Inc (var i:Integer; incr:Integer=1)}}
* {{ClsMnu|InputBox (ACaption, APromt, ADefault: string): string}}
* {{ClsMnu|InputQuery (ACaption, APromt, ADefault: string; var Value: string):Boolean}}
* {{ClsMnu|MessageDlg (Msg: string; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx:Longint):Integer}}
* {{ClsMnu|RaiseException (Param:String)}}
*: Служит для генерации исключений. Может использоваться, например, в обработчике событий для предотвращения некоторых действий. (см. {{pg|РНА:Обработчики событий}})
* {{ClsMnu|Random:Extended}}
* {{ClsMnu|Randomize}}
* {{ClsMnu|ShowMessage (Msg:Variant)}}
* {{ClsMnu|ValidDate (cDate: string):Boolean}}
* {{ClsMnu|ValidFloat (cFlt:String):Boolean}}
* {{ClsMnu|ValidInt (cInt:String):Boolean}}
* {{ClsMnu|VarArrayCreate (Bounds:Array; Typ:Integer):Variant}}
* {{ClsMnu|VarIsClear (var V:Variant):Boolean}}
*: Returns true if the given variant’s value is undefined. The value can be undefined for any of several reasons:
*:* The Variant may have had its value set to Unassigned.
*:* The Variant’s value may be an interface type that has been set to nil.
*:* The Variant may be a custom variant that returns true from its IsClear method.
*:* In all other cases, the function result is false.
{{ClsMnu|VarType (V:Variant):Integer}}

==== Строки ====
* {{ClsMnu|AnsiToUTF8 (S:string): string}}
* {{ClsMnu|Chr (i:Integer):Char}}
* {{ClsMnu|CompareText (s, s1:string):Integer}}
* {{ClsMnu|ConvertCharSet (SourceCharSet,TargetCharSet,Value: string): string}}
*: Возвращает строку ''Value'', сконвертированную из указанной ''SourceCharSet'' в ''TargetCharSet'' кодировку, [http://www.iana.org/assignments/character-sets]
* {{ClsMnu|ConvertFromCharSet (SourceCharSet,Value: string): string}}
*: Возвращает строку ''Value'', сконвертированную из указанной ''SourceCharSet'' кодировки
* {{ClsMnu|ConvertToCharSet (TargetCharSet,Value: string): string}}
*: Возвращает строку ''Value'', сконвертированную в указанную ''TargetCharSet'' кодировку
*: Пример работы с функциями преобразования кодировок:
*: <source lang="pascal" enclose="div">
var
  s: string;
begin
  s := 'раз... два... три...';
  s := ConvertToCharSet('utf-8', s);
  s := ConvertCharSet('utf-8', 'utf-16', s);
  s := ConvertFromCharSet('utf-16', s);
  ShowMessage(s);
end;</source>

* {{ClsMnu|Copy (s: string; from, count:Integer): string}}
* {{ClsMnu|Delete (var s:String;from, count:Integer)}}
* {{ClsMnu|DeleteStr (var s:String;from, count:Integer)}}
* {{ClsMnu|DecodeURIComponent(const Value: string; const SourceCharSet, TargetCharSet: string): string}}
*: Производит декодирование URL-кодированной строки. Параметр ''SourceCharSet'' указывает исходную кодировку строки ''Value''. Параметр ''TargetCharSet'' указывает кодировку, в которой необходимо получить раскодированное значение. Пустая строка в параметрах ''SourceCharSet'' и ''TargetCharSet'' означает системную кодировку.
* {{ClsMnu|DecodeHTMLSpecialChars(const Value: string; DecodeQuotes: Boolean): string}}
*: Преобразует специальные HTML-сущности обратно в соответствующие символы, при установленном флаге ''DecodeQuotes'' сущность <code>&apos;</code> заменяется на символ апострофа (<code>'</code>).
* {{ClsMnu|EncodeURIComponent(const Value: string; const TargetCharSet, SourceCharSet: string): string}}
*: Производит URL-кодирование строки согласно RFC 3986.
*: ''TargetCharSet'' — кодировка, в которой необходимо получить закодированное значение.
*: ''SourceCharSet'' — исходная кодировка строки Value. Пустая строка в параметрах ''TargetCharSet'' и ''SourceCharSet'' означает системную кодировку)
* {{ClsMnu|EncodeHTMLSpecialChars(const Value: string; EncodeQuotes: Boolean): string}}
*: Преобразует специальные символы в HTML-сущности, при установленном флаге ''EncodeQuotes'' символ символ апострофа (<code>'</code>) заменяется на последовательность <code>&apos;</code>.
* {{ClsMnu|FillDateTimeTemplate (Template: strng; DT:TDateTime): string}}
* {{ClsMnu|FillLeft (var V:Variant; C:String; ToLength:Integer): string}}
* {{ClsMnu|FillRight (var V:Variant; C:String; ToLength:Integer): string}}
* {{ClsMnu|FillTemplate (Template: string; var params: array of Variant): string}}
* {{ClsMnu|GetAttrByName (Source,Name: string): string}}
* {{ClsMnu|Insert (S:string; var S2:string; pos:Integer)}}
* {{ClsMnu|JSONDecode(Value: string)}}
*: Возвращает значение из JSON-представления
*: Пример работы с функцией JSONDecode:
*: <source lang="pascal" enclose="div">
var
S, T: string;
D: IcmDictionary;
begin
S := '{"a":97,"A":65}';

D := IcmDictionary(JSONDecode(S));
ShowMessage('count of names: ' + IntToStr(D.Count));
ShowMessage('a = ' + VarToStr(D['a']));
ShowMessage('A = ' + VarToStr(D['A']));

T := JSONEncode(D);
ShowMessage('original: ' + S + #10#13 + 'recoded: ' + T);
end;</source>

* {{ClsMnu|JSONEncode(var Value: string): string}}
*: Возвращает JSON-представление для значения Value
* {{ClsMnu|TidyJSON(const Value: string): string}}
*: Возвращает отформатированную строку с данными в формате JSON
* {{ClsMnu|Insert (S:string; var S2:string; pos:Integer)}}
* {{ClsMnu|Length (S:variant):Integer}}
* {{ClsMnu|Lowercase (S:string): string}}
* {{ClsMnu|NameCase (S:string): string}}
* {{ClsMnu|Ord (ch: char):Integer}}
* {{ClsMnu|Pos (substr, s: string):Integer}}
* {{ClsMnu|ReplaceStr (AText, AFromText, AToText: string): string}}
* {{ClsMnu|ReplaceText (AText, AFromText, AToText: string): string}}
* {{ClsMnu|SetLength (var S:variant; L:Integer)}}
* {{ClsMnu|StringToColor (S:string):TColor}}
* {{ClsMnu|Transliterate (S:string): string}}
* {{ClsMnu|Trim (S:string): string}}
* {{ClsMnu|Uppercase (S:string): string}}
* {{ClsMnu|UTF8ToAnsi (S:string): string}}

==== Форматирование ====
* {{ClsMnu|Format (Fmt:String; Args: array): string}}
* {{ClsMnu|FormatDateTime (Fmt:String; DateTima:TDateTime): string}}
* {{ClsMnu|FormatFloat (Fmt:String; Value:Extended): string}}
* {{ClsMnu|FormatMaskText (EditMask: string; Value: string): string}}

<noinclude>{{Навигация|Скрипты|Скрипты|Скрипты/Сервисы}}</noinclude>

Руководство по настройке altAwin:Скрипты/Функции - История изменений

imported>Kirillche: save from wiki docs editor