==== LinesTotal ==== **LinesTotal(Text):Word** // - funkce// Funkce vrátí počet řádků v proměnné typu Note\\ \\ * __Text__: proměnná typu Note\\ \\ //Příklad://\\ LocW:Word Nt:Note WriteLn(Nt,'ZAČÁTEK'); while(LocW<10) begin Inc(LocW) WriteLn(Nt,Str(LocW)) end; WriteLn(Nt,'KONEC'); LocW=LinesTotal(Nt) ; LocW je rovno 12, protože proměnná Nt nyní obsahuje 12 řádků