[Delphi] Jak w Delphi policzyć linie w pliku txt i wyświetlić ich ilość?

Question

Witam, Jak sprawdzić ile jest linii zapisanych w pliku txt w delphi? Chciałbym żeby funkcja wyświetlała ich ilość np: showmessage(linii); Nie mogę znaleźć o tym nigdzie:( dzięki!

Konto nie istnieje · Accepted Answer

czy nie powinno byc: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka while not (EOF(zmiennaZUchyuwtemDoPliku) do   ???

BugsdBunny · Accepted Answer

Powinno być tak, jak napisał OLOAM. Dzięki za poprawienie

BugsdBunny · Answer

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkai:=0 while (EOF(zmiennaZUchyuwtemDoPliku) do begin  readln(zmiennaZUchwytemDoPliku);   Inc(i); end; showmessage( IntToStr(i) );

bikemc · Answer

oka działa aż miło pozdro!

szalony123 · Answer

Dobra, to może i ja dorzucę 3 grosze. Kod będzie w c++ ale to też Borland więc zrozumiesz

Jedna sprawa, plik nie może być zbyt duży (powyżej 6MB zaczyna mielić)


TStringList *lst = new TStringList();
lst->LoadFromFile("plik.txt");

::MessageBox(
       0x00,
       IntToStr(lst->Count).c_str(),
       "Ilosc lini",
       MB_ICONINFORMATION|MB_OK
       );

Taaa, to było by na tyle ;P

Moderowany przez Marek_Skalski:
Poniższe posty zostawiam w celach edukacyjnych. Jest to przykład jak nie należy pisać programów. Poprawiłem tekst.

Konto nie istnieje · Answer

Nie za bardzo czaję C, ale z tego co zrozumiałem, to ta metoda nie jest zbyt elegancka. Tworzysz dodatkowy obiekt (typu TStringList), z którego wykorzystujesz tylko jedną własność (no chyba, że w dalszej części programu operujesz na stringach wykorzystując ten obiekt)....

szalony123 · Answer

Pytanie było o Delphi to jest raz...
Dwa, to jest c++ a nie c.
3 ok, zgodzę się z Tobą, teoretycznie masz racje, w praktyce tak się robi, bo jest łatwiej i wygodniej ;] A znając życie kolega będzie chciał coś więcej z tym robić, więc póki co, może z tego korzystać; o ile nie potrzebuje dużej wydajności... :]

Konto nie istnieje · Answer

@szalony123

Nie ma znaczenia jaki to jest jezyk - chodzi o optymalizacje kodu...
W przykladach podanych wyzej wykorzystuje sie tylko zmienna plikowa i zmienna przechowujaca ilosc linijek. U Ciebie tworzony jest obiekt, ktory zawiera pelno funkcji i procedur. Fakt, obecnie komputery posiadaja sporo pamieci i programista nie musi sie martwic o jej zagospodarowanie (a uwierz mi, ze troche dawniej byl z tym problem) i sorry, ale w praktyce w ten sposob robia laicy bojacy sie operowac na funkcjach i procedurach, ktorych nie znaja lub slabo znaja (w tym przypadku plikowych). Nie jestem pewien czy w szkole wykladowca zaliczylby ten sposob (mimo ze pokazuje to co bylo wymagane), nie wspominajac o zatrudnieniu w jakiejs firmie, ktora po czesci utrzymuje sie z pisania programow. Krytykujac Twoj sposob chcialbym poprostu pokazac, ze nie warto isc na latwizne, bo kiedys moze sie okazac, ze to nie rozwiazuje naszego problemu a nie znamy innej drogi, zeby go rozwiazac....

szalony123 · Answer

ee i tu sie mylisz. Tak sie programuje w firmach, po prostu dopoki nie potrzebna jest optymializacja idzie sie w czas.
Co do wykladowcy na wykladzie - daj spokoj,
zmienia slowko struct na class i nazywa to c++. Nie czarujmy sie,
skoro jest obiektowka to nalezy z niej korzystac, jak bedzie trzeba optymalizowac, wtedy nalezy sie martwic...

Zdania rozpoczynamy wielką literą i kończymy kropką. Proszę poprawić wszystkie posty przed napisaniem następnego - krzychoocpp

Zadowolony?

Konto nie istnieje · Answer

Widze, ze nie masz w ogole pojecia... Nawet przy niewielkich programach uzycie nieodpowiedniego obiektu moze skonczyc sie katastrofa w finale, a na optymalizacje moze byc za pozno (za duzo czasu i pracy moze to wymagac) i wtedy lepiej zaczac pisac od nowa. Poza tym, po to jest jezyk obiektowym, zeby opisywac obiekty stworzone do konkretnych celow. A obiekt klasy TStringList raczej nie jest do operacji I/O; przetwarzania plikow. Obrazowo, to wg Twojego rozumowania mozna do samochodu terenowego podczepic plug i jechac orac pole - a co, pewnie pociagnie. Tyle, ze dopoki gladko idzie to jestes zadowolony, ale jezeli wjedziesz na teren bagnisty i ugrzezniesz, to wtedy bedziesz musial sprowadzac traktor, zeby cie wyciagnal... A ja chce Ci uswiadomic, ze mozesz ugrzac tak gleboko, ze traktor nie pomoze. Mozesz pisac "no tak, ale to tylko kawalek prostego porgramiku" z tym, ze podales rozwiazanie, ktore pozniej moze uzytkownik nagminnie stosowac a ono niestety nie jest dobre.

Uzytkownicy zreszta sami osadza, wyciagna wnioski, wybiora sposob i beda pisac programy jak im sie podoba.

Proszę poprawić błędy. Zdania rozpoczynamy wielką literą i kończymy kropką. - krzychoocpp

[Delphi] Jak w Delphi policzyć linie w pliku txt i wyświetlić ich ilość?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Podsumowanie tematu