Skriptovací jazyk - funkce

Funkce	Popis
Function DelAll(s: String) : String	Ve skriptovacím programovacím jazyku jsou k dispozici funkce zajišťující kompatibilitu s množinou funkcí dostupnou v rámci vyhodnocování výrazů v jiných částech programu (např. generátor sestav,filtrování pomocí výběrových podmínek). Syntaxe je stejná nebo obdobná.
Function DelLeft(s: String) : String
Function DelRight(s: String) : String
Function EnumStr(s: String; Index: integer; Delimiter:Char = '/‘) : String
Function GetVar(VarName: String) : String
Function Left(s: String; Count: Integer) : String
Function Len(s: String) : Integer
Function Mid(s: String; Index, Count: Integer) : String
Function PosUp(SubStr, Source: String) : Integer
Procedure SetVar(Name: String; Value: Variant)
Function Str(Num: Extended; Size, Decimal: integer) : String
Function Right(s: String; Count: Integer) : String
Function Using(s: String, Size: Integer) : String
Function Val(s: String) : Extended
Function WinFmt(s: String) : String
Function DateValue(Datum: String):Integer
Function DV(Datum: String):Integer
Function StrDate(Datum: Integer):String
Function Abs(e: Extended): Extended
Function Trim(s: String): String
Function Conv(s: String; CP: Byte) : String	Převede text v kódování Windows do jiné kódové stránky. Hodnoty pro CP:
	0	ASCII
	1	Kamenický (CP 895)
	2	ASCII2 (ASCII s rámečky)
	3	LATIN2 (CP 852)
	4	Windows 1250
Function Date: TDateTime	Vrací hodnotu aktuálního data (jako číslo).
Function Time: TDateTime	Vrací hodnotu aktuálního času (jako číslo).
Function Now: TDateTime	Vrací hodnotu aktuálního data a času (jako číslo).
Function IfS(Condition: Boolean; IfTrue, IfFalse: String) : String	Funkce vyhodnotí podmínku, pokud bude hodnota True, tak vrátí text z parametru IfTrue, při False vrátí text z IfFalse. Parametry IfTrue, IfFalse i výsledek funkce jsou typu string
Function IfL(Condition: Boolean; IfTrue, IfFalse: Integer) : Integer	Funkce vyhodnotí podmínku, pokud bude hodnota True, tak vrátí číslo z parametru IfTrue, při False vrátí číslo z IfFalse. Parametry IfTrue, IfFalse i výsledek funkce jsou typu celé číslo.
Function IniReadString(Sekce: String; Promenna: Byte; TestUzivatel: Boolean; Sklad: integer; Default: String): String	vrací textovou hodnotu proměnné z CISELNIK.BTR (číselník 161)
Function IniWriteString(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Hodnota: String): Boolean	zapisuje hodnotu proměnné (TestUzivatel=true: platí jen pro akt.uživatele; Sklad=0:platí pro všechny sklady)
Function IniReadInteger(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Default: integer): integer	vrací číselnou hodnotu proměnné
Function IniWriteInteger(Sekce : String; Promenna : Byte; TestUzivatel: Boolean; Sklad: integer; Hodnota: integer): Boolean	zapisuje číselnou hodnotu proměnné
Procedure LogWrite(Msg : String)	zapisuje informaci Msg do textového logu aplikace
Function FileExists(FileName: String): Boolean	Testuje, jestli soubor specifikovaný parametrem FileName existuje
Function FileAge(FileName: string): TDateTime	Vrací datum a čas poslední změny souboru nebo zápornou hodnotu, pokud soubor neexistuje
Function DeleteFile(FileName: string): Boolean	Smaže soubor FileName z disku
Function RemoveDir(Dir: string): Boolean	Smaže neprázdnou složku Dir z disku
Function DirectoryExists(Dir: String):String	Testuje, jestli složka specifikovaná parametrem Dir existuje
Function CreateDir(Dir: string): Boolean	Vytvoří složku specifikovanou parametrem Dir
Function RenameFile(OldName: string; NewName: string): Boolean	Přejmenuje soubor OldName na soubor NewName
Function ExtractFileName(FileName: String):String	Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen jméno souboru včetně přípony
Function ExtractFileExt(FileName: String):String	Z textového parametru FileName obsahujícího celé jméno souboru vrátí jen příponu souboru včetně případné tečky
Function ChangeFileExt(FileName, NewExt: String):String	Funkce vezme textového parametru FileName obsahujícího celé jméno souboru a vrátí jméno souboru , ve kterém je nahrazena přípona souboru dle přípony určené parametrem NewExt. Parametr NewExt může obsahovat počáteční tečku. Funkce nepřejmenovává samotný soubor, jen vrací text obsahující jméno souboru se změněnou příponou.
Function SetCurrentDir(Dir: string): Boolean	Nastaví aktuální pracovní adresář podle parametru Dir
Function GetCurrentDir: string	Vrací aktuální pracovní adresář
Function GetEnvironmentVariable(Name: string): string	Vrací hodnotu proměnné Name z prostředí
Function ParamStr(Index: Integer): string	Vrací parametr ze seznamu parametrů určených při spouštění programu
Function ParamCount: Integer	Vrací počet parametrů v seznamu parametrů určených při spouštění programu
Function RunExternalCommand(CmdLine: String; WaitToEnd: Boolean = False; CurrentDirectory: String = ' '; AppName: String = ' ' ): Cardinal	Funkce spustí externí aplikaci (s případnými parametry) určenou parametrem CmdLine pomocí CreateProcess. Pokud je parametr WaitToEnd nastaven na true, tak program čeká na dokončení externí aplikace.
Function GSRunReport(SkupinaSestav : Integer; SestavaCislo : Integer; Parametry: String): String;	Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou složeny v jednom textovém parametru.
Function GSRunReportV(SkupinaSestav : Integer; SestavaCislo : Integer; JmenaParametru: Array of String; Hodnoty: array of Variant): String;	Funkce spustí určenou sestavu z generátoru sestav. Parametry sestavy jsou předávány formou seznamu jmen proměnných a druhého seznamu obsahující odpovídající hodnoty proměnných.
Function SendMailBySMTP(From, SendTo, FileAttach, Subject, SMTPServer, SMTPSenderName, SMTPPassword, BodyString : String; var ErrMessage : String) : Boolean;	Funkce pošle e-mail na určenou adresu pomocí protokolu SMTP
Function MsgDlg(AText, ACaption: String; DlgType: TMsgDlgType; Buttons: Integer; btnCaptions: String = ' '): TModalResult;	zobrazí dialog s jedním nebo více tlačítky
Function CreateADOConnectionStringDlg(ConnectionString: String): String;	zobrazí dialog pro nastavení ConnectionString v databázovém prostředí ADO
Function GetAppBaseRegistryKey: String;	vrací základní klíč aplikace, ve kterém jsou ukládány vybrané parametry (v registru Windows)
Function BtrBeginTransaction: Boolean;	Zahájí transakci (pro práci s BTR tabulkami). Každá transakce musí být ukončena pomocí BtrEndTransaction nebo BtrAbortTransaction.
Procedure BtrEndTransaction;	ukončí transakci a potvrdí změny (pro práci s BTR tabulkami)
Procedure BtrAbortTransaction;	zruší transakci a případné změny od zahájení transakce vrátí zpět (pro práci s BTR tabulkami)
Function MatchMask(Mask, Data: string): Boolean;	vrací hodnotu True, pokud textový řetězec Data vyhovuje masce specifikované řetězcem Mask, jinak vrací hodnotu False. Rozlišují se malá a velká písmena, diakritika i mezery na začátku nebo na konci textu. Maska může obsahovat speciální znaky: znak * pro označení skupiny libovolných znaků (včetně prázdného textu) a znak ? pro označení právě jednoho znaku. Příklady: MatchMask('*black', Nazev) bude vracet True pro Nazev končící slovem black, MatchMask("*black*white*", Nazev) bude vracet 1 pokud Nazev bude obsahovat slovo black následované slovem white, MatchMask("???black*", Nazev) bude vracet True pokud Nazev má na čtvrté pozici počínaje slovo black a končí libovolným textem.
Function MatchMasks(Masks, Data: string): integer;	První parametr Masks musí být vyplněn seznamem masek, jimž má vyhovovat údaj Data. V parametru Masks lze použít znaky * jako zástupný znak pro libovolnou skupinu znaků, znaky ? jako zástupný znak pro právě jeden znak. Lze použít současně více masek. V tom případě je nutné jednotlivé masky oddělit znakem /. Pokud maska začíná znakem !, tak se chápe jako negativní maska (čili pokud údaj Data vyhovuje této negativní masce, tak je celý výraz vyhodnocen jako nevyhovující. Funkce vrací jako výsledek pořadí masky (číslováno od 0), které vyhovuje Data. Funkce vrací záporné číslo pokud žádná maska nevyhovuje (popř. vrací záporné pořadí negativní masky - číslováno od -2).
Function StringReplace(S, OldPattern, NewPattern: String; ReplaceAll: Boolean = true; IgnoreCase: Boolean = true):String	funkce umožňuje nahrazení jednoho subřetězce jiným řetězcem znaků: