1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
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
