MyCity » Pascal -> Delphi » Duzina txt fajla

Duzina txt fajla

Napisano na dan: 23.7.2006

Duzina txt fajla
Sledeća strana Pagination

Idi na vrh

Poslao: 23 Jul 2006 08:58
Idi na vrh
offline
  • Pridružio: 05 Maj 2005
  • Poruke: 84
  • Gde živiš: Cirikovac

Kako da saznam broj linija zapisa u txt fajlu?
Zahvalan



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 23 Jul 2006 10:08
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Jedino da ga ucitas, pa da nakon toga izbrojis linije.



Poslao: 23 Jul 2006 10:25
Idi na vrh
offline
  • Pridružio: 05 Maj 2005
  • Poruke: 84
  • Gde živiš: Cirikovac

Hvala,ali i ja sam to isto uradio.Mislio sam da postoji nesto drugo.Da li je ovo dobro:
var   i:integer; begin    i:=0;    Nit:=MyTread.Create(true);    AssignFile(F,dgOpen.FileName);    Reset(F);    while not Eof(f) do begin    Readln(F,sLine);    Inc(i);    end; ------------------------------------    while not Eof(F) do begin    Nit.FreeOnTerminate:=true;    ReadLn(F,sLine);    Nit.Resume;    end;
Podrazumeva se da sam napravio i drugi unit sa Synchronize metodom threda,ali se u prvoj formi(koja je povezana u uses sekciji) ne osvezava status bar koji broji redove.

Poslao: 23 Jul 2006 10:28
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Evo ti brzi metod:
var   lista: TStringList;   broj_redova: integer; begin   lista := TStringList.create;   lista.LoadFromFile(filename);   broj_redova := lista.count;   lista.free; end;

Pisao sam iz glave, pa mozda ima neka greska.

Poslao: 23 Jul 2006 16:22
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Nema greske Bobby, fali ti samo TRY ispod .create i finally / end na lista.free.
Very Happy

MyCity » Pascal -> Delphi » Duzina txt fajla

Ko je trenutno na forumu
 

Ukupno su 918 korisnika na forumu :: 80 registrovanih, 7 sakrivenih i 831 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 10x10.9, Ailton, aleph_one, alex71, Alexandar-1973, Apok, Asparagus, bankulen, blankspace, bobomicek, Bobrock1, bokicacar, Borski1977, Boskovic, Botovac, boxbole, Dannyboy, dejan.7951, dendrit86, Despot Đurađ, Djokislav, Doca, dolinalima, DragoslavS, drimer, Electron, esko_hz, Gitzherai, Gogi do, Great White, GT, igorkozar83, igorpet, ivan979, Kajzer Soze, kolle.the.kid, kybonacci, Laki71, Mae, Magarac, Mane88, Manjane, Mcdado, mdp92, medaTT, mercedesamg, mikrimaus, milenko crazy north, Miler88, MountAndBlade, Mrav Obrad, Mzee, Ne doznajem se u oružje, nelezele, nenad81, nenooo, nisamBot, nixos, obsc, OKT, Orc, Paklenica, Parker, pds, Peruta, Pilence, redstar011, Shajlok, skok, Spreewerk, sspp, Stevan2026, tritonus, Tumansky, vaci, vathra, vidra1, vladao75, Vrač, Zoca