@himitsu
Danke für die schnelle Antwort, muss erstma sacken lassen und anwenden, melde mich wenn ich was habe.
EDIT:
Also die Dateikriterien habe ich im Menü geändert. Sowohl den Filter als auch FileMustExist. Mein System erkennt die Funktion "System.SysUtils.FileExists" Funktion nicht: SysUtils is not a member of System. Das Untere bsp funktioniert nicht.
Delphi-Quellcode:
procedure TForm1.meldung_einClick(Sender: TObject);
var z: integer; //Laufvariable
s: string;
datei: TextFile;
begin
If OpenDialog1.Execute then
If System.SysUtils.FileExists = false then
MessageDlg('Keine Datei Ausgewählt!', mtWarning, [mbOK], 0)
else
begin
AssignFile(datei, OpenDialog1.FileName);//Vorbereitung zur Auslesung
reset(datei);
z := 0;
txt_eingabe.clear;
end;
repeat //benötigte Zeilen auslesen
inc(z);
readln(datei, s);
txt_eingabe.Lines.Add(s);
until z = 40;
CloseFile(datei);
end;
Wenn keine Datei ausgewählt wurde und ich den Öffnungsdialog schließe, bekomme ich jetzt die Meldung "I/O error 104". Kommt wohl aus dem readln, versuche jetzt erstmal dein Lösungsansatz mit TStringList.
MfG Konstantin