Otevřít hlavní menu
Delphi & Pascal (česká wiki)
β
Hledat
Změny
← Porovnání se starší verzí
SeekEof
Přidáno 65 bajtů
,
19. 1. 2014, 22:00
bez shrnutí editace
{SeekEof.PAS}
{Vzorový příklad pro SeekEof a SeekEoln.}
{ Pro Windows: }
{ uses WinCrt; }
var
f : Text;
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
[[Category:System]]
[[Category:Funkce System]]
[[Category:Procedury a funkce pro práci s textovými soubory]]
Zdeno Sekerák
Byrokraté
,
Správci
1 578
editací