zeilen anzahl von text file bestimmen ?

[agm65]

nabend freunde,

ich hatte ne idee, die txt file in eine listbox laden und dann den listbox counter wert nehmen...
aber ich finde das irgendwie lame...hat da einer ne bessere idee ?

thx alot cu agm65

:cheers:

[Luckie]

Nimm eine TStringList.

[Hansa]

Nene, zähle direkt die Textfile-Zeilen. Also "readln" i := i + 1 usw.

[Luckie]

Zitat:

Zitat von Hansa

Nene, zähle direkt die Textfile-Zeilen. Also "readln" i := i + 1 usw.

Und warum sollte er das machen?

[toms]

Google meint:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: string; 
  i: integer; 
  f: textfile; 
  b: array[0..16383] of char; 
  starttime: longint; 
  stop_time: longint; 
begin 
  if opendialog1.execute then 
  begin 
    i := 0; 
    starttime := timegettime; 
    assignfile(f,opendialog1.filen*ame); 
    system.settextbuf(f,b); 
    reset(f); 
    while not(eof(f)) do 
    begin 
      inc(i); 
      readln(f); 
    end; 
    closefile(f); 
    stop_time := timegettime; 
    edit1.text := 'Lines read = '+inttostr(i); 
    str(((stop_time - starttime) / 1000.0):0:3, s); 
    showmessage('Elapsed time = '+s); 
  end; 
end;

[Luckie]

Äh ja. Und?

[agm65]

denke so gehts .....beste lösung wie ich finde, danke luckie und alle anderen !!

Code:

var sl: TStringList;
  zeilennr: integer;
begin
  sl:=TStringList.Create;

  try
    sl.LoadFromFile(''dir\files.txt);  
    for zeilennr:=0 to sl.Count-1 do
     begin
      showmessage(inttostr(sl.count));
    end;
  finally
    sl.free; 
end;

bingo

[marabu]

5-mal nachbearbeitet und dann so ein Ergebnis... was rauchst du, mein Freund?

Delphi-Quellcode:

function LineCount(fileName: string): cardinal;
var 
  sl: TStringList; 
begin 
  sl := TStringList.Create;
  try 
    sl.LoadFromFile(fileName);  
    Result := sl.Count; 
  finally 
    sl.Free; 
  end;
end;

Grüße vom marabu

PS: Bei dem Ansatz sollten die Dateien aber besser nicht zu groß sein...

[agm65]

danke marabu ..kannst du mir schnell bei folgendem problem helfen ?

Code:

listview2.Items[0].SubItems.add(inttostr(sl.count));

dies füllt in die 2te von 3 columns einen wert....ich möchte den wert jetzt aber in der 3ten column angezeugt bekommen ...beim 2ten mal aktivieren der funktion wird die 3te column ausgefüllt, aber ich möchte 2-X direkt ansprechen können....kannste mir helfen ?

[barf00s]

Zitat:

Zitat von marabu

5-mal nachbearbeitet und dann so ein Ergebnis... was rauchst du, mein Freund?

Delphi-Quellcode:

function LineCount(fileName: string): cardinal;

Delphi-Quellcode:

function LineCount(const FileName: string): cardinal;

</klugscheiß>