Delphi-Quellcode:
var
Form1: TForm1;
dateiname, dateiname2 :string;
betrag, betrag2: real;
zeile1, zeile2, zeile3, zeile4, z5, betrag3:string;
datei,datei2 : textfile;
procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile (datei, dateiname);
reset (datei);
readln (datei, zeile1);
closefile (datei);
edit1.text := zeile1;
dateiname2 := zeile1 ;
assignfile (datei2, dateiname2);
reset (datei2);
readln (datei2, zeile2);
readln (datei2, zeile3);
closefile (datei2);
edit2.Text := zeile2;
end;
Hi, ich habe den oben stehenden Code programmiert. Es gibt aber ein Problem.
Wie ihr seht, soll das Programm eine Txt Datei öffnen, in der ein Pfad zu einer anderen Text Datei drin steht. Diesen Pfad (zeile1) soll er in ein dann als "Pfadangabe" für das Öffnen von Datei2 benutzen.
Leider geht das nicht so wie ich will. Jedesmal wenn ich das Programm starte meldet er mir IO error, obwohl der Pfad in variable zeile1 richtig eingegeben ist .
Woran kann das liegen? Wenn ich jetzt der Variable den Pfad 'c:\neu\Martin.txt' zuweise öffnet er die Datei 2. Datei ohne Probleme...