SeekEoln: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
m (1 revízia: Unit System)
 
Řádek 46: Řádek 46:
 
[[Category:System]]
 
[[Category:System]]
 
[[Category:Funkce System]]
 
[[Category:Funkce System]]
 +
[[Category:Procedury a funkce pro práci s textovými soubory]]

Aktuální verze z 5. 10. 2012, 21:02

Vrací stav "konec řádky" (end-of-line) textového souboru.

Deklarace
function SeekEoln [ (var F: Text) ]: Boolean;
Režim
Windows, Reálný, Chráněný
Poznámky
Lze použít pouze na textové soubory. Soubor musí být otevřený.
Viz také
Eoln
SeekEof


Vzorový příklad

{SeekEof.PAS}
{Vzorový příklad pro SeekEof a SeekEoln.}
{ Pro Windows: }
{ uses WinCrt; }
 var
   f : Text;
   i, j : Integer;
 begin
   Assign(f,'TEST.TXT');
   Rewrite(f);
   { Vytváří soubor s 8 čísly a mezerami na koncích řádků }
   Writeln(f,'1 2 3 4 ');
   Writeln(f,'5 6 7 8 ');
   Reset(f);
   { Čte zpětně čísla.SeekEoln vrací TRUE, jestliže není více čísel na
     právě aktivním řádku; SeekEof vrací TRUE jestliže není další text

(jiný než mezery) v souboru. }

   while not SeekEof(f) do
   begin
     if SeekEoln(f) then
       Readln; { Jdi na další řádek }
     Read(f,j);
     Writeln(j);
   end;
 end.