==== Lines ==== **Lines(Text):Word** // - funkce// Funkce vrátí zbývající počet řádků od aktuální pozice v proměnné typu Note\\ \\ * __Text__: 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()