Duzina txt fajla

Duzina txt fajla

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.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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



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.

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.

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

Ko je trenutno na forumu
 

Ukupno su 1006 korisnika na forumu :: 33 registrovanih, 2 sakrivenih i 971 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., babaroga, Ben Roj, bigfoot, bojank, Bubili, Darkhunter, Dimitrije Paunovic, DonRumataEstorski, draganl, Georgius, HogarStrashni, ILGromovnik, ivica976, kikisp, kovinacc, Kubovac, kybonacci, Magistar78, milenko crazy north, Milos ZA, nenooo, Outis, Panonsky, panzerwaffe, pein, Shilok, sickmouse, slonic_tonic, Smd, sovanova95, vaso1, Vlad000