Lazarus Fehler beim lesen einer Textdatei

[foerster7892]

Ja hi wie im Titel beschrieben:

Delphi-Quellcode:

function SchluesselA(x:string):TISArray;
var TxtDatei:Textfile;
    Ss,ZS   :String;
    i, Zaehl:Integer;
begin
  AssignFile(TxtDatei, x);
  reset(TxtDatei);
  readln(TxtDatei, Ss);   //Run-Error(3)
  zaehl := 1;
  for i := 1 to length(Ss) do
    if Ss[i] = ' ' then inc(zaehl);

  setlength(SchluesselA, zaehl);
  ZS := '';
  Zaehl:=0;
  for i := 1 to length(Ss)do
  begin
    if Ss[i] = ' ' then
    begin
      SchluesselA[Zaehl] := StrToInt(ZS);
      inc(Zaehl);
      ZS := '';
    end
    else ZS := ZS + Ss[i];
  end;
  CloseFile(TxtDatei);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Textpfad                :string;
    i                       :integer;
    Schluessel              :TISArray;
begin
  Form1.OpenDialog1.Execute;
  Textpfad:=OpenDialog1.Filename;
  Form1.OpenDialog1.Execute;
  Schluessel:=SchluesselA(OpenDialog1.Filename);
  for i := 1 to length(Schluessel) do
    Form1.Memo1.Lines.add(IntToStr(Schluessel[i]));

end;

Wäre dankbar wenn mir einer den Fehler erklären könnte ich versteh ihn nicht!
Das Verzeichnis existiert und es ist auch nicht im Zugriff eingeschränkt.

[scrat1979]

Gerade in einem anderen Forum gefunden:

Zitat:

Runtime error 3 would mean that the path is invalid. Make sure it really exists

Vielleicht hilft es Dir ja

[himitsu]

Ich wollte schon fragen, ob du mit der Zeile sicher bist
und es nicht doch an Reset liegt.


http://msdn.microsoft.com/en-us/libr.../ms681382.aspx



PS: Für das Funktionsergebnis würde ich dir als Tipp nahelegen, daß du statt SchluesselA lieber Result verwendest, innerhalb dieser Funktion.

[foerster7892]

lol
wenn ich die textdateien auf d:\ lege geht es aber wenn sie auf c:\ sind egal wo dann geht es generell nicht.

Warum ist das so?
ich nutze Windows 7

[creed steiger]

Run time error
3 Path not found
Reported by the directory handling routines when a path does not exist or is invalid. Also reported when trying to access a non-existent file.

http://www.freepascal.org/docs-html/user/userap4.html

lass dir mal mit showmessage anzeigen welchen Pfad du da übergibst und schau ob du da überhaupt Zugriff hast.

[Luckie]

Und kapsele das mal in einem try-except-Block, dann bekommst du auch eine entsprechende Fehlermeldung.