pascalabcnet/PABCNetHelp/LangGuide/PABCSystemUnit/Files/Subroutines for text files.html
Mikhalkovich Stanislav 3240593d2e Реализован foreach index
Исправлена ошибка for step
Дополнена справка по for step и foreach index
J,yjdkty ntrcnjdsq htlfrnjh? gjlcdtxbdf.obq ыеуз b штвуч rjyntrcnyj d hfvrf[ jlyjq cnhjrb
2022-02-26 12:33:53 +03:00

89 lines
9.1 KiB
HTML

<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
<param name="Keyword" value="Append">
<param name="Keyword" value="Eoln">
<param name="Keyword" value="Flush">
<param name="Keyword" value="OpenAppend">
<param name="Keyword" value="OpenRead">
<param name="Keyword" value="OpenWrite">
<param name="Keyword" value="ReadAllLines">
<param name="Keyword" value="ReadAllText">
<param name="Keyword" value="ReadLines">
<param name="Keyword" value="Reset">
<param name="Keyword" value="Rewrite">
<param name="Keyword" value="SeekEof">
<param name="Keyword" value="SeekEoln">
<param name="Keyword" value="WriteAllLines">
<param name="Keyword" value="WriteAllText">
<param name="Keyword" value="WriteLines"></object>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
</HEAD><body><H1>Ïîäïðîãðàììû äëÿ ðàáîòû ñ òåêñòîâûìè ôàéëàìè</H1>
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> Append(f: Text);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà äîïîëíåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>procedure</b> Append(f: Text; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà äîïîëíåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>procedure</b> Append(f: Text; fileName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ f ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë íà äîïîëíåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>procedure</b> Append(f: Text; fileName: string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ f ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë íà äîïîëíåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>function</b> Eoln(f: Text): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò True, åñëè â ôàéëå äîñòèãíóò êîíåö ñòðîêè</td></tr>
<tr><td><code><b>procedure</b> Flush(f: Text);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàïèñûâàåò ñîäåðæèìîå áóôåðà ôàéëà íà äèñê</td></tr>
<tr><td><code><b>function</b> OpenAppend(fileName: string): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà äîïîëíåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>function</b> OpenAppend(fileName: string; en: Encoding): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà äîïîëíåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>function</b> OpenRead(fileName: string): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà ÷òåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>function</b> OpenRead(fileName: string; en: Encoding): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà ÷òåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>function</b> OpenWrite(fileName: string): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà çàïèñü â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>function</b> OpenWrite(fileName: string; en: Encoding): Text;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêñòîâûé ôàéë ñ èìåíåì fileName, îòêðûòûé íà çàïèñü â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>function</b> ReadAllLines(path: string): <b>array</b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò èç íåãî ñòðîêè â êîäèðîâêå Windows â âèäå ìàññèâà ñòðîê, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>function</b> ReadAllLines(path: string; en: Encoding): <b>array</b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò èç íåãî ñòðîêè â óêàçàíîé êîäèðîâêå â âèäå ìàññèâà ñòðîê, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>function</b> ReadAllText(path: string): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò åãî ñîäåðæèìîå â êîäèðîâêå Windows â âèäå ñòðîêè, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>function</b> ReadAllText(path: string; en: Encoding): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò åãî ñîäåðæèìîå â óêàçàíîé êîäèðîâêå â âèäå ñòðîêè, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>function</b> ReadLines(path: string): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò èç íåãî ñòðîêè â êîäèðîâêå Windows è çàêðûâàåò ôàéë.  êàæäûé ìîìåíò â ïàìÿòè õðàíèòñÿ òîëüêî òåêóùàÿ ñòðîêà</td></tr>
<tr><td><code><b>function</b> ReadLines(path: string; en: Encoding): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò ôàéë, ñ÷èòûâàåò èç íåãî ñòðîêè â óêàçàíîé êîäèðîâêå è çàêðûâàåò ôàéë.  êàæäûé ìîìåíò â ïàìÿòè õðàíèòñÿ òîëüêî òåêóùàÿ ñòðîêà</td></tr>
<tr><td><code><b>procedure</b> Reset(f: Text);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>procedure</b> Reset(f: Text; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>procedure</b> Reset(f: Text; fileName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ f ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â êîäèðîâêå Windows</td></tr>
<tr><td><code><b>procedure</b> Reset(f: Text; fileName: string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ f ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë íà ÷òåíèå â óêàçàííîé êîäèðîâêå</td></tr>
<tr><td><code><b>procedure</b> Rewrite(f: Text);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà çàïèñü â êîäèðîâêå Windows.Åñëè ôàéë ñóùåñòâîâàë - îí îáíóëÿåòñÿ, åñëè íåò - ñîçäàåòñÿ ïóñòîé</td></tr>
<tr><td><code><b>procedure</b> Rewrite(f: Text; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îòêðûâàåò òåêñòîâûé ôàéë íà çàïèñü â óêàçàííîé êîäèðîâêå.Åñëè ôàéë ñóùåñòâîâàë - îí îáíóëÿåòñÿ, åñëè íåò - ñîçäàåòñÿ ïóñòîé</td></tr>
<tr><td><code><b>procedure</b> Rewrite(f: Text; fileName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë f íà çàïèñü â êîäèðîâêå Windows.Åñëè ôàéë ñóùåñòâîâàë - îí îáíóëÿåòñÿ, åñëè íåò - ñîçäàåòñÿ ïóñòîé</td></tr>
<tr><td><code><b>procedure</b> Rewrite(f: Text; fileName: string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñâÿçûâàåò ôàéëîâóþ ïåðåìåííóþ f ñ èìåíåì ôàéëà fileName è îòêðûâàåò òåêñòîâûé ôàéë f íà çàïèñü â óêàçàííîé êîäèðîâêå.Åñëè ôàéë ñóùåñòâîâàë - îí îáíóëÿåòñÿ, åñëè íåò - ñîçäàåòñÿ ïóñòîé</td></tr>
<tr><td><code><b>function</b> SeekEof(f: Text): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïðîïóñêàåò ïðîáåëüíûå ñèìâîëû, ïîñëå ÷åãî âîçâðàùàåò True, åñëè äîñòèãíóò êîíåö ôàéëà</td></tr>
<tr><td><code><b>function</b> SeekEoln(f: Text): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïðîïóñêàåò ïðîáåëüíûå ñèìâîëû, ïîñëå ÷åãî âîçâðàùàåò True, åñëè â ôàéëå äîñòèãíóò êîíåö ñòðîêè</td></tr>
<tr><td><code><b>procedure</b> WriteAllLines(path: string; ss: <b>array</b> <b>of</b> string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêè èç ìàññèâà â êîäèðîâêå Windows, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>procedure</b> WriteAllLines(path: string; ss: <b>array</b> <b>of</b> string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêè èç ìàññèâà â óêàçàííîé êîäèðîâêå, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>procedure</b> WriteAllText(path: string; s: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêó â êîäèðîâêå Windows, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>procedure</b> WriteAllText(path: string; s: string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêó â óêàçàííîé êîäèðîâêå, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>procedure</b> WriteLines(path: string; ss: <b>sequence </b> <b>of</b> string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêè èç ïîñëåäîâàòåëüíîñòè â êîäèðîâêå Windows, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
<tr><td><code><b>procedure</b> WriteLines(path: string; ss: <b>sequence </b> <b>of</b> string; en: Encoding);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò íîâûé ôàéë, çàïèñûâàåò â íåãî ñòðîêè èç ïîñëåäîâàòåëüíîñòè â óêàçàííîé êîäèðîâêå, ïîñëå ÷åãî çàêðûâàåò ôàéë</td></tr>
</table>
</body></HTML>