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 3151 korisnika na forumu :: 40 registrovanih, 2 sakrivenih i 3109 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: bojanstros9, BORUTUS, C-Gun, celik, Clouseau, Dimitrise93, djboj, djuradj, dushan, eulereix, Gligo01, igorpet, ikan, Ikica977, Jakonjveliki, Jeremiah, ladro, laurusri, lcc, Macalone, Marky, Miler88, MountAndBlade, Nemanja Opalić, opt1, orfanel, Ray1973, saputnik plavetnila, SlaKoj, Sone0883, suton, Tafocus, tamno.nebo, tanzanija, uruk, vazduh, Vladimir90, x011, zziko, Šule