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 1216 korisnika na forumu :: 44 registrovanih, 6 sakrivenih i 1166 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: airsuba, asdfjklc, bojankrstc, BORUTUS, boske81, BraneS, dankisha, Djokkinen, doom83, DPera, draganl, dule10savic, Frunze, goxin, ivan1973, ivan979, Još malo pa deda, Kubovac, kybonacci, laurusri, Litostroton, macak44, Marko Marković, Mendonca, Mercury, milenko crazy north, Milos ZA, MiroslavD, Niko Bitan, Parker, pedjolino76, Prašinar, Romibrat, royst33, solic, SR-3m, Steeeefan, uruk, vathra, Vatreni Zmaj, Vlada1389, vladulns, voja64, zlatkoa987