Lines(Text):Word - funkce
Funkce vrátí zbývající počet řádků od aktuální pozice v proměnné typu Note
Příklad:
LocStr:String; LocW:Word Nt:Note WriteLn(Nt,'ZAČÁTEK') while(LocW<10) begin Inc(LocW) WriteLn(Nt,Str(LocW)) end; WriteLn(Nt,'KONEC') LocStr=ReadLn(Nt) ; LocStr je rovno 'ZAČÁTEK' LocStr=ReadLn(Nt) ; LocStr je rovno '1' LocW=LinesTotal(Nt) ; LocW je rovno 12, protože proměnná Nt nyní obsahuje 12 řádků LocW=Lines(Nt) ; LocW je rovno 10, protože proměnná Nt obsahuje 12 řádků a aktuální pozice je třetí řádek; dva řádky již načteny funkcí ReadLn()