Datei laden un Zeilen zählen

[Nugi89]

hallo Leute,
hab ein neues Problem:
- ich lade mir mittels OpenDialog den Dateipfad in ein Editfeld, das funktioniert ja
- anschließend möchte ich nun die Zeilen zählen, was wiederum nicht funktioniert

Hier mal der Code

Code: Alles auswählen

procedure TForm1.Bt_CountClick(Sender: TObject);
var
  anzahl : integer;
  path: string;
  datei: TStringList;
begin
  datei:= StringList.Create;
  path:= Edit_Path.Text;
  datei.LoadFromFile(path);  //an der Stelle steigt er aus
 
  for anzahl:=0 to datei.Count -1 do
  begin
    anzahl:= anzahl +1;
  end;
 
  Edit_Anzahl.Text:= IntToStr(anzahl);
end;

Habe schon einige adere Varianten probiert und ja.... nix klappt
Ich hoffe mir mag jemand helfen

Danke schon mal Vorweg für die Hilfe.

[m.fuchs]

1.) Du kannst die Variable anzahl nicht in der for-Schleife verändern, sie ist ja bereits die Zählvariable.

2.) Der Code ist unnötig, datei.Count enthält doch schon die Anzahl der Zeilen.

[mse]

hallo Leute,
hab ein neues Problem:
- ich lade mir mittels OpenDialog den Dateipfad in ein Editfeld, das funktioniert ja
- anschließend möchte ich nun die Zeilen zählen, was wiederum nicht funktioniert

Was *genau* funktioniert nicht? Bitte gib dir selber eine wenig mehr Mühe mit der Problemanalyse.

[baumina]

Statt

Code: Alles auswählen

 
  datei:= StringList.Create;
end;

solltest du

Code: Alles auswählen

 
  datei:= TStringList.Create;
end;

schreiben.

Die Anzahl der Zeilen erhältst du durch

Code: Alles auswählen

Edit_Anzahl.Text:= IntToStr(Datei.count);

[theo]

datei:= StringList.Create;

Das kompiliert? datei:= TStringList.Create;

[Nugi89]

ohja sehe ich auch, hatte beim ändern aus TStringList ein StringList gemacht

Hatte da wohl doch einige Denkfehler drin -.-*

[Nugi89]

das eigentliche Problem welches ich jetzt noch habe ist das ich ja den Pfad brauche um auf die Datei zugreifen zu können.
Den gebe ich in ein Editfeld aber wenn ich jetzt mit einer anderen Variable mir den Inhalt des Editfeldes hole schmiert er ab.
Problem hatte ich ja oben schon einmal erklärt.

[mse]

aber wenn ich jetzt mit einer anderen Variable mir den Inhalt des Editfeldes hole schmiert er ab.

Was meinst du damit? Bitte gib dir mehr Mühe bei der Informationsgewinnung und der exakten Schilderung des Problems.

[baumina]

Ersetze bitte in Zukunft Aussagen wie "funktioniert nicht", "schmiert ab", "steigt aus", "hängt sich auf", etc. durch eine genaue Fehlerbeschreibung, wie z.B. Kompiler-Fehlermeldungen, runtime-Fehlermeldung, Debuggerinformationen.

[Nugi89]

ok. Also bei

Code: Alles auswählen

datei.LoadFromFile(path)

Erscheint der Fehler:
Unable to open file "c:\User\Admin\Test\Test.txt".

Über OpenDialog lade ich mir den Pfad in ein Editfeld und die Variable "path" nimmt den Inhalt des Editfelds.
Und mit LoadFromFile(path) greife ich doch auf die Datei zu? oder nicht?

[TBug]

ok. Also bei

Code: Alles auswählen

datei.LoadFromFile(path)

Erscheint der Fehler:
Unable to open file "c:\User\Admin\Test\Test.txt".

Ist das die Datei, welche Du öffnen möchtest?
Ist diese Datei in diesem Verzeichnis vorhanden?
Hast Du Leserechte auf die Datei und das Verzeichnis?
Kannst Du diese Datei mit einem anderen Programm (z.B Editor) öffnen?

[Nugi89]

ja die Datei existiert im Verzeichnis.
Leserechte hab ich auch.
ich möchte nur die Zeilen zählen der Datei mehr nicht.

[mse]

ja die Datei existiert im Verzeichnis.
Leserechte hab ich auch.
ich möchte nur die Zeilen zählen der Datei mehr nicht.

Kannst Du diese Datei mit einem anderen Programm (z.B Editor) öffnen?

@Nugi89: Bitte beantworte *alle* gestellten Fragen wenn du weitere Hilfe möchtest.

[Nugi89]

Ja es ist die Datei auf die ich zugreifen möchte.
Ja die Datei ist in dem Verzeichnis vorhanden.
Ja ich habe die Leserechte.
Und ja ich kann die Datei mit einem anderen Programm öffnen.

[baumina]

Wenn du die Datei mit einem anderen Programm geöffnet hast, kann es sein, dass dieses Programm die Datei sperrt. Stelle sicher, dass die Datei mit keinem Programm geöffnet ist, zusätzlich würde ich noch eine

Code: Alles auswählen

FileExists(Path)

Prüfung machen.