Entwickler-Ecke

Sonstiges (Delphi) - Abfragen wieviele Zeilen in einer Textdatei sind


tmkb - Sa 10.08.02 08:21
Titel: Abfragen wieviele Zeilen in einer Textdatei sind
Hallo,

wie kann ich bei einer (Text)-Datei auslesen wieviele Zeilen sie entählt?
mfg
tmkb


Palmetshofer - Sa 10.08.02 10:15

Hab ein Kleines Proggie mit erlärung geschreiben. Nat. OpenSource !
[Url=http://www.palmetshofer.de.vu/downloads/linecounter/linecounter.exe]Hier[/Url] kannst du das Proggie Downloaden.

mfg Matthias[/url]


tmkb - Sa 10.08.02 16:30

404 ... übrigens: de.vu-domains sind nur weiterleitungen, das heißt der download link, kann gar nicht funktionieren...

Hmm..könntest du mir vielleicht einfach den code hier reinposten? thx


cbs - Sa 10.08.02 16:34

Tag auch

@tmkb: ??? ich konnte das tool einwandfrei downloaden. kein error 404, dis liegt jetzt auf meiner heimischen pladde

PS: ich habs aber net ausprobiert


Palmetshofer - Sa 10.08.02 16:58

Ok der download hier [http://members.tripod.de/palmetshofer/downloads/linecounter/linecounter.exe] müsste funktionieren.

Der ganze Source liegt sowieso bei !!!

P.S.: Ich weis da de.vu nics nur weiterleitungen sind aber ich hab nicht aus die index.html geleitet sondern auf den root order der dann auchtomatisch die index.html aufruft, wenn sonst nichts angegeben ist.


Black Lightning - Sa 10.08.02 19:11

also ich weiss ja nicht ob der download bei dir jetzt geklapt hat, aber falls die Frage noch offen ist:
Text Datei in eine StringListe laden und dann:
Zeilen := StringListe1.count;

mfg
Black Lightning


Palmetshofer - So 11.08.02 12:03

Ich habs mit einem Richedit gemacht!!

Quelltext
1:
Edit1.text := Richedit1.lines.count;                    


mfg Matthias


Black Lightning - So 11.08.02 13:16

in deinem Code fehlt zwar noch ein IntToStr....(Formsache)

Auch wenn sich die anzahl zeilen mit einem RichEdit ebenso gut zählen lassen, denke ich dass es für diese simple Methode übertrieben ist. Und dementsprechend mehr Ressourcen frisst (okok...bei durchschnittlichen 256MB Ram ist das natürlich Korrintenkackerei :D )