Hi, ich habe folgenden QT und will damit erreichen, dass aus einer Textdatei bestimmte Werte ausgelesen werden.
Delphi-Quellcode:
if opendialog2.Execute then
begin
j:=0;
assignfile(datei,opendialog2.FileName);
reset(datei);
while not eof(datei) do <= FEHLER!
begin
if j=0 then readln(datei, datei_platz)
else begin
readln(datei, dateien[j-1]);
j:=j+1;
end;
closefile(datei);
end;
end;
Die erste Zeile in der Datei gibt den Index an, wieviele Zeilen folgen werden. Die folgenden Zeilen geben Pfadnamen an.
Leider bekomme ich jetzt immer eine Fehlermeldung an der markierten Stelle!
Bitte schaut euch das mal an, danke!!