7548142623
SetDecimalSeparator(',')
SetNumberFormat(DecimalSeparator := ',' и куча других параметров)
s.ToReal(nfi)
s.ToReals(nfi)
StrToReal(nfi)
StrToFloat(nfi)
FloatToStr(nfi)
var nfi := NumberFormat(DecimalSeparator := ',')
s.ToReal(DecimalSeparator := ',')
s.ToReals(DecimalSeparator := ',')
StrToReal(DecimalSeparator := ',')
131 lines
11 KiB
HTML
131 lines
11 KiB
HTML
<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="Assert">
|
|
<param name="Keyword" value="ChangeFileNameExtension">
|
|
<param name="Keyword" value="ChDir">
|
|
<param name="Keyword" value="CreateDir">
|
|
<param name="Keyword" value="DeleteFile">
|
|
<param name="Keyword" value="DiskFree">
|
|
<param name="Keyword" value="DiskSize">
|
|
<param name="Keyword" value="Dispose">
|
|
<param name="Keyword" value="EnumerateAllDirectories">
|
|
<param name="Keyword" value="EnumerateAllFiles">
|
|
<param name="Keyword" value="EnumerateDirectories">
|
|
<param name="Keyword" value="EnumerateFiles">
|
|
<param name="Keyword" value="Exec">
|
|
<param name="Keyword" value="Execute">
|
|
<param name="Keyword" value="FileExists">
|
|
<param name="Keyword" value="GetCurrentDir">
|
|
<param name="Keyword" value="GetDir">
|
|
<param name="Keyword" value="GetEXEFileName">
|
|
<param name="Keyword" value="Halt">
|
|
<param name="Keyword" value="Milliseconds">
|
|
<param name="Keyword" value="MillisecondsDelta">
|
|
<param name="Keyword" value="MkDir">
|
|
<param name="Keyword" value="New">
|
|
<param name="Keyword" value="NumberFormat">
|
|
<param name="Keyword" value="ParamCount">
|
|
<param name="Keyword" value="ParamStr">
|
|
<param name="Keyword" value="PascalABCVersion">
|
|
<param name="Keyword" value="PointerToString">
|
|
<param name="Keyword" value="RemoveDir">
|
|
<param name="Keyword" value="RenameDirectory">
|
|
<param name="Keyword" value="RenameFile">
|
|
<param name="Keyword" value="RmDir">
|
|
<param name="Keyword" value="SetCurrentDir">
|
|
<param name="Keyword" value="SetDecimalSeparator">
|
|
<param name="Keyword" value="SetNumberFormat">
|
|
<param name="Keyword" value="Sleep">
|
|
<param name="Keyword" value="TypeName">
|
|
<param name="Keyword" value="TypeToTypeName"></object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
|
|
</HEAD><body><H1>Cèñòåìíûå ïîäïðîãðàììû</H1>
|
|
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> Assert(cond: boolean);</code>
|
|
<br> Âûâîäèò â ñïåöèàëüíîì îêíå ñòåê âûçîâîâ ïîäïðîãðàìì åñëè óñëîâèå íå âûïîëíÿåòñÿ</td></tr>
|
|
<tr><td><code><b>procedure</b> Assert(cond: boolean; message: string);</code>
|
|
<br> Âûâîäèò â ñïåöèàëüíîì îêíå äèàãíîñòè÷åñêîå ñîîáùåíèå è ñòåê âûçîâîâ ïîäïðîãðàìì åñëè óñëîâèå íå âûïîëíÿåòñÿ</td></tr>
|
|
<tr><td><code><b>function</b> ChangeFileNameExtension(fileName, newExt: string): string;</code>
|
|
<br> Èçìåíÿåò ðàñøèðåíèå ôàéëà ñ èìåíåì fileName íà newExt</td></tr>
|
|
<tr><td><code><b>procedure</b> ChDir(dirName: string);</code>
|
|
<br> Ìåíÿåò òåêóùèé êàòàëîã</td></tr>
|
|
<tr><td><code><b>function</b> CreateDir(dirName: string): boolean;</code>
|
|
<br> Ñîçäàåò êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî ñîçäàí</td></tr>
|
|
<tr><td><code><b>function</b> DeleteFile(fileName: string): boolean;</code>
|
|
<br> Óäàëÿåò ôàéë. Åñëè ôàéë íå ìîæåò áûòü óäàëåí, òî âîçâðàùàåò False</td></tr>
|
|
<tr><td><code><b>function</b> DiskFree(diskName: string): int64;</code>
|
|
<br> Âîçâðàùàåò ñâîáîäíîå ìåñòî â áàéòàõ íà äèñêå ñ èìåíåì diskname</td></tr>
|
|
<tr><td><code><b>function</b> DiskFree(disk: integer): int64;</code>
|
|
<br> Âîçâðàùàåò ñâîáîäíîå ìåñòî â áàéòàõ íà äèñêå disk. disk=0 - òåêóùèé äèñê, disk=1 - äèñê A: , disk=2 - äèñê B: è ò.ä.</td></tr>
|
|
<tr><td><code><b>function</b> DiskSize(diskName: string): int64;</code>
|
|
<br> Âîçâðàùàåò ðàçìåð â áàéòàõ íà äèñêå ñ èìåíåì diskname</td></tr>
|
|
<tr><td><code><b>function</b> DiskSize(disk: integer): int64;</code>
|
|
<br> Âîçâðàùàåò ðàçìåð â áàéòàõ íà äèñêå disk. disk=0 - òåêóùèé äèñê, disk=1 - äèñê A: , disk=2 - äèñê B: è ò.ä.</td></tr>
|
|
<tr><td><code><b>procedure</b> Dispose<T>(<b>var</b> p: ^T);</code>
|
|
<br> Îñâîáîæäàåò äèíàìè÷åñêóþ ïàìÿòü, íà êîòîðóþ óêàçûâàåò p</td></tr>
|
|
<tr><td><code><b>function</b> EnumerateAllDirectories(path: string): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí êàòàëîãîâ ïî çàäàííîìó ïóòè, âêëþ÷àÿ ïîäêàòàëîãè</td></tr>
|
|
<tr><td><code><b>function</b> EnumerateAllFiles(path: string; searchPattern: string := '*.*'): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí ôàéëîâ ïî çàäàííîìó ïóòè, ñîîòâåòñòâóþùèõ øàáëîíó ïîèñêà, âêëþ÷àÿ ïîäêàòàëîãè</td></tr>
|
|
<tr><td><code><b>function</b> EnumerateDirectories(path: string): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí êàòàëîãîâ ïî çàäàííîìó ïóòè</td></tr>
|
|
<tr><td><code><b>function</b> EnumerateFiles(path: string; searchPattern: string := '*.*'): <b>sequence </b> <b>of</b> string;</code>
|
|
<br> Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí ôàéëîâ ïî çàäàííîìó ïóòè, ñîîòâåòñòâóþùèõ øàáëîíó ïîèñêà</td></tr>
|
|
<tr><td><code><b>procedure</b> Exec(fileName: string);</code>
|
|
<br> Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName</td></tr>
|
|
<tr><td><code><b>procedure</b> Exec(fileName: string; args: string);</code>
|
|
<br> Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName è ïàðàìåòðàìè êîìàíäíîé ñòðîêè args</td></tr>
|
|
<tr><td><code><b>procedure</b> Execute(fileName: string);</code>
|
|
<br> Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName</td></tr>
|
|
<tr><td><code><b>procedure</b> Execute(fileName: string; args: string);</code>
|
|
<br> Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName è ïàðàìåòðàìè êîìàíäíîé ñòðîêè args</td></tr>
|
|
<tr><td><code><b>function</b> FileExists(fileName: string): boolean;</code>
|
|
<br> Âîçâðàùàåò True, åñëè ôàéë ñ èìåíåì fileName ñóùåñòâóåò</td></tr>
|
|
<tr><td><code><b>function</b> GetCurrentDir: string;</code>
|
|
<br> Âîçâðàùàåò òåêóùèé êàòàëîã</td></tr>
|
|
<tr><td><code><b>function</b> GetDir: string;</code>
|
|
<br> Âîçâðàùàåò òåêóùèé êàòàëîã</td></tr>
|
|
<tr><td><code><b>function</b> GetEXEFileName: string;</code>
|
|
<br> Âîçâàùàåò èìÿ çàïóùåííîãî .exe-ôàéëà</td></tr>
|
|
<tr><td><code><b>procedure</b> Halt(exitCode: integer);</code>
|
|
<br> Çàâåðøàåò ðàáîòó ïðîãðàììû, âîçâðàùàÿ êîä îøèáêè exitCode</td></tr>
|
|
<tr><td><code><b>procedure</b> Halt;</code>
|
|
<br> Çàâåðøàåò ðàáîòó ïðîãðàììû</td></tr>
|
|
<tr><td><code><b>function</b> Milliseconds: integer;</code>
|
|
<br> Âîçâðàùàåò êîëè÷åñòâî ìèëëèñåêóíä ñ ìîìåíòà íà÷àëà ðàáîòû ïðîãðàììû</td></tr>
|
|
<tr><td><code><b>function</b> MillisecondsDelta: integer;</code>
|
|
<br> Âîçâðàùàåò êîëè÷åñòâî ìèëëèñåêóíä ñ ìîìåíòà ïîñëåäíåãî âûçîâà Milliseconds èëè MillisecondsDelta èëè íà÷àëà ïðîãðàììû</td></tr>
|
|
<tr><td><code><b>procedure</b> MkDir(dirName: string);</code>
|
|
<br> Ñîçäàåò êàòàëîã</td></tr>
|
|
<tr><td><code><b>procedure</b> New<T>(<b>var</b> p: ^T);</code>
|
|
<br> Âûäåëÿåò äèíàìè÷åñêóþ ïàìÿòü ðàçìåðà sizeof(T) è âîçâðàùàåò â ïåðåìåííîé p óêàçàòåëü íà íåå. Òèï T äîëæåí áûòü ðàçìåðíûì</td></tr>
|
|
<tr><td><code><b>function</b> NumberFormat(DecimalSeparator: string := '.'; GroupSeparator: string := ',');</code>
|
|
<br> Ñîçäà¸ò íàñòðîéêè ôîðìàòèðîâàíèÿ ÷èñëîâûõ çíà÷åíèé</td></tr>
|
|
<tr><td><code><b>function</b> ParamCount: integer;</code>
|
|
<br> Âîçâðàùàåò êîëè÷åñòâî ïàðàìåòðîâ êîìàíäíîé ñòðîêè</td></tr>
|
|
<tr><td><code><b>function</b> ParamStr(i: integer): string;</code>
|
|
<br> Âîçâðàùàåò i-òûé ïàðàìåòð êîìàíäíîé ñòðîêè</td></tr>
|
|
<tr><td><code><b>function</b> PascalABCVersion: string;</code>
|
|
<br> Âîçâðàùàåò âåðñèþ PascalABC.NET</td></tr>
|
|
<tr><td><code><b>function</b> PointerToString(p: pointer): string;</code>
|
|
<br> Ïðåîáðàçóåò óêàçàòåëü ê ñòðîêîâîìó ïðåäñòàâëåíèþ</td></tr>
|
|
<tr><td><code><b>function</b> RemoveDir(dirName: string): boolean;</code>
|
|
<br> Óäàëÿåò êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî óäàëåí</td></tr>
|
|
<tr><td><code><b>function</b> RenameDirectory(dirName, newDirName: string): boolean;</code>
|
|
<br> Ïåðåèìåíîâûâàåò êàòàëîã dirName, äàâàÿ åìó íîâîå èìÿ newDirName. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî ïåðåèìåíîâàí</td></tr>
|
|
<tr><td><code><b>function</b> RenameFile(fileName, newfileName: string): boolean;</code>
|
|
<br> Ïåðåèìåíîâûâàåò ôàéë fileName, äàâàÿ åìó íîâîå èìÿ newfileName. Âîçâðàùàåò True, åñëè ôàéë óñïåøíî ïåðåèìåíîâàí</td></tr>
|
|
<tr><td><code><b>procedure</b> RmDir(dirName: string);</code>
|
|
<br> Óäàëÿåò êàòàëîã</td></tr>
|
|
<tr><td><code><b>function</b> SetCurrentDir(dirName: string): boolean;</code>
|
|
<br> Óñòàíàâëèâàåò òåêóùèé êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî óäàëåí</td></tr>
|
|
<tr><td><code><b>procedure</b> SetDecimalSeparator(sep: string);</code>
|
|
<br> Óñòàíàâëèâàåò ðàçäåëèòåëü ìåæäó öåëîé è äðîáíîé ÷àñòüþ â âåùåñòâåííûõ çíà÷åíèÿõ</td></tr>
|
|
<tr><td><code><b>procedure</b> SetNumberFormat(DecimalSeparator: string := '.'; GroupSeparator: string := ',');</code>
|
|
<br> Óñòàíàâëèâàåò ïàðàìåòðû ÷èñëîâîãî ôîðìàòà</td></tr>
|
|
<tr><td><code><b>procedure</b> Sleep(ms: integer);</code>
|
|
<br> Äåëàåò ïàóçó íà ms ìèëëèñåêóíä</td></tr>
|
|
<tr><td><code><b>function</b> TypeName(obj: object): string;</code>
|
|
<br> Âîçâðàùàåò ñòðîêó ñ èìåíåì òèïà îáúåêòà</td></tr>
|
|
<tr><td><code><b>function</b> TypeToTypeName(t: System.Type): string;</code>
|
|
<br> Âîçâðàùàåò ñòðîêó ñ èìåíåì äàííîãî òèïà</td></tr>
|
|
</table>
|
|
</body></HTML> |