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ů