Uživatelské nástroje

Nástroje pro tento web


lines

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()
lines.txt · Poslední úprava: 2010/04/19 11:09 autor: slim